andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Man-mode-map): Initialize it properly.

Browse source 
(Man-mode): Set mode-class property to special.
This commit is contained in:
Lute Kamstra 2005-06-12 10:11:00 +00:00
parent ca0113b85a
commit 3a1524ed89
2 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2005-06-12 Lute Kamstra <lute@gnu.org>
* man.el (Man-mode-map): Initialize it properly.
(Man-mode): Set mode-class property to special.
* calendar/calendar.el (calendar-mode): Use run-mode-hooks.
2005-06-11 Luc Teirlinck <teirllm@auburn.edu>

12
lisp/man.el
View file

@ -391,10 +391,11 @@ Otherwise, the value is whatever the function
table)
"Syntax table used in Man mode buffers.")
(if Man-mode-map
nil
(setq Man-mode-map (copy-keymap button-buffer-map))
(unless Man-mode-map
(setq Man-mode-map (make-sparse-keymap))
(suppress-keymap Man-mode-map)
(set-keymap-parent Man-mode-map button-buffer-map)
(define-key Man-mode-map " " 'scroll-up)
(define-key Man-mode-map "\177" 'scroll-down)
(define-key Man-mode-map "n" 'Man-next-section)
@ -410,8 +411,7 @@ Otherwise, the value is whatever the function
(define-key Man-mode-map "k" 'Man-kill)
(define-key Man-mode-map "q" 'Man-quit)
(define-key Man-mode-map "m" 'man)
(define-key Man-mode-map "?" 'describe-mode)
)
(define-key Man-mode-map "?" 'describe-mode))
;; buttons
(define-button-type 'Man-xref-man-page
@ -1023,6 +1023,8 @@ manpage command."
;; ======================================================================
;; set up manual mode in buffer and build alists
(put 'Man-mode 'mode-class 'special)
(defun Man-mode ()
"A mode for browsing Un*x manual pages.