diff options
| author | Richard M. Stallman <[email protected]> | 1995-11-21 00:10:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-11-21 00:10:57 +0000 |
| commit | f587d7acaca04810653399b332ff012535481592 (patch) | |
| tree | 050d9f1222cf9f0fafb1aaec94d985fd52342916 /lisp/apropos.el | |
| parent | 128a5b555b139900ac31ea4e717311a2badff387 (diff) | |
(apropos-print): Use apropos-local-map as buffer's map,
not as a text property.
Diffstat (limited to 'lisp/apropos.el')
| -rw-r--r-- | lisp/apropos.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el index a51db66787..9adf987d94 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 |