-;;; elid-head.el --- hide headers in files
+;;; elide-head.el --- hide headers in files
;; Copyright (C) 1999 Free Software Foundation, Inc.
(end-of-line)
(if (overlayp elide-head-overlay)
(move-overlay elide-head-overlay (point-marker) end)
- (setq elide-head-overlay (make-overlay (point) 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 'evaporate t)
(overlay-put elide-head-overlay 'after-string "...")))))))
(defun elide-head-show ()