Mercurial > hg > xemacs-beta
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 5368:ed74d2ca7082 | 5369:4141aeddc55b |
|---|---|
| 996 (interactive (list (read-file-name "Find file read-only: ") | 996 (interactive (list (read-file-name "Find file read-only: ") |
| 997 (and current-prefix-arg | 997 (and current-prefix-arg |
| 998 (read-coding-system "Coding system: ")) | 998 (read-coding-system "Coding system: ")) |
| 999 t)) | 999 t)) |
| 1000 (let ((value (find-file filename codesys wildcards))) | 1000 (let ((value (find-file filename codesys wildcards))) |
| 1001 (mapcar #'(lambda (buffer) | 1001 (mapc #'(lambda (buffer) |
| 1002 (set-symbol-value-in-buffer 'buffer-read-only t buffer)) | 1002 (set-symbol-value-in-buffer 'buffer-read-only t buffer)) |
| 1003 (if (listp value) value (list value))) | 1003 (if (listp value) value (list value))) |
| 1004 value)) | 1004 value)) |
| 1005 | 1005 |
| 1006 (defun find-file-read-only-other-window (filename &optional codesys wildcards) | 1006 (defun find-file-read-only-other-window (filename &optional codesys wildcards) |
| 1007 "Edit file FILENAME in another window but don't allow changes. | 1007 "Edit file FILENAME in another window but don't allow changes. |
| 1008 Like \\[find-file-other-window] but marks buffer as read-only. | 1008 Like \\[find-file-other-window] but marks buffer as read-only. |