From 021c7d9720b14dd5394c43cbc29c10138f63b036 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 25 Sep 2007 11:11:16 +0000 Subject: [PATCH] (pr-eval-local-alist, pr-eval-setting-alist): Use `mapc' rather than `mapcar'. --- lisp/printing.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/printing.el b/lisp/printing.el index a4b4c4217ed..0f589564083 100644 --- a/lisp/printing.el +++ b/lisp/printing.el @@ -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))) -- 2.39.5