mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(pr-eval-local-alist, pr-eval-setting-alist): Use mapc' rather than mapcar'.

Browse Source
This commit is contained in:
Juanma Barranquero 2007-09-25 11:11:16 +00:00
parent 6d2d1b7d22
commit 021c7d9720
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/printing.el
View File

@ -5311,15 +5311,15 @@ If menu binding was not done, calls `pr-menu-bind'."
(defun pr-eval-local-alist (alist)
(let (local-list)
(mapcar #'(lambda (option)
(let ((var-sym (car option))
(value (cdr option)))
(setq local-list
(if (eq var-sym 'inherits-from:)
(nconc (pr-eval-setting-alist value) local-list)
(set (make-local-variable var-sym) (eval value))
(cons var-sym local-list)))))
alist)
(mapc #'(lambda (option)
(let ((var-sym (car option))
(value (cdr option)))
(setq local-list
(if (eq var-sym 'inherits-from:)
(nconc (pr-eval-setting-alist value) local-list)
(set (make-local-variable var-sym) (eval value))
(cons var-sym local-list)))))
alist)
local-list))
@ -5341,7 +5341,7 @@ If menu binding was not done, calls `pr-menu-bind'."
(setq local-list
(pr-eval-setting-alist inherits global
(cons inherits old)))))
(mapcar
(mapc
(cond ((not local) ; global settings
#'(lambda (option)
(let ((var-sym (car option)))