;; elision.
;; You might add `elide-head' to appropriate major mode hooks or to
-;; `find-file-hooks'. Please do this in site init files. If you do,
-;; information may be hidden from users who don't know it already.
+;; `find-file-hooks'. Please do not do this in site init files. If
+;; you do, information may be hidden from users who don't know it
+;; already.
+
+;; Note that `hs-minor-mode' will do a similar job by default, but
+;; it's not selective about what leading commentary it hides.
;; Inspired by jwz's hide-copyleft.el, for which we don't have an
;; assignment.
(defgroup elide-head nil
"Eliding copyright headers and the like in source files."
+ :version "21.1"
:prefix "elide-head"
:group 'tools)
(when (re-search-forward (caar rest) nil t)
(setq beg (point))
(when (re-search-forward (cdar rest) nil t)
- (setq end (point)
+ (setq end (point-marker)
rest nil))))
(if rest (setq rest (cdr rest))))
(if (not (and beg end))
(goto-char beg)
(end-of-line)
(if (overlayp elide-head-overlay)
- (move-overlay elide-head-overlay (point) end)
- (setq elide-head-overlay (make-overlay (point) end)))
+ (move-overlay elide-head-overlay (point-marker) end)
+ (setq elide-head-overlay (make-overlay (point-marker) end)))
(overlay-put elide-head-overlay 'invisible t)
(overlay-put elide-head-overlay 'intangible t)
(overlay-put elide-head-overlay 'after-string "...")))))))