mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-22 05:51:11 -07:00
Code Issues Projects Releases Wiki Activity

lisp/bindings.el (top): Use mapc' instead of mapcar'.

Browse source
This commit is contained in:
Juanma Barranquero 2012-07-13 19:02:18 +02:00
parent 97662200b3
commit 80185fed36
2 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -1,5 +1,7 @@
2012-07-13 Juanma Barranquero <lekktu@gmail.com>
* 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 <michael.albinus@gmx.de>

16
lisp/bindings.el
View file

@ -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)