diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-11-21 00:10:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-11-21 00:10:57 +0000 |
| commit | 4538343b9c985c777c0ac76cdea09af7afb12dd0 (patch) | |
| tree | c328cc782b224653d8edc728300c1ad98c6271d7 /lisp/apropos.el | |
| parent | 022cb25272426d162c3057ee6830b686b68f4ce7 (diff) | |
| download | emacs-4538343b9c985c777c0ac76cdea09af7afb12dd0.tar.gz | |
(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 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 |