[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/man.el
From: |
Lute Kamstra |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/man.el |
Date: |
Sun, 12 Jun 2005 06:08:56 -0400 |
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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/man.el,
Lute Kamstra <=