391 |
table) |
table) |
392 |
"Syntax table used in Man mode buffers.") |
"Syntax table used in Man mode buffers.") |
393 |
|
|
394 |
(if Man-mode-map |
(unless Man-mode-map |
395 |
nil |
(setq Man-mode-map (make-sparse-keymap)) |
|
(setq Man-mode-map (copy-keymap button-buffer-map)) |
|
396 |
(suppress-keymap Man-mode-map) |
(suppress-keymap Man-mode-map) |
397 |
|
(set-keymap-parent Man-mode-map button-buffer-map) |
398 |
|
|
399 |
(define-key Man-mode-map " " 'scroll-up) |
(define-key Man-mode-map " " 'scroll-up) |
400 |
(define-key Man-mode-map "\177" 'scroll-down) |
(define-key Man-mode-map "\177" 'scroll-down) |
401 |
(define-key Man-mode-map "n" 'Man-next-section) |
(define-key Man-mode-map "n" 'Man-next-section) |
411 |
(define-key Man-mode-map "k" 'Man-kill) |
(define-key Man-mode-map "k" 'Man-kill) |
412 |
(define-key Man-mode-map "q" 'Man-quit) |
(define-key Man-mode-map "q" 'Man-quit) |
413 |
(define-key Man-mode-map "m" 'man) |
(define-key Man-mode-map "m" 'man) |
414 |
(define-key Man-mode-map "?" 'describe-mode) |
(define-key Man-mode-map "?" 'describe-mode)) |
|
) |
|
415 |
|
|
416 |
;; buttons |
;; buttons |
417 |
(define-button-type 'Man-xref-man-page |
(define-button-type 'Man-xref-man-page |
1023 |
;; ====================================================================== |
;; ====================================================================== |
1024 |
;; set up manual mode in buffer and build alists |
;; set up manual mode in buffer and build alists |
1025 |
|
|
1026 |
|
(put 'Man-mode 'mode-class 'special) |
1027 |
|
|
1028 |
(defun Man-mode () |
(defun Man-mode () |
1029 |
"A mode for browsing Un*x manual pages. |
"A mode for browsing Un*x manual pages. |
1030 |
|
|