X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fapropos.el;h=0b535d8f6cb60ada9ede8645bc57ffce1c8e0af2;hp=9dee743c842fc02730106fc84f01ae2e83b16bb4;hb=762383636a99307282c2d93d26c35c046ec24da1;hpb=e31bfd1501359ce20fe1caf6b913a019318ec83c

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 9dee743..0b535d8 100644
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -377,7 +377,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 beg end)
+  (let (type symbol (sepa 2) sepb beg end doc)
     (insert ?\^_)
     (backward-char)
     (insert-file-contents (concat doc-directory internal-doc-file-name))