From 4dacf0ff4bdb950dbc4f168be79426e77c944ecb Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 1 Nov 2005 10:04:19 +0000 Subject: [PATCH] (Info-fontify-node): Use `string-width' for fontifying underlined titles. --- lisp/ChangeLog | 5 +++++ lisp/info.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 (tiny change) + + * info.el (Info-fontify-node): Use `string-width' for fontifying + underlined titles. + 2005-11-01 Juri Linkov * 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) -- 2.39.5