diff options
| author | Dave Love | 2001-01-29 17:38:03 +0000 |
|---|---|---|
| committer | Dave Love | 2001-01-29 17:38:03 +0000 |
| commit | d30e6710ecd155aad24f4af5829c3b25970c8121 (patch) | |
| tree | d52b1106a79dce80d15965881bb81ae0791791bf | |
| parent | 8e1db7b326f031f850467c54b20e0fbdc6a7bebc (diff) | |
| download | emacs-d30e6710ecd155aad24f4af5829c3b25970c8121.tar.gz emacs-d30e6710ecd155aad24f4af5829c3b25970c8121.zip | |
(elide-head): Make overlay evaporate.
| -rw-r--r-- | lisp/elide-head.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/elide-head.el b/lisp/elide-head.el index 50c77684ae5..9cd592057dc 100644 --- a/lisp/elide-head.el +++ b/lisp/elide-head.el | |||
| @@ -106,6 +106,7 @@ This is suitable as an entry on `find-file-hooks' or appropriate mode hooks." | |||
| 106 | (setq elide-head-overlay (make-overlay (point-marker) end))) | 106 | (setq elide-head-overlay (make-overlay (point-marker) end))) |
| 107 | (overlay-put elide-head-overlay 'invisible t) | 107 | (overlay-put elide-head-overlay 'invisible t) |
| 108 | (overlay-put elide-head-overlay 'intangible t) | 108 | (overlay-put elide-head-overlay 'intangible t) |
| 109 | (overlay-put elide-head-overlay 'evaporate t) | ||
| 109 | (overlay-put elide-head-overlay 'after-string "..."))))))) | 110 | (overlay-put elide-head-overlay 'after-string "..."))))))) |
| 110 | 111 | ||
| 111 | (defun elide-head-show () | 112 | (defun elide-head-show () |