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

to ebrowse-ffh.el.
(ebrowse-load): Add autoload.

1 files changed, 1 insertions, 13 deletions

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.
@@ -4555,11 +4548,6 @@ EVENT is the mouse event."
 
 
 
-;;; Hooks installed
-
-(add-hook 'find-file-hooks 'ebrowse-find-file)
-
-
 (provide 'ebrowse)
 
 ;;; Local variables: