diff options
| -rw-r--r-- | lisp/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/pcvs-util.el | 12 |
2 files changed, 12 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bba6b2f0564..b073528cd68 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2006-03-13 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * pcvs-util.el (cvs-insert-strings): Fix bug with strings longer than | ||
| 4 | wwidth. | ||
| 5 | |||
| 1 | 2006-03-31 Juanma Barranquero <lekktu@gmail.com> | 6 | 2006-03-31 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 7 | ||
| 3 | * ido.el (ido-cache-unc-host-shares-time, ido-report-no-match) | 8 | * ido.el (ido-cache-unc-host-shares-time, ido-report-no-match) |
| @@ -440,11 +445,6 @@ | |||
| 440 | * tree-widget.el (tree-widget-themes-load-path) | 445 | * tree-widget.el (tree-widget-themes-load-path) |
| 441 | (tree-widget-themes-directory, tree-widget-theme): Doc fix. | 446 | (tree-widget-themes-directory, tree-widget-theme): Doc fix. |
| 442 | 447 | ||
| 443 | 2006-03-13 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 444 | |||
| 445 | * pcvs-util.el (cvs-insert-strings): Fix bug with strings longer than | ||
| 446 | wwidth. | ||
| 447 | |||
| 448 | 2006-03-13 Ryan Yeske <rcyeske@gmail.com> | 448 | 2006-03-13 Ryan Yeske <rcyeske@gmail.com> |
| 449 | 449 | ||
| 450 | * net/rcirc.el (rcirc) <defgroup>: Add link to manual. | 450 | * net/rcirc.el (rcirc) <defgroup>: Add link to manual. |
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." | |||
| 157 | (setq tab-width colwidth) | 157 | (setq tab-width colwidth) |
| 158 | ;; The insertion should be "sensible" no matter what choices were made. | 158 | ;; The insertion should be "sensible" no matter what choices were made. |
| 159 | (dolist (str strings) | 159 | (dolist (str strings) |
| 160 | (unless (bolp) (insert " \t")) | 160 | (unless (bolp) |
| 161 | (when (< wwidth (+ (max colwidth (length str)) (current-column))) | 161 | (insert " \t") |
| 162 | (delete-char -2) (insert "\n")) | 162 | (when (< wwidth (+ (max colwidth (length str)) (current-column))) |
| 163 | (insert str))))) | 163 | (delete-char -2) (insert "\n"))) |
| 164 | (insert str))))) | ||
| 164 | 165 | ||
| 165 | 166 | ||
| 166 | (defun cvs-file-to-string (file &optional oneline args) | 167 | (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 | |||
| 357 | and reset the persistence." | 358 | and reset the persistence." |
| 358 | (let* ((prefix (symbol-value (cvs-prefix-sym sym))) | 359 | (let* ((prefix (symbol-value (cvs-prefix-sym sym))) |
| 359 | (numarg (if (integerp arg) arg 0)) | 360 | (numarg (if (integerp arg) arg 0)) |
| 360 | (defs (cvs-flags-defaults prefix))) | 361 | ;; (defs (cvs-flags-defaults prefix)) |
| 362 | ) | ||
| 361 | 363 | ||
| 362 | ;; set persistence if requested | 364 | ;; set persistence if requested |
| 363 | (when (> (prefix-numeric-value arg) 9) | 365 | (when (> (prefix-numeric-value arg) 9) |