Re: gnus-correct-length vs. string-width

[Simon Josefsson <jas@extundo.com>]

Jesper Harder <harder@ifa.au.dk> writes:

> Is the built-in function `string-width' known to be broken?

When I try the examples from the original thread
(<87itf461hj.fsf@inanna.rimspace.net> etc) `string-width' works fine.
(format "%-10s" ...) with wide characters still behaves differently
between Emacs and XEmacs though, but that shouldn't matter.

> I'm asking because the Gnus substitute `gnus-correct-length' seems to be
> horribly expensive in comparison -- it really degrades performance when
> generating summary buffers.  Here's the elp results for entering an NNTP
> group with 4000 messages:

Could CJK people please try running with the patch below?

--- gnus-spec.el.~6.27.~	Tue Dec 18 20:42:52 2001
+++ gnus-spec.el	Fri Dec 28 18:21:11 2001
@@ -264,11 +264,7 @@
 	 (insert (make-string (max (- ,(abs column) (current-column)) 0)
 			      ? ))))))
 
-(defun gnus-correct-length (string)
-  "Return the correct width of STRING."
-  (let ((length 0))
-    (mapcar (lambda (char) (incf length (gnus-char-width char))) string)
-    length))
+(defalias gnus-correct-length 'string-width)
 
 (defun gnus-correct-substring (string start &optional end)
   (let ((wstart 0)