From: Juri Linkov <juri@jurta.org>
Date: Tue, 1 Nov 2005 10:04:19 +0000 (+0000)
Subject: (Info-fontify-node): Use `string-width' for fontifying underlined titles.
X-Git-Tag: emacs-pretest-22.0.90~6142
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4dacf0ff4bdb950dbc4f168be79426e77c944ecb;p=emacs.git

(Info-fontify-node): Use `string-width' for fontifying underlined titles.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03356b20c09..5cfa331cb34 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-11-01  KOBAYASHI Yasuhiro <kobayays@otsukakj.co.jp>  (tiny change)
+
+	* info.el (Info-fontify-node): Use `string-width' for fontifying
+	underlined titles.
+
 2005-11-01  Juri Linkov  <juri@jurta.org>
 
 	* info.el (Info-fontify-node): Downcase node header keywords Node,
diff --git a/lisp/info.el b/lisp/info.el
index a151bea0444..1b408f2077e 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3722,8 +3722,8 @@ the variable `Info-file-list-for-emacs'."
                     ;; 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)