mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-14 16:50:58 +00:00
Code Issues Releases Activity

(cvs-insert-strings): Fix bug with strings longer than wwidth.

Browse Source
This commit is contained in:
Stefan Monnier 2006-03-31 21:33:03 +00:00
parent 59e8810f09
commit 1c50e1e59c
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2006-03-13 Stefan Monnier <monnier@iro.umontreal.ca>
* pcvs-util.el (cvs-insert-strings): Fix bug with strings longer than
wwidth.
2006-03-31 Juanma Barranquero <lekktu@gmail.com>
* 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 <monnier@iro.umontreal.ca>
* pcvs-util.el (cvs-insert-strings): Fix bug with strings longer than
wwidth.
2006-03-13 Ryan Yeske <rcyeske@gmail.com>
* net/rcirc.el (rcirc) <defgroup>: Add link to manual.

12
lisp/pcvs-util.el
View File

@ -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)