(mouse-choose-completion): New function.

[gnu-emacs] / lisp / diff.el

diff --git a/lisp/diff.el b/lisp/diff.el
index d4c5f5d3a2e53150876d3f77b8ec8da251185313..7043c9ac73e19ce1fef816b9abb237f757d220ae 100644 (file)
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -113,7 +113,8 @@ is nil, REGEXP matches only half a section.")
                                                (match-beginning subexpr)
                                                (match-end subexpr)))))
                                    (save-excursion
-                                     (set-buffer (find-file-noselect file))
+                                     (save-match-data
+                                       (set-buffer (find-file-noselect file)))
                                      (save-excursion
                                        (goto-line line)
                                        (point-marker)))))