aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/vc
diff options
context:
space:
mode:
authorStefan Monnier2010-12-13 10:27:36 -0500
committerStefan Monnier2010-12-13 10:27:36 -0500
commitf49d1f52b2e368ef67dcfececd426de958548f4e (patch)
treece24ced92f2acc976daf4b69e3634c8bd600e44e /lisp/vc
parent07176b2a9e63a0d3933b167f987475d8a18da5cc (diff)
parent11aad4e9f9f54ce8e9ecc66347e512b20a3cdf39 (diff)
downloademacs-f49d1f52b2e368ef67dcfececd426de958548f4e.tar.gz
emacs-f49d1f52b2e368ef67dcfececd426de958548f4e.zip
Merge from emacs-23
Diffstat (limited to 'lisp/vc')
-rw-r--r--lisp/vc/diff-mode.el7
-rw-r--r--lisp/vc/log-edit.el2
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