aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog10
-rw-r--r--lisp/pcvs-util.el12
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 @@
12006-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
12006-03-31 Juanma Barranquero <lekktu@gmail.com> 62006-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
4432006-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
4482006-03-13 Ryan Yeske <rcyeske@gmail.com> 4482006-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)