Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 3625:e5c8780c8229

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-10-15 00:50:50 by youngs] 2006-10-14 Jeff Miller <jmiller@xemacs.org> * info.el (Info-find-emacs-command-nodes): fix regex for find command node.
author youngs
date Sun, 15 Oct 2006 00:50:52 +0000
parents ab71ad6ff3dd
children 3b847cba6d71
comparison
equal deleted inserted replaced
3624:07325bcf3e1a 3625:e5c8780c8229
3115 "Return a list of locations documenting COMMAND in the XEmacs Info manual. 3115 "Return a list of locations documenting COMMAND in the XEmacs Info manual.
3116 The locations are of the format used in Info-history, i.e. 3116 The locations are of the format used in Info-history, i.e.
3117 \(FILENAME NODENAME BUFFERPOS\)." 3117 \(FILENAME NODENAME BUFFERPOS\)."
3118 (let ((where '()) 3118 (let ((where '())
3119 (cmd-desc (concat "^\\* " (regexp-quote (symbol-name command)) 3119 (cmd-desc (concat "^\\* " (regexp-quote (symbol-name command))
3120 ":\\s *\\(.*\\)\\.$"))) 3120 ":\\s *\\(.*\\)\\.")))
3121 (save-excursion 3121 (save-excursion
3122 (Info-find-node "XEmacs" "Command Index") 3122 (Info-find-node "XEmacs" "Command Index")
3123 ;; Take the index node off the Info history. 3123 ;; Take the index node off the Info history.
3124 ;; ??? says this isn't safe someplace else... hmmm. 3124 ;; ??? says this isn't safe someplace else... hmmm.
3125 (setq Info-history (cdr Info-history)) 3125 (setq Info-history (cdr Info-history))