[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el

[Stefan Monnier]

Index: emacs/lisp/pcvs-util.el
diff -u emacs/lisp/pcvs-util.el:1.28 emacs/lisp/pcvs-util.el:1.29
--- emacs/lisp/pcvs-util.el:1.28        Mon Feb  6 14:33:34 2006
+++ emacs/lisp/pcvs-util.el     Fri Mar 31 21:33:03 2006
@@ -157,10 +157,11 @@
       (setq tab-width colwidth)
       ;; The insertion should be "sensible" no matter what choices were made.
       (dolist (str strings)
-       (unless (bolp) (insert " \t"))
-       (when (< wwidth (+ (max colwidth (length str)) (current-column)))
-         (delete-char -2) (insert "\n"))
-       (insert str)))))
+       (unless (bolp)
+          (insert " \t")
+          (when (< wwidth (+ (max colwidth (length str)) (current-column)))
+            (delete-char -2) (insert "\n")))
+        (insert str)))))
 
 
 (defun cvs-file-to-string (file &optional oneline args)
@@ -357,7 +358,8 @@
   and reset the persistence."
   (let* ((prefix (symbol-value (cvs-prefix-sym sym)))
         (numarg (if (integerp arg) arg 0))
-        (defs (cvs-flags-defaults prefix)))
+        ;; (defs (cvs-flags-defaults prefix))
+         )
 
     ;; set persistence if requested
     (when (> (prefix-numeric-value arg) 9)