diff options
| author | Richard M. Stallman | 2004-10-27 17:48:14 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2004-10-27 17:48:14 +0000 |
| commit | 636004b9726f96516795a3befd028cb73a140a26 (patch) | |
| tree | aacf3118f7aa34b17595f1ab1264fc1d820aa71f | |
| parent | b965722b347d5c2c545e06704b415975c3a679b7 (diff) | |
| download | emacs-636004b9726f96516795a3befd028cb73a140a26.tar.gz emacs-636004b9726f96516795a3befd028cb73a140a26.zip | |
(elide-head): Change error to message.
(elide-head-show): Likewise.
| -rw-r--r-- | lisp/elide-head.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/elide-head.el b/lisp/elide-head.el index 8fc8e12a3fb..fed6ecee7af 100644 --- a/lisp/elide-head.el +++ b/lisp/elide-head.el | |||
| @@ -98,7 +98,7 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks." | |||
| 98 | (if rest (setq rest (cdr rest)))) | 98 | (if rest (setq rest (cdr rest)))) |
| 99 | (if (not (and beg end)) | 99 | (if (not (and beg end)) |
| 100 | (if (interactive-p) | 100 | (if (interactive-p) |
| 101 | (error "No header found")) | 101 | (message "No header found")) |
| 102 | (goto-char beg) | 102 | (goto-char beg) |
| 103 | (end-of-line) | 103 | (end-of-line) |
| 104 | (if (overlayp elide-head-overlay) | 104 | (if (overlayp elide-head-overlay) |
| @@ -115,7 +115,7 @@ This is suitable as an entry on `find-file-hook' or appropriate mode hooks." | |||
| 115 | (overlay-buffer elide-head-overlay)) | 115 | (overlay-buffer elide-head-overlay)) |
| 116 | (delete-overlay elide-head-overlay) | 116 | (delete-overlay elide-head-overlay) |
| 117 | (if (interactive-p) | 117 | (if (interactive-p) |
| 118 | (error "No header hidden")))) | 118 | (message "No header hidden")))) |
| 119 | 119 | ||
| 120 | (provide 'elide-head) | 120 | (provide 'elide-head) |
| 121 | 121 | ||