Mercurial > emacs

diff lisp/elide-head.el @ 57751:d2b6a6d18cc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(elide-head): Change error to message. (elide-head-show): Likewise.
author Richard M. Stallman <rms@gnu.org>
date Wed, 27 Oct 2004 17:48:14 +0000
parents 695cf19ef79e
children 6fb026ad601f e24e2e78deda
line wrap: on
line diff
--- a/lisp/elide-head.el	Wed Oct 27 17:46:33 2004 +0000
+++ b/lisp/elide-head.el	Wed Oct 27 17:48:14 2004 +0000
@@ -98,7 +98,7 @@
 	    (if rest (setq rest (cdr rest))))
 	  (if (not (and beg end))
 	      (if (interactive-p)
-		  (error "No header found"))
+		  (message "No header found"))
 	    (goto-char beg)
 	    (end-of-line)
 	    (if (overlayp elide-head-overlay)
@@ -115,7 +115,7 @@
 	   (overlay-buffer elide-head-overlay))
       (delete-overlay elide-head-overlay)
     (if (interactive-p)
-	(error "No header hidden"))))
+	(message "No header hidden"))))
 
 (provide 'elide-head)