Mercurial > emacs

changeset 28527:e6096d02680f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ebrowse-find-file-hook-fn): Moved to ebrowse-ffh.el. (ebrowse-load): Add autoload.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 09 Apr 2000 20:23:27 +0000
parents 297e03ccd7e6
children 7618c3801a21
files lisp/progmodes/ebrowse.el
diffstat 1 files changed, 1 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/ebrowse.el	Sun Apr 09 17:28:38 2000 +0000
+++ b/lisp/progmodes/ebrowse.el	Sun Apr 09 20:23:27 2000 +0000
@@ -899,14 +899,6 @@
 
 ;;; 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 @@
     (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 @@
 
 
 
-;;; Hooks installed
-
-(add-hook 'find-file-hooks 'ebrowse-find-file)
-
-
 (provide 'ebrowse)
 
 ;;; Local variables: