Mercurial > emacs
changeset 3280:3b3717164db0
(find-file-run-dired): Doc fix.
(find-file-read-only): Return the buffer.
(find-file-read-only-other-window): Likewise.
(find-file-read-only-other-frame): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 29 May 1993 22:28:56 +0000 |
| parents | 40cbb2abad94 |
| children | 49c371d2b020 |
| files | lisp/files.el |
| diffstat | 1 files changed, 7 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Sat May 29 21:26:28 1993 +0000 +++ b/lisp/files.el Sat May 29 22:28:56 1993 +0000 @@ -163,7 +163,7 @@ Loading an abbrev file sets this to t.") (defconst find-file-run-dired t - "*Non-nil says run dired if find-file is given the name of a directory.") + "*Non-nil says run dired if `find-file' is given the name of a directory.") ;;;It is not useful to make this a local variable. ;;;(put 'find-file-not-found-hooks 'permanent-local t) @@ -408,7 +408,8 @@ Use \\[toggle-read-only] to permit editing." (interactive "fFind file read-only: ") (find-file filename) - (setq buffer-read-only t)) + (setq buffer-read-only t) + (current-buffer)) (defun find-file-read-only-other-window (filename) "Edit file FILENAME in another window but don't allow changes. @@ -416,7 +417,8 @@ Use \\[toggle-read-only] to permit editing." (interactive "fFind file read-only other window: ") (find-file-other-window filename) - (setq buffer-read-only t)) + (setq buffer-read-only t) + (current-buffer)) (defun find-file-read-only-other-frame (filename) "Edit file FILENAME in another frame but don't allow changes. @@ -424,7 +426,8 @@ Use \\[toggle-read-only] to permit editing." (interactive "fFind file read-only other frame: ") (find-file-other-frame filename) - (setq buffer-read-only t)) + (setq buffer-read-only t) + (current-buffer)) (defun find-alternate-file (filename) "Find file FILENAME, select its buffer, kill previous buffer.