From 91afecb383c1f8fd60b9a29400c9b3f52242ab21 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 31 Dec 1995 00:10:18 +0000 Subject: [PATCH] Doc fixes. (ff-get-file): Use get-file-buffer to avoid false match. (ff-switch-to-buffer): Rename arg FILE to BUFFER-OR-NAME. --- lisp/find-file.el | 16 ++++++++-------- 1 file 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) -- 2.39.2