From: Juanma Barranquero Date: Fri, 13 Jul 2012 17:02:18 +0000 (+0200) Subject: lisp/bindings.el (top): Use `mapc' instead of `mapcar'. X-Git-Tag: emacs-24.2.90~1199^2~11 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80185fed36fb93b579f123a4fb1543e2cd8ac0f2;p=emacs.git lisp/bindings.el (top): Use `mapc' instead of `mapcar'. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fddca331106..1d5c4fd61cc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2012-07-13 Juanma Barranquero + * bindings.el (top): Use `mapc' instead of `mapcar'. + * loadup.el (top): Remove bogus `if' choice (brought by 2008-06-21T01:38:39Z!monnier@iro.umontreal.ca). 2012-07-13 Michael Albinus diff --git a/lisp/bindings.el b/lisp/bindings.el index 97450f788aa..96700c6dc26 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -657,14 +657,14 @@ okay. See `mode-line-format'.") ;; For consistency, we give them the `permanent-local' property, even ;; though `kill-all-local-variables' does not actually consult it. -(mapcar (lambda (sym) (put sym 'permanent-local t)) - '(buffer-file-name default-directory buffer-backed-up - buffer-saved-size buffer-auto-save-file-name - buffer-read-only buffer-undo-list mark-active - point-before-scroll buffer-file-truename - buffer-file-format buffer-auto-save-file-format - buffer-display-count buffer-display-time - enable-multibyte-characters)) +(mapc (lambda (sym) (put sym 'permanent-local t)) + '(buffer-file-name default-directory buffer-backed-up + buffer-saved-size buffer-auto-save-file-name + buffer-read-only buffer-undo-list mark-active + point-before-scroll buffer-file-truename + buffer-file-format buffer-auto-save-file-format + buffer-display-count buffer-display-time + enable-multibyte-characters)) ;; We have base64, md5 and sha1 functions built in now. (provide 'base64)