Mercurial > emacs

changeset 17548:dab7558986cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix messages.
author Richard M. Stallman <rms@gnu.org>
date Wed, 23 Apr 1997 23:34:20 +0000
parents 6a262c840743
children f57de209f01b
files lisp/find-file.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/find-file.el	Wed Apr 23 23:12:45 1997 +0000
+++ b/lisp/find-file.el	Wed Apr 23 23:34:20 1997 +0000
@@ -498,7 +498,7 @@
             (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 @@
       (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 @@
               (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))