mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(elide-head): Change error to message.

Browse Source 
(elide-head-show): Likewise.
This commit is contained in:
Richard M. Stallman 2004-10-27 17:48:14 +00:00
parent b965722b34
commit 636004b972
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/elide-head.el
View File

@ -98,7 +98,7 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks."
(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 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks."
(overlay-buffer elide-head-overlay))
(delete-overlay elide-head-overlay)
(if (interactive-p)
(error "No header hidden"))))
(message "No header hidden"))))
(provide 'elide-head)