# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1130839381 0
# Node ID a39846866a7102cc53eeab468d147ed712795b7d
# Parent  9e4ea1d6f43cac2a3ca34dd1ffe1428380bc6b69
(Info-fontify-node): Use `string-width' for fontifying underlined titles.

diff -r 9e4ea1d6f43c -r a39846866a71 lisp/info.el
--- a/lisp/info.el	Tue Nov 01 09:56:07 2005 +0000
+++ b/lisp/info.el	Tue Nov 01 10:03:01 2005 +0000
@@ -3722,8 +3722,8 @@
                     ;; underline has the same size as the text.  A typical
                     ;; counter example is when a continuation "..." is alone
                     ;; on a line.
-                    (= (- (match-end 1) (match-beginning 1))
-                       (- (match-end 2) (match-beginning 2))))
+                    (= (string-width (match-string 1))
+                       (string-width (match-string 2))))
           (let* ((c (preceding-char))
                  (face
                   (cond ((= c ?*) 'info-title-1)