Mercurial > emacs

comparison lisp/view.el @ 13123:e712a11f25a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix typo in prev change.
author Richard M. Stallman <rms@gnu.org>
date Thu, 05 Oct 1995 22:26:26 +0000
parents 05bae277596e
children 02b3310fc081
comparison
equal deleted inserted replaced
13122:05bae277596e 13123:e712a11f25a0
375 "Search forward for Nth occurrence of REGEXP. 375 "Search forward for Nth occurrence of REGEXP.
376 Displays line found at center of window. REGEXP is remembered for 376 Displays line found at center of window. REGEXP is remembered for
377 searching with \\[View-search-last-regexp-forward] and \\[View-search-last-regexp-backward]. Sets mark at starting position and pushes mark ring." 377 searching with \\[View-search-last-regexp-forward] and \\[View-search-last-regexp-backward]. Sets mark at starting position and pushes mark ring."
378 (interactive "p\nsSearch forward (regexp): ") 378 (interactive "p\nsSearch forward (regexp): ")
379 ;;;(view-last-command 'View-search-last-regexp-forward n) 379 ;;;(view-last-command 'View-search-last-regexp-forward n)
380 (view-search n (if (equal regexp "") view-last-regexp regexp)))) 380 (view-search n (if (equal regexp "") view-last-regexp regexp)))
381 381
382 (defun View-search-regexp-backward (n regexp) 382 (defun View-search-regexp-backward (n regexp)
383 "Search backward from window start for Nth instance of REGEXP. 383 "Search backward from window start for Nth instance of REGEXP.
384 Displays line found at center of window. REGEXP is remembered for 384 Displays line found at center of window. REGEXP is remembered for
385 searching with \\[View-search-last-regexp-forward] and \\[View-search-last-regexp-backward]. Sets mark at starting position and pushes mark ring." 385 searching with \\[View-search-last-regexp-forward] and \\[View-search-last-regexp-backward]. Sets mark at starting position and pushes mark ring."