diff options
Diffstat (limited to 'lisp/vc')
| -rw-r--r-- | lisp/vc/diff-mode.el | 7 | ||||
| -rw-r--r-- | lisp/vc/log-edit.el | 2 |
2 files changed, 6 insertions, 3 deletions
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index cec4fb24616..c16c2460e75 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el | |||
| @@ -1829,10 +1829,13 @@ For use in `add-log-current-defun-function'." | |||
| 1829 | (eval-and-compile (require 'smerge-mode)) | 1829 | (eval-and-compile (require 'smerge-mode)) |
| 1830 | (save-excursion | 1830 | (save-excursion |
| 1831 | (diff-beginning-of-hunk 'try-harder) | 1831 | (diff-beginning-of-hunk 'try-harder) |
| 1832 | (let* ((style (diff-hunk-style)) ;Skips the hunk header as well. | 1832 | (let* ((start (point)) |
| 1833 | (style (diff-hunk-style)) ;Skips the hunk header as well. | ||
| 1833 | (beg (point)) | 1834 | (beg (point)) |
| 1834 | (props '((diff-mode . fine) (face diff-refine-change))) | 1835 | (props '((diff-mode . fine) (face diff-refine-change))) |
| 1835 | (end (progn (diff-end-of-hunk) (point)))) | 1836 | ;; Be careful to go back to `start' so diff-end-of-hunk gets |
| 1837 | ;; to read the hunk header's line info. | ||
| 1838 | (end (progn (goto-char start) (diff-end-of-hunk) (point)))) | ||
| 1836 | 1839 | ||
| 1837 | (remove-overlays beg end 'diff-mode 'fine) | 1840 | (remove-overlays beg end 'diff-mode 'fine) |
| 1838 | 1841 | ||
diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el index 2bce58f50f2..c7f37c50011 100644 --- a/lisp/vc/log-edit.el +++ b/lisp/vc/log-edit.el | |||
| @@ -774,7 +774,7 @@ where LOGBUFFER is the name of the ChangeLog buffer, and each | |||
| 774 | (setq pattern (file-name-nondirectory file))) | 774 | (setq pattern (file-name-nondirectory file))) |
| 775 | 775 | ||
| 776 | (setq pattern (concat "\\(^\\|[^[:alnum:]]\\)" | 776 | (setq pattern (concat "\\(^\\|[^[:alnum:]]\\)" |
| 777 | pattern | 777 | (regexp-quote pattern) |
| 778 | "\\($\\|[^[:alnum:]]\\)")) | 778 | "\\($\\|[^[:alnum:]]\\)")) |
| 779 | 779 | ||
| 780 | (let (texts | 780 | (let (texts |