aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2007-02-07 17:08:36 +0000
committerStefan Monnier2007-02-07 17:08:36 +0000
commita3ee90d98c9ea11877df683a39d394af97e7dfae (patch)
treebb70ee87ca7436e9634abe31d308da451c13dc5d
parented3e1544d4a66e6eb2d30a0c783bf1cc8b644630 (diff)
downloademacs-a3ee90d98c9ea11877df683a39d394af97e7dfae.tar.gz
emacs-a3ee90d98c9ea11877df683a39d394af97e7dfae.zip
*** empty log message ***
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/diff-mode.el4
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fd6a28527e8..733d8496022 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12007-02-07 Per Cederqvist <ceder@lysator.liu.se> (tiny change)
2
3 * diff-mode.el (diff-sanity-check-hunk): Don't reject the hunk
4 just because the diff was produced using "-p" (--show-c-function).
5
12007-02-07 Juanma Barranquero <lekktu@gmail.com> 62007-02-07 Juanma Barranquero <lekktu@gmail.com>
2 7
3 * faces.el (frame-set-background-mode): Use `color-values' and 8 * faces.el (frame-set-background-mode): Use `color-values' and
diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el
index edf7317f2b4..8d61e0ba0fc 100644
--- a/lisp/diff-mode.el
+++ b/lisp/diff-mode.el
@@ -1115,7 +1115,7 @@ Only works for unified diffs."
1115 1115
1116 ;; A context diff. 1116 ;; A context diff.
1117 ((eq (char-after) ?*) 1117 ((eq (char-after) ?*)
1118 (if (not (looking-at "\\*\\{15\\}\n\\*\\*\\* \\([0-9]+\\),\\([0-9]+\\) \\*\\*\\*\\*$")) 1118 (if (not (looking-at "\\*\\{15\\}\n\\*\\*\\* \\([0-9]+\\),\\([0-9]+\\) \\*\\*\\*\\*"))
1119 (error "Unrecognized context diff first hunk header format") 1119 (error "Unrecognized context diff first hunk header format")
1120 (forward-line 2) 1120 (forward-line 2)
1121 (diff-sanity-check-context-hunk-half 1121 (diff-sanity-check-context-hunk-half
@@ -1131,7 +1131,7 @@ Only works for unified diffs."
1131 ;; A unified diff. 1131 ;; A unified diff.
1132 ((eq (char-after) ?@) 1132 ((eq (char-after) ?@)
1133 (if (not (looking-at 1133 (if (not (looking-at
1134 "@@ -[0-9]+,\\([0-9]+\\) \\+[0-9]+,\\([0-9]+\\) @@$")) 1134 "@@ -[0-9]+,\\([0-9]+\\) \\+[0-9]+,\\([0-9]+\\) @@"))
1135 (error "Unrecognized unified diff hunk header format") 1135 (error "Unrecognized unified diff hunk header format")
1136 (let ((before (string-to-number (match-string 1))) 1136 (let ((before (string-to-number (match-string 1)))
1137 (after (string-to-number (match-string 2)))) 1137 (after (string-to-number (match-string 2))))