summaryrefslogtreecommitdiff
path: root/lisp/apropos.el
diff options
context:
space:
mode:
authorSam Steingold <sds@gnu.org>2011-02-02 12:59:44 -0500
committerSam Steingold <sds@gnu.org>2011-02-02 12:59:44 -0500
commite90f854587c8731d7c487723e4cc3a75b4e58f7a (patch)
treea8e0cd656a2e038c2182a684f529d76bf56da79b /lisp/apropos.el
parenta2ff2fc09dd3a129aa093a9beb9e35777d7201d1 (diff)
downloademacs-e90f854587c8731d7c487723e4cc3a75b4e58f7a.tar.gz
* lisp/apropos.el (apropos-print): Now that `apropos-mode' inherits
from `special-mode', entering it makes the buffer read-only, so call it only when everything has been already inserted. * lisp/emacs-lisp/ert.el (ert--setup-results-buffer) (ert-results-pop-to-backtrace-for-test-at-point) (ert-results-pop-to-messages-for-test-at-point) (ert-results-pop-to-timings): Ditto. * lisp/emacs-lisp/package.el (package--list-packages): Ditto. * lisp/play/solitaire.el (solitaire): Ditto.
Diffstat (limited to 'lisp/apropos.el')
-rw-r--r--lisp/apropos.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/apropos.el b/lisp/apropos.el
index ac7d3d4085e..70ce860e1d7 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -974,7 +974,6 @@ If non-nil TEXT is a string that will be printed as a heading."
(old-buffer (current-buffer))
symbol item)
(set-buffer standard-output)
- (apropos-mode)
(if (display-mouse-p)
(insert
"If moving the mouse over text changes the text's color, "
@@ -1066,7 +1065,7 @@ If non-nil TEXT is a string that will be printed as a heading."
(apropos-print-doc 4 'apropos-plist nil))
(set (make-local-variable 'truncate-partial-width-windows) t)
(set (make-local-variable 'truncate-lines) t)
- (setq buffer-read-only t))))
+ (apropos-mode))))
(prog1 apropos-accumulator
(setq apropos-accumulator ()))) ; permit gc