changeset 28530:e17da1f43396

*** empty log message ***

--- a/lisp/ChangeLog	Sun Apr 09 20:30:25 2000 +0000
+++ b/lisp/ChangeLog	Sun Apr 09 20:32:42 2000 +0000
@@ -1,5 +1,13 @@
 2000-04-09  Gerd Moellmann  <[e-mail]>
 
+	* progmodes/ebrowse-ffh.el: New file.
+	
+	* progmodes/ebrowse.el (ebrowse-find-file-hook-fn): Moved
+	to ebrowse-ffh.el.
+	(ebrowse-load): Add autoload.
+
+	* finder.el (finder-commentary): Add autoload cookie.
+
 	* mail/rfc2368.el: Correct author's email address.
 
 	* progmodes/ebrowse.el: New file.

--- a/lisp/loaddefs.el	Sun Apr 09 20:30:25 2000 +0000
+++ b/lisp/loaddefs.el	Sun Apr 09 20:32:42 2000 +0000
@@ -4876,10 +4876,16 @@
 
 ;;;### (autoloads (ebrowse-save-tree-as ebrowse-tags-query-replace
 ;;;;;;  ebrowse-tags-loop-continue ebrowse-tags-complete-symbol ebrowse-electric-choose-tree
-;;;;;;  ebrowse-tree-mode) "ebrowse" "progmodes/ebrowse.el" (14575
-;;;;;;  54558))
+;;;;;;  ebrowse-tree-mode ebrowse-load) "ebrowse" "progmodes/ebrowse.el"
+;;;;;;  (14576 57912))
 ;;; Generated autoloads from progmodes/ebrowse.el
 
+(autoload (quote ebrowse-load) "ebrowse" "\
+Load an Ebrowse file FILE into memory and make a tree buffer.
+Optional SWITCH non-nil means switch to the tree buffer afterwards.
+This function is normally called from a `find-file-hook'.
+Value is the tree buffer created." nil nil)
+
 (autoload (quote ebrowse-tree-mode) "ebrowse" "\
 Major mode for Ebrowse class tree buffers.
 Each line corresponds to a class in a class tree.
@@ -4911,6 +4917,19 @@
 
 ;;;***
 
+;;;### (autoloads (ebrowse-find-file-hook-fn) "ebrowse-ffh" "progmodes/ebrowse-ffh.el"
+;;;;;;  (14576 58508))
+;;; Generated autoloads from progmodes/ebrowse-ffh.el
+
+(autoload (quote ebrowse-find-file-hook-fn) "ebrowse-ffh" "\
+Function installed on `find-file-hooks'.
+Load an Ebrowse class tree when there's special signature at
+the beginning of the file." nil nil)
+
+(add-hook (quote find-file-hooks) (quote ebrowse-find-file-hook-fn))
+
+;;;***
+
 ;;;### (autoloads (electric-buffer-list) "ebuff-menu" "ebuff-menu.el"
 ;;;;;;  (13778 5499))
 ;;; Generated autoloads from ebuff-menu.el
@@ -6567,6 +6586,22 @@
 
 ;;;***
 
+;;;### (autoloads (finder-by-keyword finder-commentary finder-list-keywords)
+;;;;;;  "finder" "finder.el" (14576 32883))
+;;; Generated autoloads from finder.el
+
+(autoload (quote finder-list-keywords) "finder" "\
+Display descriptions of the keywords in the Finder buffer." t nil)
+
+(autoload (quote finder-commentary) "finder" "\
+Display FILE's commentary section.
+FILE should be in a form suitable for passing to `locate-library'." t nil)
+
+(autoload (quote finder-by-keyword) "finder" "\
+Find packages matching a given keyword." t nil)
+
+;;;***
+
 ;;;### (autoloads (enable-flow-control-on enable-flow-control) "flow-ctrl"
 ;;;;;;  "flow-ctrl.el" (12550 54450))
 ;;; Generated autoloads from flow-ctrl.el

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/progmodes/ebrowse-ffh.el	Sun Apr 09 20:32:42 2000 +0000
@@ -0,0 +1,40 @@
+;;; ebrowsehook.el --- Find file hook for ebrowse.el
+
+;; Copyright (C) 2000 Free Software Foundation Inc.
+
+;; Author: Gerd Moellmann <[e-mail]>
+;; Maintainer: FSF
+;; Keywords: C++ tags tools
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to
+;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+;;;###autoload
+(defun ebrowse-find-file-hook-fn ()
+  "Function installed on `find-file-hooks'.
+Load an Ebrowse class tree when there's special signature at
+the beginning of the file."
+  (when (looking-at "\\[ebrowse-hs")
+    (ebrowse-load buffer-file-name)))
+
+;;;###autoload
+(add-hook 'find-file-hooks 'ebrowse-find-file-hook-fn)
+
+

Binary file src/ChangeLog has changed