Mercurial > emacs

diff lisp/diff.el @ 1179:7961d1af11a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Sun, 20 Sep 1992 20:58:22 +0000
parents 05c961416bb5
children 92554bb95d51
line wrap: on
line diff
--- a/lisp/diff.el	Sun Sep 20 20:17:16 1992 +0000
+++ b/lisp/diff.el	Sun Sep 20 20:58:22 1992 +0000
@@ -24,7 +24,7 @@
 
 (require 'compile)
 
-(defvar diff-switches nil
+(defvar diff-switches "-c"
   "*A string or list of strings specifying switches to be be passed to diff.")
 
 (defvar diff-regexp-alist
@@ -93,9 +93,14 @@
 	 (function (lambda (file subexpr)
 		     (setq compilation-error-list
 			   (cons
-			    (cons (set-marker (make-marker)
-					      (match-beginning subexpr)
-					      (current-buffer))
+			    (cons (save-excursion
+				    ;; Report location of message
+				    ;; at beginning of line.
+				    (goto-char
+				     (match-beginning subexpr))
+				    (beginning-of-line)
+				    (point-marker))
+				  ;; Report location of corresponding text.
 				  (let ((line (string-to-int
 					       (buffer-substring
 						(match-beginning subexpr)