Lines Matching defs:overlay
33 ;; `elide-head'. A buffer-local invisible overlay manages the
65 elided with an invisible overlay from the end of the line where the
72 (defvar elide-head-overlay nil)
73 (make-variable-buffer-local 'elide-head-overlay)
79 The header is made invisible with an overlay. With a prefix arg, show
105 (if (overlayp elide-head-overlay)
106 (move-overlay elide-head-overlay (point-marker) end)
107 (setq elide-head-overlay (make-overlay (point-marker) end)))
108 (overlay-put elide-head-overlay 'invisible t)
109 (overlay-put elide-head-overlay 'evaporate t)
110 (overlay-put elide-head-overlay 'after-string "...")))))))
115 (if (and (overlayp elide-head-overlay)
116 (overlay-buffer elide-head-overlay))
117 (delete-overlay elide-head-overlay)