mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(apropos-print): Use apropos-local-map as buffer's map,

Browse Source 
not as a text property.
This commit is contained in:
Richard M. Stallman 1995-11-21 00:10:57 +00:00
parent 128a5b555b
commit f587d7acac
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/apropos.el
View File

@ -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