[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f1aa21a: Rename add-dir-local-variables-to-string t
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] master f1aa21a: Rename add-dir-local-variables-to-string to dir-locals-to-string (bug#32817) |
Date: |
Tue, 25 Sep 2018 15:40:32 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f1aa21a: Rename add-dir-local-variables-to-string to dir-locals-to-string (bug#32817),
Juri Linkov <=