summaryrefslogtreecommitdiff
path: root/lisp/find-file.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1995-12-31 00:10:18 +0000
committerRichard M. Stallman <rms@gnu.org>1995-12-31 00:10:18 +0000
commit1d4add990b75d458bff27ef4f398e1356d1061c9 (patch)
treef62b582fb32703d17cb3a562dbf7aa6605f7197d /lisp/find-file.el
parentca8377dc431c6d9fe8ba28cc867741185b6ff10c (diff)
downloademacs-1d4add990b75d458bff27ef4f398e1356d1061c9.tar.gz
Doc fixes.
(ff-get-file): Use get-file-buffer to avoid false match. (ff-switch-to-buffer): Rename arg FILE to BUFFER-OR-NAME.
Diffstat (limited to 'lisp/find-file.el')
-rw-r--r--lisp/find-file.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/find-file.el b/lisp/find-file.el
index c9fc0b80645..6713dbbed16 100644
--- a/lisp/find-file.el
+++ b/lisp/find-file.el
@@ -516,8 +516,8 @@ Arguments: (search-dirs fname-stub &optional suffix-list in-other-window)
((not filename)
nil)
- ((bufferp (get-buffer filename))
- (ff-switch-to-buffer filename other-window)
+ ((bufferp (get-file-buffer filename))
+ (ff-switch-to-buffer (get-file-buffer filename) other-window)
filename)
((file-exists-p filename)
@@ -643,7 +643,7 @@ Arguments: (search-dirs fname-stub &optional suffix-list)
found))
(defun ff-string-match (regexp string &optional start)
- "Like string-match (which see), but set `case-fold-search' temporarily.
+ "Like `string-match', but set `case-fold-search' temporarily.
The value used comes from `ff-case-fold-search'."
(let ((case-fold-search ff-case-fold-search))
(if regexp
@@ -667,7 +667,7 @@ The value used comes from `ff-case-fold-search'."
(defun ff-treat-as-special ()
"Returns the file to look for if the construct was special, else nil.
-The construct is defined in the variable `ff-special-constructs' (which see)."
+The construct is defined in the variable `ff-special-constructs'."
(let* (fname
(list ff-special-constructs)
(elem (car list))
@@ -735,17 +735,17 @@ called before `ff-post-load-hooks'."
(run-hooks 'ff-post-load-hooks)))
(defun ff-find-file (file &optional in-other-window new-file)
- "Like `find-file' (which see), but may put the file in another window."
+ "Like `find-file', but may show the file in another window."
(ff-switch-file 'find-file
'find-file-other-window
file in-other-window new-file))
-(defun ff-switch-to-buffer (file &optional in-other-window)
- "Like `switch-to-buffer' (which see), but may put the buffer in another window."
+(defun ff-switch-to-buffer (buffer-or-name &optional in-other-window)
+ "Like `switch-to-buffer', but may show the buffer in another window."
(ff-switch-file 'switch-to-buffer
'switch-to-buffer-other-window
- file in-other-window nil))
+ buffer-or-name in-other-window nil))
(cond
((ff-emacs-19)