diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-23 23:34:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-23 23:34:20 +0000 |
| commit | 8fdb563d158874563f095f7e97d21eec04f807fb (patch) | |
| tree | 20aa707e19ba41b3dc4626a665acd06277f5f974 /lisp/find-file.el | |
| parent | a168b153696dfd7b7609cb8767b2e2dcd0164c8d (diff) | |
| download | emacs-8fdb563d158874563f095f7e97d21eec04f807fb.tar.gz | |
Fix messages.
Diffstat (limited to 'lisp/find-file.el')
| -rw-r--r-- | lisp/find-file.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/find-file.el b/lisp/find-file.el index b8aee680516..c303226ff4e 100644 --- a/lisp/find-file.el +++ b/lisp/find-file.el @@ -498,7 +498,7 @@ If optional IN-OTHER-WINDOW is non-nil, find the file in another window." (ff-find-file pathname in-other-window t))) (t ;; don't create the file, just whinge - (message "no file found for %s" fname)))) + (message "No file found for %s" fname)))) (t ;; matching file found nil)))) @@ -562,10 +562,10 @@ Arguments: (search-dirs fname-stub &optional suffix-list) (setq filename (concat fname-stub this-suffix)) (if (not ff-quiet-mode) - (message "finding buffer %s..." filename)) + (message "Finding buffer %s..." filename)) - (if (bufferp (get-buffer filename)) - (setq found (buffer-file-name (get-buffer filename)))) + (if (bufferp (get-file-buffer filename)) + (setq found (buffer-file-name (get-file-buffer filename)))) (setq blist (buffer-list)) (setq buf (buffer-name (car blist))) @@ -604,7 +604,7 @@ Arguments: (search-dirs fname-stub &optional suffix-list) (setq file (concat dir "/" filename)) (if (not ff-quiet-mode) - (message "finding %s..." file)) + (message "Finding %s..." file)) (if (file-exists-p file) (setq found file)) |