diff options
| author | Stefan Monnier | 2025-06-26 12:55:27 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2025-06-26 12:55:27 -0400 |
| commit | a002ca79ee7f536cb2293af1c7e712a251638fbf (patch) | |
| tree | 39e70ef3dcfbe8ae0a1806f5fbdedbf902f072d1 | |
| parent | 80cb688b04b11a0f2291a3dfb26c16febfdea4cd (diff) | |
| download | emacs-a002ca79ee7f536cb2293af1c7e712a251638fbf.tar.gz emacs-a002ca79ee7f536cb2293af1c7e712a251638fbf.zip | |
lisp/vc/smerge-mode.el (smerge--refine-highlight-change): Fix misalignment
| -rw-r--r-- | lisp/vc/smerge-mode.el | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lisp/vc/smerge-mode.el b/lisp/vc/smerge-mode.el index f333890a6f3..0a9e07cf78b 100644 --- a/lisp/vc/smerge-mode.el +++ b/lisp/vc/smerge-mode.el | |||
| @@ -1093,10 +1093,14 @@ chars to try and eliminate some spurious differences." | |||
| 1093 | (not (memq (car-safe x) '(face font-lock-face)))) | 1093 | (not (memq (car-safe x) '(face font-lock-face)))) |
| 1094 | (overlay-put ol (car x) (cdr x)) | 1094 | (overlay-put ol (car x) (cdr x)) |
| 1095 | ;; Don't highlight the char we cover artificially. | 1095 | ;; Don't highlight the char we cover artificially. |
| 1096 | (overlay-put ol (if (= beg olbeg) 'before-string 'after-string) | 1096 | ;; FIXME: We don't want to insert any space because it |
| 1097 | (propertize | 1097 | ;; causes misalignment. A `:box' face with a line |
| 1098 | " " (car-safe x) (cdr-safe x) | 1098 | ;; only on one side would be a good solution. |
| 1099 | 'display '(space :width 0.5))))) | 1099 | ;; (overlay-put ol (if (= beg olbeg) 'before-string 'after-string) |
| 1100 | ;; (propertize | ||
| 1101 | ;; " " (car-safe x) (cdr-safe x) | ||
| 1102 | ;; 'display '(space :width 0.5))) | ||
| 1103 | )) | ||
| 1100 | ol))))) | 1104 | ol))))) |
| 1101 | 1105 | ||
| 1102 | (defcustom smerge-refine-shadow-cursor t | 1106 | (defcustom smerge-refine-shadow-cursor t |