mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(View-search-last-regexp-forward)

Browse source 
(View-search-last-regexp-backward): Nice error if no prev regexp.
This commit is contained in:
Richard M. Stallman 1996-02-04 21:11:50 +00:00
parent 68e0de8238
commit 8ba83f4b87
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/view.el
View file

@ -411,7 +411,9 @@ and pushes mark ring.
The variable `view-highlight-face' controls the face that is used
for highlighting the match that is found."
(interactive "p")
(View-search-regexp-forward n view-last-regexp))
(if view-last-regexp
(View-search-regexp-forward n view-last-regexp)
(error "No previous View-mode search")))
(defun View-search-last-regexp-backward (n)
"Search backward from window start for Nth instance of last regexp.
@ -421,7 +423,9 @@ pushes mark ring.
The variable `view-highlight-face' controls the face that is used
for highlighting the match that is found."
(interactive "p")
(View-search-regexp-backward n view-last-regexp))
(if view-last-regexp
(View-search-regexp-backward n view-last-regexp)
(error "No previous View-mode search")))
(defun View-back-to-mark (&optional ignore)
"Return to last mark set in View mode, else beginning of file.