mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Enabled commentary for Finder.

Browse Source 
(ff-search-directories): changed /usr/include/* to /usr/include;
(ff-get-file-name): improve behaviour when file is found in a buffer.
This commit is contained in:
Richard M. Stallman 1996-11-03 20:29:42 +00:00
parent 1223b6c4c7
commit 17feeeb26f
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/find-file.el
View File

@ -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 @@ may not exist.
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 @@ the preceding slash. The star represents all the subdirectories except
`..', 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 @@ Arguments: (search-dirs fname-stub &optional suffix-list)
(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))))