diff options
| author | Dave Love | 2000-02-02 14:27:03 +0000 |
|---|---|---|
| committer | Dave Love | 2000-02-02 14:27:03 +0000 |
| commit | b74ce5c2bd096f90238217f67973f6d0f0920739 (patch) | |
| tree | 10ce63999c82cebb65402ebe55a51fa5dba6a991 | |
| parent | 3ea96cacd5cfffa0f535199924daa48c30894858 (diff) | |
| download | emacs-b74ce5c2bd096f90238217f67973f6d0f0920739.tar.gz emacs-b74ce5c2bd096f90238217f67973f6d0f0920739.zip | |
(elide-head): Use point-marker more.
| -rw-r--r-- | lisp/elide-head.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/elide-head.el b/lisp/elide-head.el index cdf72ddda6b..50c77684ae5 100644 --- a/lisp/elide-head.el +++ b/lisp/elide-head.el | |||
| @@ -103,7 +103,7 @@ This is suitable as an entry on `find-file-hooks' or appropriate mode hooks." | |||
| 103 | (end-of-line) | 103 | (end-of-line) |
| 104 | (if (overlayp elide-head-overlay) | 104 | (if (overlayp elide-head-overlay) |
| 105 | (move-overlay elide-head-overlay (point-marker) end) | 105 | (move-overlay elide-head-overlay (point-marker) end) |
| 106 | (setq elide-head-overlay (make-overlay (point) 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 'after-string "..."))))))) | 109 | (overlay-put elide-head-overlay 'after-string "..."))))))) |