# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 816912657 0
# Node ID 22697186f9605c60fc57c8e2e583cd988a4c4fb1
# Parent  8e82e46aa77bbed322f9f0a49c3f56fe4d96d981
(apropos-print): Use apropos-local-map as buffer's map,
not as a text property.

diff -r 8e82e46aa77b -r 22697186f960 lisp/apropos.el
--- a/lisp/apropos.el	Mon Nov 20 23:21:25 1995 +0000
+++ b/lisp/apropos.el	Tue Nov 21 00:10:57 1995 +0000
@@ -432,6 +432,7 @@
 		       "Click \\<apropos-local-map>\\[apropos-mouse-follow] to get full documentation.\n")))
 	  (insert (substitute-command-keys
 		   "In this buffer, type \\<apropos-local-map>\\[apropos-follow] to get full documentation.\n\n"))
+	  (use-local-map apropos-local-map)
 	  (while (consp p)
 	    (or (not spacing) (bobp) (terpri))
 	    (setq apropos-item (car p)
@@ -477,8 +478,7 @@
 	    (apropos-print-doc 'describe-variable 2
 			       "Variable" do-keys)
 	    (apropos-print-doc 'apropos-describe-plist 3
-			       "Plist" nil))
-	  (put-text-property 1 (point) 'local-map apropos-local-map)))))
+			       "Plist" nil))))))
   (prog1 apropos-accumulator
     (setq apropos-accumulator ())))	; permit gc