(vc-cvs-status-extra-headers): Remove extraneous newlines.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1cdfc807853495ee7477ba35fc31d1ecc9ea1d19..e509a80e24e73b9c722eca3d50a9ccd827b0d169 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-03  Sam Steingold  <sds@gnu.org>
+
+       * vc-cvs.el (vc-cvs-status-extra-headers): Remove extraneous newlines.
+
 2008-06-03  John Paul Wallington  <jpw@pobox.com>
 
        * progmodes/make-mode.el (makefile-cleanup-continuations)

diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index dfec8b9541fcea991e071d43ba1ea756984c932c..63b6794c0e12773ff6364b590dd8c3744848c552 100644 (file)
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -251,13 +251,13 @@ committed and support display of sticky tags."
         help-echo
         (string
           (let ((def-ml (vc-default-mode-line-string 'CVS file)))
-            (setq help-echo 
+            (setq help-echo
                   (get-text-property 0 'help-echo def-ml))
             def-ml)))
-    (propertize 
+    (propertize
      (if (zerop (length sticky-tag))
         string
-       (setq help-echo (format "%s on the '%s' branch" 
+       (setq help-echo (format "%s on the '%s' branch"
                               help-echo sticky-tag))
        (concat string "[" sticky-tag "]"))
      'help-echo help-echo)))
@@ -422,7 +422,7 @@ The changes are between FIRST-REVISION and SECOND-REVISION."
   (with-current-buffer (get-buffer "*vc*")
     (goto-char (point-min))
     (if (re-search-forward "conflicts during merge" nil t)
-       (progn 
+       (progn
          (vc-file-setprop file 'vc-state 'conflict)
          ;; signal error
          1)
@@ -477,7 +477,7 @@ The changes are between FIRST-REVISION and SECOND-REVISION."
       (message "Merging changes into %s...done" file))))
 
 (defun vc-cvs-modify-change-comment (files rev comment)
-  "Modify the change comments for FILES on a specified REV. 
+  "Modify the change comments for FILES on a specified REV.
 Will fail unless you have administrative privileges on the repo."
   (vc-cvs-command nil 0 files "admin" (concat "-m" rev ":" comment)))
 
@@ -850,7 +850,7 @@ state."
        (setq subdir (expand-file-name (match-string 1))))
       ;; Unregistered files
       (while (looking-at "? \\(.*\\)")
-       (setq file (file-relative-name 
+       (setq file (file-relative-name
                    (expand-file-name (match-string 1) subdir)))
        (push (list file 'unregistered) result)
        (forward-line 1))
@@ -890,8 +890,8 @@ state."
   ;;   (goto-char (point-min))
   ;;   (while (not (eobp))
   ;;     (if (looking-at "^[ACMPRU?] \\(.*\\)$")
-  ;;     (push (list (match-string 1) 
-  ;;                 (cdr (assoc (char-after) translation))) 
+  ;;     (push (list (match-string 1)
+  ;;                 (cdr (assoc (char-after) translation)))
   ;;           result)
   ;;   (cond
   ;;    ((looking-at "cvs update: warning: \\(.*\\) was lost")
@@ -935,7 +935,7 @@ state."
               (insert-file-contents "CVS/Root")
               (goto-char (point-min))
               (and (looking-at ":ext:") (delete-char 5))
-              (buffer-substring (point) (point-max)))
+              (buffer-substring (point) (1- (point-max))))
           (file-error nil)))
        (module
         (condition-case nil
@@ -947,17 +947,15 @@ state."
           (file-error nil))))
     (concat
      (cond (module
-           (concat
-             (propertize "Module     : " 'face 'font-lock-type-face)
-             (propertize module 'face 'font-lock-variable-name-face)))
+           (concat (propertize "Module     : " 'face 'font-lock-type-face)
+                    (propertize module 'face 'font-lock-variable-name-face)))
           (t ""))
      (cond (repo
-           (concat
-             (propertize "Repository : " 'face 'font-lock-type-face)
-             (propertize repo 'face 'font-lock-variable-name-face)))
+           (concat (propertize "Repository : " 'face 'font-lock-type-face)
+                    (propertize repo 'face 'font-lock-variable-name-face)))
           (t ""))
-     ;; In CVS, branch is a per-file property, not a per-directory property.  We 
-     ;; can't really do this here without making dangerous assumptions. 
+     ;; In CVS, branch is a per-file property, not a per-directory property.
+     ;; We can't really do this here without making dangerous assumptions.
      ;;(propertize "Branch:     " 'face 'font-lock-type-face)
      ;;(propertize "ADD CODE TO PRINT THE BRANCH NAME\n"
      ;;         'face 'font-lock-warning-face)
@@ -1107,7 +1105,7 @@ is non-nil."
     (setq table (lazy-completion-table
                  table (lambda () (vc-cvs-revision-table (car files)))))
     table))
-                                           
+
 
 (provide 'vc-cvs)