From 43549f18f506866eebe66f91a04a2e2b41eccb0b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Aug 1993 01:07:55 +0000 Subject: [PATCH] (occur-mode-goto-occurrence): Give meaningful error message if there's nowhere useful to go. --- lisp/replace.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/lisp/replace.el b/lisp/replace.el index 2a4dad983a1..0b0e56df2fe 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -250,6 +250,8 @@ in the buffer that the occurrences were found in. (+ 2 (* 2 occur-nlines))) (t 1))))) (pos (nth occur-number occur-pos-list))) + (or pos + (error "No occurrence on this line")) (pop-to-buffer occur-buffer) (goto-char (marker-position pos)))) -- 2.39.5