From: Lute Kamstra <lute@gnu.org>
Date: Sun, 12 Jun 2005 10:11:00 +0000 (+0000)
Subject: (Man-mode-map): Initialize it properly.
X-Git-Tag: emacs-pretest-22.0.90~9028
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a1524ed89e5be268a53459883fcad95538c4475;p=emacs.git

(Man-mode-map): Initialize it properly.
(Man-mode): Set mode-class property to special.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 10d61e8b747..f56a50c5441 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 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.
 
 2005-06-11  Luc Teirlinck  <teirllm@auburn.edu>
diff --git a/lisp/man.el b/lisp/man.el
index d7344ed2f7a..0037d132624 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -391,10 +391,11 @@ Otherwise, the value is whatever the function
     table)
   "Syntax table used in Man mode buffers.")
 
-(if Man-mode-map
-    nil
-  (setq Man-mode-map (copy-keymap button-buffer-map))
+(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,8 +411,7 @@ Otherwise, the value is whatever the function
   (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)
-  )
+  (define-key Man-mode-map "?"    'describe-mode))
 
 ;; buttons
 (define-button-type 'Man-xref-man-page
@@ -1023,6 +1023,8 @@ manpage command."
 ;; ======================================================================
 ;; 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.