aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/smerge-mode.el
diff options
context:
space:
mode:
authorStefan Monnier <[email protected]>2007-03-08 20:12:55 +0000
committerStefan Monnier <[email protected]>2007-03-08 20:12:55 +0000
commit0778a62fff458712383895e429ee46242f64d553 (patch)
tree97a7b7136ebd207a4cce4812fde59b54e2b7795f /lisp/smerge-mode.el
parenteae7eecde067300cbc70617b41d82dbadf2e3046 (diff)
(smerge-remove-props): Don't mark the buffer modified.
(debug-ignored-errors): Add entry from smerge-match-conflict.
Diffstat (limited to 'lisp/smerge-mode.el')
-rw-r--r--lisp/smerge-mode.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/smerge-mode.el b/lisp/smerge-mode.el
index bda569a1e0..8e239ab5a2 100644
--- a/lisp/smerge-mode.el
+++ b/lisp/smerge-mode.el
@@ -345,7 +345,9 @@ according to `smerge-match-conflict'.")
;; during font-locking so inhibit-modification-hooks is non-nil, so we
;; can't just modify the buffer and expect font-lock to be triggered as in:
;; (put-text-property beg end 'smerge-force-highlighting nil)
- (remove-text-properties beg end '(fontified nil)))
+ (let ((modified (buffer-modified-p)))
+ (remove-text-properties beg end '(fontified nil))
+ (restore-buffer-modified-p modified)))
(defun smerge-popup-context-menu (event)
"Pop up the Smerge mode context menu under mouse."
@@ -558,6 +560,8 @@ An error is raised if not inside a conflict."
t)
(search-failed (error "Point not in conflict region")))))
+(add-to-list 'debug-ignored-errors "Point not in conflict region")
+
(defun smerge-conflict-overlay (pos)
"Return the conflict overlay at POS if any."
(let ((ols (overlays-at pos))