Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 375:a300bb07d72d r21-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b3
author cvs
date Mon, 13 Aug 2007 11:04:51 +0200
parents 6240c7796c7a
children 8626e4521993
comparison
equal deleted inserted replaced
374:4ebeb1a5388b 375:a300bb07d72d
305 ;; Modified 1998-03-29 by Oscar Figueiredo 305 ;; Modified 1998-03-29 by Oscar Figueiredo
306 ;; 306 ;;
307 ;; Added automatic dir/localdir (re)building capability for directories that 307 ;; Added automatic dir/localdir (re)building capability for directories that
308 ;; contain none or when it has become older than info files in the same 308 ;; contain none or when it has become older than info files in the same
309 ;; directory. 309 ;; directory.
310
311 ;; Modified 1998-09-23 by Didier Verna <verna@inf.enst.fr>
312 ;;
313 ;; Use the new macro `with-search-caps-disable-folding'
310 314
311 ;; Code: 315 ;; Code:
312 316
313 (defgroup info nil 317 (defgroup info nil
314 "The info package for Emacs." 318 "The info package for Emacs."
1569 "Search for REGEXP, starting from point, and select node it's found in." 1573 "Search for REGEXP, starting from point, and select node it's found in."
1570 (interactive "sSearch (regexp): ") 1574 (interactive "sSearch (regexp): ")
1571 (if (equal regexp "") 1575 (if (equal regexp "")
1572 (setq regexp Info-last-search) 1576 (setq regexp Info-last-search)
1573 (setq Info-last-search regexp)) 1577 (setq Info-last-search regexp))
1574 (with-caps-disable-folding regexp 1578 (with-search-caps-disable-folding regexp t
1575 (let ((found ()) 1579 (let ((found ())
1576 (onode Info-current-node) 1580 (onode Info-current-node)
1577 (ofile Info-current-file) 1581 (ofile Info-current-file)
1578 (opoint (point)) 1582 (opoint (point))
1579 (osubfile Info-current-subfile)) 1583 (osubfile Info-current-subfile))