mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(elide-head): Use point-marker more.

Browse Source
This commit is contained in:
Dave Love 2000-02-02 14:27:03 +00:00
parent 3ea96cacd5
commit b74ce5c2bd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/elide-head.el
View File

@ -103,7 +103,7 @@ This is suitable as an entry on `find-file-hooks' or appropriate mode hooks."
(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 'after-string "...")))))))