[Emacs-diffs] master f1aa21a: Rename add-dir-local-variables-to-string to dir-locals-to-string (bug#32817)

[Juri Linkov]

branch: master
commit f1aa21a5b25b9371b42c267ef9ec557fa75ec95a
Author: Juri Linkov <address@hidden>
Commit: Juri Linkov <address@hidden>

    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 201b7a4..9af399c 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