Mercurial > hg > xemacs-beta
diff lisp/files.el @ 5369:4141aeddc55b
Eliminate byte-compile warnings, core Lisp.
2011-03-10 Aidan Kehoe <kehoea@parhasard.net>
* etags.el (buffer-tag-table-list):
* files.el (find-file-read-only):
* files.el (find-file-read-only-other-window):
* info.el (Info-dir-outdated-p):
* info.el (Info-dump-dir-entries):
* info.el (Info-rebuild-dir):
* menubar-items.el (default-menubar):
* mouse.el (drag-window-divider):
* mouse.el (vertical-divider-map):
* test-harness.el (emacs-lisp-file-regexp):
Eliminate byte-compile warnings, again aside from those linked to
Stephen's various non-defined fontconfig functions.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 10 Mar 2011 19:14:25 +0000 |
| parents | f00192e1cd49 |
| children | 3889ef128488 ac37a5f7e5be |
line wrap: on
line diff
--- a/lisp/files.el Thu Mar 10 18:51:15 2011 +0000 +++ b/lisp/files.el Thu Mar 10 19:14:25 2011 +0000 @@ -998,9 +998,9 @@ (read-coding-system "Coding system: ")) t)) (let ((value (find-file filename codesys wildcards))) - (mapcar #'(lambda (buffer) - (set-symbol-value-in-buffer 'buffer-read-only t buffer)) - (if (listp value) value (list value))) + (mapc #'(lambda (buffer) + (set-symbol-value-in-buffer 'buffer-read-only t buffer)) + (if (listp value) value (list value))) value)) (defun find-file-read-only-other-window (filename &optional codesys wildcards)