[Emacs-diffs] Changes to emacs/lisp/vc-cvs.el,v

[Sam Steingold]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Sam Steingold <sds>     08/06/03 21:30:36

Index: vc-cvs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-cvs.el,v
retrieving revision 1.141
retrieving revision 1.142
diff -u -b -r1.141 -r1.142
--- vc-cvs.el   31 May 2008 15:32:10 -0000      1.141
+++ vc-cvs.el   3 Jun 2008 21:30:35 -0000       1.142
@@ -935,7 +935,7 @@
               (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 @@
           (file-error nil))))
     (concat
      (cond (module
-           (concat
-             (propertize "Module     : " 'face 'font-lock-type-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)
+           (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)