diff options
| author | Stefan Monnier | 2007-02-07 17:08:36 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2007-02-07 17:08:36 +0000 |
| commit | a3ee90d98c9ea11877df683a39d394af97e7dfae (patch) | |
| tree | bb70ee87ca7436e9634abe31d308da451c13dc5d | |
| parent | ed3e1544d4a66e6eb2d30a0c783bf1cc8b644630 (diff) | |
| download | emacs-a3ee90d98c9ea11877df683a39d394af97e7dfae.tar.gz emacs-a3ee90d98c9ea11877df683a39d394af97e7dfae.zip | |
*** empty log message ***
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/diff-mode.el | 4 |
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 @@ | |||
| 1 | 2007-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 | |||
| 1 | 2007-02-07 Juanma Barranquero <lekktu@gmail.com> | 6 | 2007-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)))) |