From: Juanma Barranquero Date: Mon, 4 Jul 2005 01:55:56 +0000 (+0000) Subject: (diff-mode): Finish `defgroup' description with period. X-Git-Tag: emacs-pretest-22.0.90~8437 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa753196b93c3b7901f4cb4a0392f9f3940e3091;p=emacs.git (diff-mode): Finish `defgroup' description with period. (diff-context->unified, diff-reverse-direction, diff-unified->context): "?\ " -> "?\s". --- diff --git a/lisp/diff-mode.el b/lisp/diff-mode.el index 1cb5111dcfb..20094895660 100644 --- a/lisp/diff-mode.el +++ b/lisp/diff-mode.el @@ -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 @@ else cover the whole bufer." (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 @@ else cover the whole bufer." (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 @@ else cover the whole bufer." (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 @@ else cover the whole bufer." (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)