diff options
| author | Karoly Lorentey | 2004-04-18 01:40:02 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2004-04-18 01:40:02 +0000 |
| commit | f2e45864d10657552bbc5cda8f10a5dcf1bfe511 (patch) | |
| tree | 21af8d850cc6b15905949f6b2bc13733bfa7d184 /lisp/diff-mode.el | |
| parent | 9002956fd888928dcca6ba30bbb90c739741377a (diff) | |
| parent | 06e2fd488e846d50952025d07a5e12cc0cd4ff81 (diff) | |
| download | emacs-f2e45864d10657552bbc5cda8f10a5dcf1bfe511.tar.gz emacs-f2e45864d10657552bbc5cda8f10a5dcf1bfe511.zip | |
Merged in changes from CVS trunk.
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-220
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-221
Restore deleted tagline in etc/TUTORIAL.ru
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-222
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-223
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-224
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-225
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-144
Diffstat (limited to 'lisp/diff-mode.el')
| -rw-r--r-- | lisp/diff-mode.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index f6b2520a112..d41bfcad58a 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el | |||
| @@ -305,7 +305,11 @@ when editing big diffs)." | |||
| 305 | (defvar diff-narrowed-to nil) | 305 | (defvar diff-narrowed-to nil) |
| 306 | 306 | ||
| 307 | (defun diff-end-of-hunk (&optional style) | 307 | (defun diff-end-of-hunk (&optional style) |
| 308 | (if (looking-at diff-hunk-header-re) (goto-char (match-end 0))) | 308 | (when (looking-at diff-hunk-header-re) |
| 309 | (unless style | ||
| 310 | ;; Especially important for unified (because headers are ambiguous). | ||
| 311 | (setq style (cdr (assq (char-after) '((?@ . unified) (?* . context)))))) | ||
| 312 | (goto-char (match-end 0))) | ||
| 309 | (let ((end (and (re-search-forward (case style | 313 | (let ((end (and (re-search-forward (case style |
| 310 | ;; A `unified' header is ambiguous. | 314 | ;; A `unified' header is ambiguous. |
| 311 | (unified (concat "^[^-+# \\]\\|" | 315 | (unified (concat "^[^-+# \\]\\|" |