From f1aa21a5b25b9371b42c267ef9ec557fa75ec95a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 25 Sep 2018 22:40:23 +0300 Subject: [PATCH] Rename add-dir-local-variables-to-string to dir-locals-to-string (bug#32817) --- lisp/files-x.el | 12 ++++++------ 1 file 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 -- 2.39.5