Mercurial > emacs
comparison lisp/elide-head.el @ 57751:d2b6a6d18cc9
(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 |
comparison
equal
deleted
inserted
replaced
| 57750:5d7aec33a1ba | 57751:d2b6a6d18cc9 |
|---|---|
| 96 (setq end (point-marker) | 96 (setq end (point-marker) |
| 97 rest nil)))) | 97 rest nil)))) |
| 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) |
| 105 (move-overlay elide-head-overlay (point-marker) end) | 105 (move-overlay elide-head-overlay (point-marker) end) |
| 106 (setq elide-head-overlay (make-overlay (point-marker) end))) | 106 (setq elide-head-overlay (make-overlay (point-marker) end))) |
| 113 (interactive) | 113 (interactive) |
| 114 (if (and (overlayp elide-head-overlay) | 114 (if (and (overlayp elide-head-overlay) |
| 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 |
| 122 ;;; arch-tag: a00e6b5b-6aeb-45b1-b734-63e23df80928 | 122 ;;; arch-tag: a00e6b5b-6aeb-45b1-b734-63e23df80928 |
| 123 ;;; elide-head.el ends here | 123 ;;; elide-head.el ends here |