[Emacs-diffs] /srv/bzr/emacs/trunk r102243: shr.el (shr-tag-img): Use string-width and truncate-string-to-width to measure the length and truncate alt text.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 102243
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2010-11-04 11:00:25 +0000
message:
  shr.el (shr-tag-img): Use string-width and truncate-string-to-width to 
measure the length and truncate alt text.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/shr.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-11-03 03:25:23 +0000
+++ b/lisp/gnus/ChangeLog       2010-11-04 11:00:25 +0000
@@ -1,3 +1,8 @@
+2010-11-04  Katsumi Yamaoka  <address@hidden>
+
+       * shr.el (shr-tag-img): Use string-width and truncate-string-to-width
+       to measure the length and truncate alt text.
+
 2010-11-03  Glenn Morris  <address@hidden>
 
        * nndiary.el (nndiary-generate-nov-databases-1)

=== modified file 'lisp/gnus/shr.el'
--- a/lisp/gnus/shr.el  2010-11-01 06:16:46 +0000
+++ b/lisp/gnus/shr.el  2010-11-04 11:00:25 +0000
@@ -551,8 +551,8 @@
                   (string-match shr-blocked-images url)))
          (setq shr-start (point))
          (let ((shr-state 'space))
-           (if (> (length alt) 8)
-               (shr-insert (substring alt 0 8))
+           (if (> (string-width alt) 8)
+               (shr-insert (truncate-string-to-width alt 8))
              (shr-insert alt))))
         ((url-is-cached (shr-encode-url url))
          (shr-put-image (shr-get-image-data url) alt))