# HG changeset patch # User Juanma Barranquero # Date 1120442156 0 # Node ID ea880752de3b0d0afb1f055ebb95e1b57aeda318 # Parent bf6ae7cf12eb9c177024e0691daf88f5bd10704f (diff-mode): Finish `defgroup' description with period. (diff-context->unified, diff-reverse-direction, diff-unified->context): "?\ " -> "?\s". diff -r bf6ae7cf12eb -r ea880752de3b lisp/diff-mode.el --- a/lisp/diff-mode.el Mon Jul 04 01:53:04 2005 +0000 +++ b/lisp/diff-mode.el Mon Jul 04 01:55:56 2005 +0000 @@ -57,7 +57,7 @@ (defgroup diff-mode () - "Major mode for viewing/editing diffs" + "Major mode for viewing/editing diffs." :version "21.1" :group 'tools :group 'diff) @@ -640,7 +640,7 @@ (while (progn (setq last-pt (point)) (= (forward-line -1) 0)) (case (char-after) - (? (insert " ") (setq modif nil) (backward-char 1)) + (?s (insert " ") (setq modif nil) (backward-char 1)) (?+ (delete-region (point) last-pt) (setq modif t)) (?- (if (not modif) (progn (forward-char 1) @@ -723,7 +723,7 @@ (while (< (point) pt2) (case (char-after) ((?! ?-) (delete-char 2) (insert "-") (forward-line 1)) - (?\ ;merge with the other half of the chunk + (?\s ;merge with the other half of the chunk (let* ((endline2 (save-excursion (goto-char pt2) (forward-line 1) (point))) @@ -733,7 +733,7 @@ (insert "+" (prog1 (buffer-substring (+ pt2 2) endline2) (delete-region pt2 endline2)))) - (?\ ;FIXME: check consistency + (?\s ;FIXME: check consistency (delete-region pt2 endline2) (delete-char 1) (forward-line 1)) @@ -814,7 +814,7 @@ (t (when (and first last (< first last)) (insert (delete-and-extract-region first last))) (setq first nil last nil) - (equal ?\ c))) + (equal ?\s c))) (forward-line 1)))))))))) (defun diff-fixup-modifs (start end)