diff options
| author | Chong Yidong <cyd@gnu.org> | 2012-12-08 00:25:28 +0800 |
|---|---|---|
| committer | Chong Yidong <cyd@gnu.org> | 2012-12-08 00:25:28 +0800 |
| commit | 454eb09524ef6e8c25ea7dc8b9fd6fadb0bb1a5c (patch) | |
| tree | 20c9b7f8f603c8b975c4ec736d0c54f279cc3423 /lisp/subr.el | |
| parent | 75498db059d2719ee30c4bd0d39f8fbcf07582be (diff) | |
| download | emacs-454eb09524ef6e8c25ea7dc8b9fd6fadb0bb1a5c.tar.gz emacs-454eb09524ef6e8c25ea7dc8b9fd6fadb0bb1a5c.tar.bz2 emacs-454eb09524ef6e8c25ea7dc8b9fd6fadb0bb1a5c.zip | |
* subr.el (text-clone-maintain): Fix clone overlay deletion
when a syntax is specified.
Fixes: debbugs:13025
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index edc2927d673..e08277370a9 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3847,7 +3847,7 @@ This is used on the `modification-hooks' property of text clones." (if (not (re-search-forward (overlay-get ol1 'text-clone-syntax) cend t)) ;; Mark the overlay for deletion. - (overlay-put ol1 'text-clones nil) + (setq end cbeg) (when (< (match-end 0) cend) ;; Shrink the clone at its end. (setq end (min end (match-end 0))) |