From 38ab866cad7982a1191dce83acd4b539287b16fe Mon Sep 17 00:00:00 2001
From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 4 Oct 2000 23:30:51 +0000
Subject: [PATCH] (apropos-mode): Use define-derived-mode.

---
 lisp/apropos.el | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

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)
-- 
2.39.2