98 |
(if rest (setq rest (cdr rest)))) |
(if rest (setq rest (cdr rest)))) |
99 |
(if (not (and beg end)) |
(if (not (and beg end)) |
100 |
(if (interactive-p) |
(if (interactive-p) |
101 |
(error "No header found")) |
(message "No header found")) |
102 |
(goto-char beg) |
(goto-char beg) |
103 |
(end-of-line) |
(end-of-line) |
104 |
(if (overlayp elide-head-overlay) |
(if (overlayp elide-head-overlay) |
115 |
(overlay-buffer elide-head-overlay)) |
(overlay-buffer elide-head-overlay)) |
116 |
(delete-overlay elide-head-overlay) |
(delete-overlay elide-head-overlay) |
117 |
(if (interactive-p) |
(if (interactive-p) |
118 |
(error "No header hidden")))) |
(message "No header hidden")))) |
119 |
|
|
120 |
(provide 'elide-head) |
(provide 'elide-head) |
121 |
|
|