Commit 3a1524ed authored by Lute Kamstra's avatar Lute Kamstra
Browse files

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

(Man-mode): Set mode-class property to special.
parent ca0113b8
2005-06-12 Lute Kamstra <lute@gnu.org> 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. * calendar/calendar.el (calendar-mode): Use run-mode-hooks.
   
2005-06-11 Luc Teirlinck <teirllm@auburn.edu> 2005-06-11 Luc Teirlinck <teirllm@auburn.edu>
......
...@@ -391,10 +391,11 @@ Otherwise, the value is whatever the function ...@@ -391,10 +391,11 @@ Otherwise, the value is whatever the function
table) table)
"Syntax table used in Man mode buffers.") "Syntax table used in Man mode buffers.")
(if Man-mode-map (unless Man-mode-map
nil (setq Man-mode-map (make-sparse-keymap))
(setq Man-mode-map (copy-keymap button-buffer-map))
(suppress-keymap Man-mode-map) (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 " " 'scroll-up)
(define-key Man-mode-map "\177" 'scroll-down) (define-key Man-mode-map "\177" 'scroll-down)
(define-key Man-mode-map "n" 'Man-next-section) (define-key Man-mode-map "n" 'Man-next-section)
...@@ -410,8 +411,7 @@ Otherwise, the value is whatever the function ...@@ -410,8 +411,7 @@ Otherwise, the value is whatever the function
(define-key Man-mode-map "k" 'Man-kill) (define-key Man-mode-map "k" 'Man-kill)
(define-key Man-mode-map "q" 'Man-quit) (define-key Man-mode-map "q" 'Man-quit)
(define-key Man-mode-map "m" 'man) (define-key Man-mode-map "m" 'man)
(define-key Man-mode-map "?" 'describe-mode) (define-key Man-mode-map "?" 'describe-mode))
)
;; buttons ;; buttons
(define-button-type 'Man-xref-man-page (define-button-type 'Man-xref-man-page
...@@ -1023,6 +1023,8 @@ manpage command." ...@@ -1023,6 +1023,8 @@ manpage command."
;; ====================================================================== ;; ======================================================================
;; set up manual mode in buffer and build alists ;; set up manual mode in buffer and build alists
(put 'Man-mode 'mode-class 'special)
(defun Man-mode () (defun Man-mode ()
"A mode for browsing Un*x manual pages. "A mode for browsing Un*x manual pages.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment