From 1c50e1e59c1289bfa80d8aea15e7da957450e860 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 31 Mar 2006 21:33:03 +0000 Subject: [PATCH] (cvs-insert-strings): Fix bug with strings longer than wwidth. --- lisp/ChangeLog | 10 +++++----- 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 @@ +2006-03-13 Stefan Monnier + + * pcvs-util.el (cvs-insert-strings): Fix bug with strings longer than + wwidth. + 2006-03-31 Juanma Barranquero * ido.el (ido-cache-unc-host-shares-time, ido-report-no-match) @@ -440,11 +445,6 @@ * tree-widget.el (tree-widget-themes-load-path) (tree-widget-themes-directory, tree-widget-theme): Doc fix. -2006-03-13 Stefan Monnier - - * pcvs-util.el (cvs-insert-strings): Fix bug with strings longer than - wwidth. - 2006-03-13 Ryan Yeske * net/rcirc.el (rcirc) : 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." (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) -- 2.39.2