From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 4 Oct 2000 23:30:51 +0000 (+0000)
Subject: (apropos-mode): Use define-derived-mode.
X-Git-Tag: emacs-pretest-21.0.90~1157
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=38ab866cad7982a1191dce83acd4b539287b16fe;p=emacs.git

(apropos-mode): Use define-derived-mode.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index c184a689bf6..fe441219e99 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -128,16 +128,10 @@ for the regexp; the part that matches gets displayed in this font."
   "Current item in or for `apropos-accumulator'.")
 
 ;;;###autoload
-(defun apropos-mode ()
+(define-derived-mode apropos-mode fundamental-mode "Apropos"
   "Major mode for following hyperlinks in output of apropos commands.
 
-\\{apropos-mode-map}"
-  (interactive)
-  (kill-all-local-variables)
-  (use-local-map apropos-mode-map)
-  (setq major-mode 'apropos-mode
-	mode-name "Apropos")
-  (run-hooks 'apropos-mode-hook))
+\\{apropos-mode-map}")
 
 ;;;###autoload
 (defun apropos-variable (regexp &optional do-all)