diff options
| author | Juri Linkov <juri@linkov.net> | 2018-09-25 22:40:23 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2018-09-25 22:40:23 +0300 |
| commit | f1aa21a5b25b9371b42c267ef9ec557fa75ec95a (patch) | |
| tree | 414ac3fb32a6e010f322a46290cc0d19cb14f255 /lisp/files-x.el | |
| parent | d0c77a189423dbf648ca5ae9d831a5a2e04e6947 (diff) | |
| download | emacs-f1aa21a5b25b9371b42c267ef9ec557fa75ec95a.tar.gz | |
Rename add-dir-local-variables-to-string to dir-locals-to-string (bug#32817)
Diffstat (limited to 'lisp/files-x.el')
| -rw-r--r-- | lisp/files-x.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/files-x.el b/lisp/files-x.el index 201b7a47d5d..9af399c87ba 100644 --- a/lisp/files-x.el +++ b/lisp/files-x.el @@ -492,7 +492,7 @@ from the MODE alist ignoring the input argument VALUE." ;; Insert modified alist of directory-local variables. (insert ";;; Directory Local Variables\n") (insert ";;; For more information see (info \"(emacs) Directory Variables\")\n\n") - (princ (add-dir-local-variables-to-string + (princ (dir-locals-to-string (sort variables (lambda (a b) (cond @@ -505,18 +505,18 @@ from the MODE alist ignoring the input argument VALUE." (goto-char (point-min)) (indent-sexp)))) -(defun add-dir-local-variables-to-string (variables) +(defun dir-locals-to-string (variables) "Output alists of VARIABLES to string in dotted pair notation syntax." (format "(%s)" (mapconcat - (lambda (mode-variable) + (lambda (mode-variables) (format "(%S . %s)" - (car mode-variable) + (car mode-variables) (format "(%s)" (mapconcat (lambda (variable-value) - (format "(%s . %S)" + (format "(%S . %S)" (car variable-value) (cdr variable-value))) - (cdr mode-variable) "\n")))) + (cdr mode-variables) "\n")))) variables "\n"))) ;;;###autoload |