From c45be9accf5c3ead49e1ae768f4a7041c7d8f3ae Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Sun, 9 Apr 2000 20:32:42 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 8 +++++++ lisp/loaddefs.el | 39 ++++++++++++++++++++++++++++++++-- lisp/progmodes/ebrowse-ffh.el | 40 +++++++++++++++++++++++++++++++++++ src/ChangeLog | 8 +++++++ 4 files changed, 93 insertions(+), 2 deletions(-) create mode 100644 lisp/progmodes/ebrowse-ffh.el diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 36aa9eefa6f..a7aff2e3cbd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,13 @@ 2000-04-09 Gerd Moellmann + * 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. diff --git a/lisp/loaddefs.el b/lisp/loaddefs.el index a78d0906866..e9ca2146fdc 100644 --- a/lisp/loaddefs.el +++ b/lisp/loaddefs.el @@ -4876,10 +4876,16 @@ It returns the old style symbol." t nil) ;;;### (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. @@ -4909,6 +4915,19 @@ Write the current tree data structure to a file. Read the file name from the minibuffer if interactive. Otherwise, FILE-NAME specifies the file to save the tree in." t nil) +;;;*** + +;;;### (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" @@ -6565,6 +6584,22 @@ Find directly the function at point in the other window." t nil) (autoload (quote find-function-setup-keys) "find-func" "\ Define some key bindings for the find-function family of functions." nil nil) +;;;*** + +;;;### (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" diff --git a/lisp/progmodes/ebrowse-ffh.el b/lisp/progmodes/ebrowse-ffh.el new file mode 100644 index 00000000000..3dd511e400c --- /dev/null +++ b/lisp/progmodes/ebrowse-ffh.el @@ -0,0 +1,40 @@ +;;; ebrowsehook.el --- Find file hook for ebrowse.el + +;; Copyright (C) 2000 Free Software Foundation Inc. + +;; Author: Gerd Moellmann +;; 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) + + diff --git a/src/ChangeLog b/src/ChangeLog index 6efbd878aee..4ffb5a71593 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,5 +1,13 @@ 2000-04-09 Gerd Moellmann + * xfaces.c (tty_suppress_bold_inverse_default_colors_p): New + variable. + (realize_tty_face): Suppress boldness if colors are the inverse of + the default colors, and tty_suppress_bold_inverse_default_colors_p + is set. + (Ftty_suppress_bold_inverse_default_colors): New function. + (syms_of_xfaces): Defsubr it. + * buffer.c (Frestore_buffer_modified_p): New function. (syms_of_buffer): Defsubr it.