Mercurial > hg > xemacs-beta
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 |