
(defvar include-path (quote ("/usr/include/" "/usr/include/sys/" "/usr/include/X11/" "/usr/athena/include/" "./")) "\
*List of pathnames searched by find-include-file")

(defvar include-do-whole-path nil "\
*Search whole include path, or just to first hit?")

(defun find-include-file nil "\
Searches for a [C header] file in the pathlist specified
in include-path.  If the point is on a line in the form
#include <filename.h> or #include \"filename.h\", the line
is parsed and the appropriate filename is sarched for.  If
it is present in more than one place in the include path, 
the user will be notified." (interactive) (byte-code "ÄˆÅ ˆÆÇÈ!!?ƒ ÉÊËÌ\"!‚L ÍÎ!Ï ˆ`ÄÄbˆÐÑ	\"…K ÍÎ!‰ˆ
bˆÐÒ	\"†A ÓÔ!ˆÉÕ
ÍÎ!S\"!,‡" [p e start ch nil beginning-of-line looking-at regexp-quote "#include" find-include-file-in-pathlist read-file-name "Find include file: " "" match-end 0 end-of-line re-search-forward "\"\\|<" "\"\\|>" error "Matching brace not found" buffer-substring] 16))

(defun find-include-file-in-pathlist (fname) "\
Search for the named file in include-path and bring it
into a buffer.  If the file is present in more than one
directory in the path, notify the user." (byte-code "ÆÇH=ƒ È!‚c 
Å	…6 É	@P!…- 	@B‰ˆ†- Å‰ˆ	A‰ˆ‚ ˆƒ\\ È@P!ˆAƒQ ÊËÌ#!‚Y ÊËÍ@#!‚b ÎËÏ\"!*‡" [fname paths include-path found-list include-do-whole-path nil 47 0 find-file file-exists-p message format "%s is in: %s" "Found include file %s in %s" error "Include file %s not found"] 11))