Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
28529:b8ac36c58391 | 28530:e17da1f43396 |
---|---|
1 ;;; ebrowsehook.el --- Find file hook for ebrowse.el | |
2 | |
3 ;; Copyright (C) 2000 Free Software Foundation Inc. | |
4 | |
5 ;; Author: Gerd Moellmann <gerd@gnu.org> | |
6 ;; Maintainer: FSF | |
7 ;; Keywords: C++ tags tools | |
8 | |
9 ;; This file is part of GNU Emacs. | |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
12 ;; it under the terms of the GNU General Public License as published by | |
13 ;; the Free Software Foundation; either version 2, or (at your option) | |
14 ;; any later version. | |
15 | |
16 ;; GNU Emacs is distributed in the hope that it will be useful, | |
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
22 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
24 | |
25 ;;; Commentary: | |
26 | |
27 ;;; Code: | |
28 | |
29 ;;;###autoload | |
30 (defun ebrowse-find-file-hook-fn () | |
31 "Function installed on `find-file-hooks'. | |
32 Load an Ebrowse class tree when there's special signature at | |
33 the beginning of the file." | |
34 (when (looking-at "\\[ebrowse-hs") | |
35 (ebrowse-load buffer-file-name))) | |
36 | |
37 ;;;###autoload | |
38 (add-hook 'find-file-hooks 'ebrowse-find-file-hook-fn) | |
39 | |
40 |