mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ebrowse-find-file-hook-fn): Moved

Browse source 
to ebrowse-ffh.el.
(ebrowse-load): Add autoload.
This commit is contained in:
Gerd Moellmann 2000-04-09 20:23:27 +00:00
parent 9a98ef18f5
commit d36fadcebc
1 changed files with 1 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/ebrowse.el
View file

@ -899,14 +899,6 @@ this is the first progress message displayed."
;;; Reading a tree from disk
(defun ebrowse-find-file ()
"Function installed as `find-file hook'.
This loads a tree when it sees a special signature at the beginning of
the file loaded."
(when (looking-at "\\[ebrowse-hs")
(ebrowse-load buffer-file-name 'switch)))
(defun ebrowse-read ()
"Read `ebrowse-hs' and `ebrowse-ts' structures in the current buffer.
Return a list (HEADER TREE) where HEADER is the file header read
@ -935,6 +927,7 @@ and TREE is a list of `ebrowse-ts' structures forming the class tree."
(list header tree)))
;;;###autoload
(defun ebrowse-load (file &optional switch)
"Load an Ebrowse file FILE into memory and make a tree buffer.
Optional SWITCH non-nil means switch to the tree buffer afterwards.
@ -4554,11 +4547,6 @@ EVENT is the mouse event."
(ebrowse-toggle-mark-at-point 1)))))))
;;; Hooks installed
(add-hook 'find-file-hooks 'ebrowse-find-file)
(provide 'ebrowse)