Mercurial > hg > xemacs-beta

comparison lisp/apropos.el @ 357:4711e16a8e49 r21-1-8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 558f606b08ae
children cc15677e0335
comparison
equal deleted inserted replaced
356:e85f639a32f3 357:4711e16a8e49
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 (princ ?\^_) 380 (insert ?\^_)
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 "\^_"))