From 320b423388f9a28f6381a1744a67b09ec6efb90d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 May 1993 22:28:56 +0000 Subject: [PATCH] (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. --- lisp/files.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index f46f27b760..83322d05aa 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -163,7 +163,7 @@ Normally auto-save files are written under other names.") 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 @@ Like \\[find-file] but marks buffer as read-only. 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 @@ Like \\[find-file-other-window] but marks buffer as read-only. 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 @@ Like \\[find-file-other-frame] but marks buffer as read-only. 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. -- 2.39.2