[Emacs-diffs] Changes to emacs/lisp/man.el

[Lute Kamstra]

Index: emacs/lisp/man.el
diff -c emacs/lisp/man.el:1.147 emacs/lisp/man.el:1.148
*** emacs/lisp/man.el:1.147     Sun May 29 16:09:15 2005
--- emacs/lisp/man.el   Sun Jun 12 10:08:56 2005
***************
*** 391,400 ****
      table)
    "Syntax table used in Man mode buffers.")
  
! (if Man-mode-map
!     nil
!   (setq Man-mode-map (copy-keymap button-buffer-map))
    (suppress-keymap Man-mode-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)
--- 391,401 ----
      table)
    "Syntax table used in Man mode buffers.")
  
! (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,417 ****
    (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)
!   )
  
  ;; buttons
  (define-button-type 'Man-xref-man-page
--- 411,417 ----
    (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))
  
  ;; buttons
  (define-button-type 'Man-xref-man-page
***************
*** 1023,1028 ****
--- 1023,1030 ----
  ;; ======================================================================
  ;; 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.