# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738714536 0
# Node ID 3b3717164db0d7ecd47cd3d926fbb3d02e8805ca
# Parent  40cbb2abad94071dbdefd1ee12d4b7dfb9ac68ea
(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.

diff -r 40cbb2abad94 -r 3b3717164db0 lisp/files.el
--- 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.