From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 21 Nov 1995 00:10:57 +0000 (+0000)
Subject: (apropos-print): Use apropos-local-map as buffer's map,
X-Git-Tag: emacs-19.34~2249
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f587d7acaca04810653399b332ff012535481592;p=emacs.git

(apropos-print): Use apropos-local-map as buffer's map,
not as a text property.
---

diff --git a/lisp/apropos.el b/lisp/apropos.el
index a51db667874..9adf987d941 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -432,6 +432,7 @@ found."
 		       "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 @@ found."
 	    (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