Mercurial > emacs
comparison lisp/info.el @ 90140:02f1dbc4a199
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-35
Merge from emacs--cvs-trunk--0
Patches applied:
* emacs--cvs-trunk--0 (patch 228-240)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 53-58)
- Merge from emacs--cvs-trunk--0
- Update from CVS
- Collapse feature addition/removal within single ChangeLog entry
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sat, 09 Apr 2005 02:16:29 +0000 |
| parents | 4da4a09e8b1b 31aa9a390538 |
| children | 146c086df160 |
comparison
equal
deleted
inserted
replaced
| 90139:e0d294b9b23e | 90140:02f1dbc4a199 |
|---|---|
| 1 ;;; info.el --- info package for Emacs | 1 ;;; info.el --- info package for Emacs |
| 2 | 2 |
| 3 ;; Copyright (C) 1985,86,92,93,94,95,96,97,98,99,2000,01,02,03,2004 | 3 ;; Copyright (C) 1985,86,92,93,94,95,96,97,98,99,2000,01,02,03,04,2005 |
| 4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
| 5 | 5 |
| 6 ;; Maintainer: FSF | 6 ;; Maintainer: FSF |
| 7 ;; Keywords: help | 7 ;; Keywords: help |
| 8 | 8 |
| 81 (t :underline t)) | 81 (t :underline t)) |
| 82 "Face for every third `*' in an Info menu." | 82 "Face for every third `*' in an Info menu." |
| 83 :group 'info) | 83 :group 'info) |
| 84 | 84 |
| 85 (defface info-xref | 85 (defface info-xref |
| 86 '((((class color) (background light)) :foreground "blue" :underline t) | 86 '((((min-colors 88) |
| 87 (class color) (background light)) :foreground "blue1" :underline t) | |
| 88 (((class color) (background light)) :foreground "blue" :underline t) | |
| 89 (((min-colors 88) | |
| 90 (class color) (background dark)) :foreground "cyan1" :underline t) | |
| 87 (((class color) (background dark)) :foreground "cyan" :underline t) | 91 (((class color) (background dark)) :foreground "cyan" :underline t) |
| 88 (t :underline t)) | 92 (t :underline t)) |
| 89 "Face for Info cross-references." | 93 "Face for Info cross-references." |
| 90 :group 'info) | 94 :group 'info) |
| 91 | 95 |
| 3238 ;; This is for the sake of the invisible text we use handling titles. | 3242 ;; This is for the sake of the invisible text we use handling titles. |
| 3239 (make-local-variable 'line-move-ignore-invisible) | 3243 (make-local-variable 'line-move-ignore-invisible) |
| 3240 (setq line-move-ignore-invisible t) | 3244 (setq line-move-ignore-invisible t) |
| 3241 (make-local-variable 'desktop-save-buffer) | 3245 (make-local-variable 'desktop-save-buffer) |
| 3242 (setq desktop-save-buffer 'Info-desktop-buffer-misc-data) | 3246 (setq desktop-save-buffer 'Info-desktop-buffer-misc-data) |
| 3247 (add-hook 'kill-buffer-hook 'Info-kill-buffer nil t) | |
| 3243 (add-hook 'clone-buffer-hook 'Info-clone-buffer-hook nil t) | 3248 (add-hook 'clone-buffer-hook 'Info-clone-buffer-hook nil t) |
| 3244 (add-hook 'change-major-mode-hook 'font-lock-defontify nil t) | 3249 (add-hook 'change-major-mode-hook 'font-lock-defontify nil t) |
| 3245 (add-hook 'isearch-mode-hook 'Info-isearch-start nil t) | 3250 (add-hook 'isearch-mode-hook 'Info-isearch-start nil t) |
| 3246 (set (make-local-variable 'isearch-search-fun-function) | 3251 (set (make-local-variable 'isearch-search-fun-function) |
| 3247 'Info-isearch-search) | 3252 'Info-isearch-search) |
| 3251 'Info-isearch-push-state) | 3256 'Info-isearch-push-state) |
| 3252 (set (make-local-variable 'search-whitespace-regexp) | 3257 (set (make-local-variable 'search-whitespace-regexp) |
| 3253 Info-search-whitespace-regexp) | 3258 Info-search-whitespace-regexp) |
| 3254 (Info-set-mode-line) | 3259 (Info-set-mode-line) |
| 3255 (run-hooks 'Info-mode-hook)) | 3260 (run-hooks 'Info-mode-hook)) |
| 3261 | |
| 3262 ;; When an Info buffer is killed, make sure the associated tags buffer | |
| 3263 ;; is killed too. | |
| 3264 (defun Info-kill-buffer () | |
| 3265 (and (eq major-mode 'Info-mode) | |
| 3266 Info-tag-table-buffer | |
| 3267 (kill-buffer Info-tag-table-buffer))) | |
| 3256 | 3268 |
| 3257 (defun Info-clone-buffer-hook () | 3269 (defun Info-clone-buffer-hook () |
| 3258 (when (bufferp Info-tag-table-buffer) | 3270 (when (bufferp Info-tag-table-buffer) |
| 3259 (setq Info-tag-table-buffer | 3271 (setq Info-tag-table-buffer |
| 3260 (with-current-buffer Info-tag-table-buffer (clone-buffer)))) | 3272 (with-current-buffer Info-tag-table-buffer (clone-buffer)))) |
| 3885 mouse-face highlight | 3897 mouse-face highlight |
| 3886 help-echo "mouse-2: go to this URL")))) | 3898 help-echo "mouse-2: go to this URL")))) |
| 3887 | 3899 |
| 3888 (set-buffer-modified-p nil)))) | 3900 (set-buffer-modified-p nil)))) |
| 3889 | 3901 |
| 3890 | |
| 3891 ;; When an Info buffer is killed, make sure the associated tags buffer | |
| 3892 ;; is killed too. | |
| 3893 (defun Info-kill-buffer () | |
| 3894 (and (eq major-mode 'Info-mode) | |
| 3895 Info-tag-table-buffer | |
| 3896 (kill-buffer Info-tag-table-buffer))) | |
| 3897 | |
| 3898 (add-hook 'kill-buffer-hook 'Info-kill-buffer) | |
| 3899 | |
| 3900 ;;; Speedbar support: | 3902 ;;; Speedbar support: |
| 3901 ;; These functions permit speedbar to display the "tags" in the | 3903 ;; These functions permit speedbar to display the "tags" in the |
| 3902 ;; current info node. | 3904 ;; current info node. |
| 3903 (eval-when-compile (require 'speedbar)) | 3905 (eval-when-compile (require 'speedbar)) |
| 3904 | 3906 |