comparison lisp/apropos.el @ 442:abe6d1db359e r21-2-36

Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents a5df635868b2
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
375 375
376 376
377 ;; Finds all documentation related to APROPOS-REGEXP in internal-doc-file-name. 377 ;; Finds all documentation related to APROPOS-REGEXP in internal-doc-file-name.
378 378
379 (defun apropos-documentation-check-doc-file () 379 (defun apropos-documentation-check-doc-file ()
380 (let (type symbol (sepa 2) sepb beg end) 380 (let (type symbol (sepa 2) sepb beg end doc)
381 (insert ?\^_) 381 (insert ?\^_)
382 (backward-char) 382 (backward-char)
383 (insert-file-contents (concat doc-directory internal-doc-file-name)) 383 (insert-file-contents (concat doc-directory internal-doc-file-name))
384 (forward-char) 384 (forward-char)
385 (while (save-excursion 385 (while (save-excursion