Mercurial > emacs

changeset 13611:22697186f960

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(apropos-print): Use apropos-local-map as buffer's map, not as a text property.
author Richard M. Stallman <rms@gnu.org>
date Tue, 21 Nov 1995 00:10:57 +0000
parents 8e82e46aa77b
children 342d919f52b2
files lisp/apropos.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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