diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-03-31 21:33:03 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2006-03-31 21:33:03 +0000 |
| commit | 1c50e1e59c1289bfa80d8aea15e7da957450e860 (patch) | |
| tree | 1a6d4e3dc8d78afa47c2bc06f210da444b060d83 /lisp/pcvs-util.el | |
| parent | 59e8810f09da1107f2f895b84b6b9179d3461093 (diff) | |
| download | emacs-1c50e1e59c1289bfa80d8aea15e7da957450e860.tar.gz | |
(cvs-insert-strings): Fix bug with strings longer than wwidth.
Diffstat (limited to 'lisp/pcvs-util.el')
| -rw-r--r-- | lisp/pcvs-util.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/pcvs-util.el b/lisp/pcvs-util.el index 9ff40d09494..b04f3c121a1 100644 --- a/lisp/pcvs-util.el +++ b/lisp/pcvs-util.el @@ -157,10 +157,11 @@ Uses columns to keep the listing readable but compact." (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 @@ If ARG is nil toggle the PREFIX's value between its 0th default and nil 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) |