diff options
| author | Dave Love <fx@gnu.org> | 2000-01-10 16:26:35 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-01-10 16:26:35 +0000 |
| commit | b88a9e9ffe73217a1e8277993d358f2c4db78a68 (patch) | |
| tree | 6ab18a9128b62f65f5ec7c10d6974cc89f7c51f4 /lisp/elide-head.el | |
| parent | 8321b22a9337d0b1bea77531f20a315ddf99a9b3 (diff) | |
| download | emacs-b88a9e9ffe73217a1e8277993d358f2c4db78a68.tar.gz | |
(elide-head): Use point-marker, not point.
Diffstat (limited to 'lisp/elide-head.el')
| -rw-r--r-- | lisp/elide-head.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/elide-head.el b/lisp/elide-head.el index 8c8d4eb2c93..cdf72ddda6b 100644 --- a/lisp/elide-head.el +++ b/lisp/elide-head.el @@ -93,7 +93,7 @@ This is suitable as an entry on `find-file-hooks' or appropriate mode hooks." (when (re-search-forward (caar rest) nil t) (setq beg (point)) (when (re-search-forward (cdar rest) nil t) - (setq end (point) + (setq end (point-marker) rest nil)))) (if rest (setq rest (cdr rest)))) (if (not (and beg end)) @@ -102,7 +102,7 @@ This is suitable as an entry on `find-file-hooks' or appropriate mode hooks." (goto-char beg) (end-of-line) (if (overlayp elide-head-overlay) - (move-overlay elide-head-overlay (point) end) + (move-overlay elide-head-overlay (point-marker) end) (setq elide-head-overlay (make-overlay (point) end))) (overlay-put elide-head-overlay 'invisible t) (overlay-put elide-head-overlay 'intangible t) |