Mercurial > emacs
diff lisp/progmodes/ebrowse-ffh.el @ 28530:e17da1f43396
*** empty log message ***
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sun, 09 Apr 2000 20:32:42 +0000 |
parents | |
children |
line wrap: on
line diff
--- /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 <gerd@gnu.org> +;; 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) + +