From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 9 Apr 2000 20:23:27 +0000 (+0000)
Subject: (ebrowse-find-file-hook-fn): Moved
X-Git-Tag: emacs-pretest-21.0.90~4304
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d36fadcebcdf21fac0df32a4ad4b526576c397ef;p=emacs.git

(ebrowse-find-file-hook-fn): Moved
to ebrowse-ffh.el.
(ebrowse-load): Add autoload.
---

diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el
index 0bacb36da4a..e28fb67747e 100644
--- a/lisp/progmodes/ebrowse.el
+++ b/lisp/progmodes/ebrowse.el
@@ -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)