Mercurial > hg > xemacs-beta

comparison lisp/packages/apropos.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children b82b59fe008d
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
21 ;; You should have received a copy of the GNU General Public License 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 the 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA. 24 ;; Boston, MA 02111-1307, USA.
25 25
26 ;;; Synched up with: FSF 19.31. 26 ;;; Synched up with: FSF 19.34.
27 27
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ;; The ideas for this package were derived from the C code in 30 ;; The ideas for this package were derived from the C code in
31 ;; src/keymap.c and elsewhere. The functions in this file should 31 ;; src/keymap.c and elsewhere. The functions in this file should
58 ;; from buffer in active window. 58 ;; from buffer in active window.
59 59
60 ;;; Code: 60 ;;; Code:
61 61
62 ;; I see a degradation of maybe 10-20% only. 62 ;; I see a degradation of maybe 10-20% only.
63 ;; [sb -- FSF protects the face declarations with `if window-system'
64 ;; I see no reason why we should do so]
63 (defvar apropos-do-all nil 65 (defvar apropos-do-all nil
64 "*Whether the apropos commands should do more. 66 "*Whether the apropos commands should do more.
65 Slows them down more or less. Set this non-nil if you have a fast machine.") 67 Slows them down more or less. Set this non-nil if you have a fast machine.")
66 68
67 (defvar apropos-symbol-face 'bold 69 (defvar apropos-symbol-face 'bold
88 This looks good, but slows down the commands several times.") 90 This looks good, but slows down the commands several times.")
89 91
90 92
91 (defvar apropos-mode-map 93 (defvar apropos-mode-map
92 (let ((map (make-sparse-keymap))) 94 (let ((map (make-sparse-keymap)))
93 (define-key map "\C-m" 'apropos-follow) 95 (define-key map [(control m)] 'apropos-follow)
94 (define-key map 'button2up 'apropos-mouse-follow) 96 (define-key map [(button2up)] 'apropos-mouse-follow)
95 (define-key map 'button2 'undefined) 97 (define-key map [(button2down)] 'undefined)
96 map) 98 map)
97 "Keymap used in Apropos mode.") 99 "Keymap used in Apropos mode.")
98 100
99 101
100 (defvar apropos-regexp nil 102 (defvar apropos-regexp nil
472 (if (device-on-window-system-p) 474 (if (device-on-window-system-p)
473 (insert "If you move the mouse over text that changes color,\n" 475 (insert "If you move the mouse over text that changes color,\n"
474 (substitute-command-keys 476 (substitute-command-keys
475 "you can click \\[apropos-mouse-follow] to get more information.\n"))) 477 "you can click \\[apropos-mouse-follow] to get more information.\n")))
476 (insert (substitute-command-keys 478 (insert (substitute-command-keys
477 "In this buffer, type \\[apropos-follow] to get full documentation.\n\n")) 479 "Type \\[apropos-follow] in this buffer to get full documentation.\n\n"))
478 (while (consp p) 480 (while (consp p)
479 (or (not spacing) (bobp) (terpri)) 481 (or (not spacing) (bobp) (terpri))
480 (setq apropos-item (car p) 482 (setq apropos-item (car p)
481 symbol (car apropos-item) 483 symbol (car apropos-item)
482 p (cdr p) 484 p (cdr p)