X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/4a6c9bec5a70ef99bf50bd26abbe9cfda1dfe8c4..2b34df4ebc935a834a77b930b35c4a42f7236440:/lisp/apropos.el

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 117eeb8267..45463784cb 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -821,7 +821,7 @@ Returns list of symbols and documentation found."
 ;; Finds all documentation related to APROPOS-REGEXP in internal-doc-file-name.
 
 (defun apropos-documentation-check-doc-file ()
-  (let (type symbol (sepa 2) sepb)
+  (let (type symbol (sepa 2) sepb doc)
     (insert ?\^_)
     (backward-char)
     (insert-file-contents (concat doc-directory internal-doc-file-name))
@@ -1121,7 +1121,8 @@ If non-nil TEXT is a string that will be printed as a heading."
 
 (defun apropos-describe-plist (symbol)
   "Display a pretty listing of SYMBOL's plist."
-  (help-setup-xref (list 'apropos-describe-plist symbol) (interactive-p))
+  (help-setup-xref (list 'apropos-describe-plist symbol)
+		   (called-interactively-p 'interactive))
   (with-help-window (help-buffer)
     (set-buffer standard-output)
     (princ "Symbol ")