Mercurial > emacs

changeset 16510:e619a826afdb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Enabled commentary for Finder. (ff-search-directories): changed /usr/include/* to /usr/include; (ff-get-file-name): improve behaviour when file is found in a buffer.
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 Nov 1996 20:29:42 +0000
parents 75d463b202b5
children f81633edcbf5
files lisp/find-file.el
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/find-file.el	Sun Nov 03 18:55:09 1996 +0000
+++ b/lisp/find-file.el	Sun Nov 03 20:29:42 1996 +0000
@@ -109,6 +109,8 @@
 ;; The *load-hooks allow you to place point where you want it in the other
 ;; file. 
 
+;;; Change Log:
+;;
 ;; FEEDBACK:
 ;; Please send me bug reports, bug fixes, and extensions, so that I can
 ;; merge them into the master source.
@@ -121,9 +123,9 @@
 ;; the development of this package:
 ;;     Rolf Ebert in particular, Fritz Knabe, Heddy Boubaker, Sebastian Kremer,
 ;;     Vasco Lopes Paulo, Mark A. Plaksin, Robert Lang, Trevor West, Kevin 
-;;     Pereira & Benedict Lofstedt.
+;;     Pereira, Benedict Lofstedt & Justin Vallon.
 
-;; Code:
+;;; Code:
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; User definable variables:
 
@@ -199,7 +201,7 @@
 
 A typical format is 
 
-    '(\".\" \"/usr/include/*\" \"$PROJECT/*/include\")
+    '(\".\" \"/usr/include\" \"$PROJECT/*/include\")
 
 Environment variables can be inserted between slashes (`/').
 They will be replaced by their definition. If a variable does
@@ -210,7 +212,7 @@
 `..', and each of these subdirectories will be searched in turn.")
 
 (defvar cc-search-directories
-  '("." "/usr/include/*" "/usr/local/include/*")
+  '("." "/usr/include" "/usr/local/include/*")
   "*See the description of the `ff-search-directories' variable.")
 
 (defvar cc-other-file-alist
@@ -563,14 +565,14 @@
           (message "finding buffer %s..." filename))
 
       (if (bufferp (get-buffer filename))
-          (setq found filename))
+          (setq found (buffer-file-name (get-buffer filename))))
 
       (setq blist (buffer-list))
       (setq buf (buffer-name (car blist)))
       (while (and blist (not found))
 
         (if (string-match (concat filename "<[0-9]+>") buf)
-            (setq found buf))
+            (setq found (buffer-file-name (car blist))))
 
         (setq blist (cdr blist))
         (setq buf (buffer-name (car blist))))