From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 4 Feb 1996 21:11:50 +0000 (+0000)
Subject: (View-search-last-regexp-forward)
X-Git-Tag: emacs-19.34~1369
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ba83f4b87a73dc6cca6a831d472204013c678cc;p=emacs.git

(View-search-last-regexp-forward)
(View-search-last-regexp-backward): Nice error if no prev regexp.
---

diff --git a/lisp/view.el b/lisp/view.el
index e4b0c6b1ec4..75d37cd0736 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -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.