/[emacs]/emacs/lisp/man.el
ViewVC logotype

Diff of /emacs/lisp/man.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.147 by jurta, Sun May 29 16:09:15 2005 UTC revision 1.148 by lute, Sun Jun 12 10:08:56 2005 UTC
# Line 391  Otherwise, the value is whatever the fun Line 391  Otherwise, the value is whatever the fun
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)
# Line 410  Otherwise, the value is whatever the fun Line 411  Otherwise, the value is whatever the fun
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
# Line 1023  manpage command." Line 1023  manpage command."
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    

Legend:
Removed from v.1.147  
changed lines
  Added in v.1.148

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26