Mercurial > hg > xemacs-beta

comparison lisp/apropos.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 4711e16a8e49
children 8626e4521993
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
375 375
376 ;; Finds all documentation related to APROPOS-REGEXP in internal-doc-file-name. 376 ;; Finds all documentation related to APROPOS-REGEXP in internal-doc-file-name.
377 377
378 (defun apropos-documentation-check-doc-file () 378 (defun apropos-documentation-check-doc-file ()
379 (let (type symbol (sepa 2) sepb beg end) 379 (let (type symbol (sepa 2) sepb beg end)
380 (insert ?\^_) 380 (princ ?\^_)
381 (backward-char) 381 (backward-char)
382 (insert-file-contents (concat doc-directory internal-doc-file-name)) 382 (insert-file-contents (concat doc-directory internal-doc-file-name))
383 (forward-char) 383 (forward-char)
384 (while (save-excursion 384 (while (save-excursion
385 (setq sepb (search-forward "\^_")) 385 (setq sepb (search-forward "\^_"))