diff options
| author | Juri Linkov | 2005-11-01 10:04:19 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-11-01 10:04:19 +0000 |
| commit | 4dacf0ff4bdb950dbc4f168be79426e77c944ecb (patch) | |
| tree | 0a233eef07f17233e9a32b8ef4eccc5cbb7a0fbc /lisp/info.el | |
| parent | 993159761a8d77bd458a8f5841daeffd5f785944 (diff) | |
| download | emacs-4dacf0ff4bdb950dbc4f168be79426e77c944ecb.tar.gz emacs-4dacf0ff4bdb950dbc4f168be79426e77c944ecb.zip | |
(Info-fontify-node): Use `string-width' for fontifying underlined titles.
Diffstat (limited to 'lisp/info.el')
| -rw-r--r-- | lisp/info.el | 4 |
1 files changed, 2 insertions, 2 deletions
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'." | |||
| 3722 | ;; underline has the same size as the text. A typical | 3722 | ;; underline has the same size as the text. A typical |
| 3723 | ;; counter example is when a continuation "..." is alone | 3723 | ;; counter example is when a continuation "..." is alone |
| 3724 | ;; on a line. | 3724 | ;; on a line. |
| 3725 | (= (- (match-end 1) (match-beginning 1)) | 3725 | (= (string-width (match-string 1)) |
| 3726 | (- (match-end 2) (match-beginning 2)))) | 3726 | (string-width (match-string 2)))) |
| 3727 | (let* ((c (preceding-char)) | 3727 | (let* ((c (preceding-char)) |
| 3728 | (face | 3728 | (face |
| 3729 | (cond ((= c ?*) 'info-title-1) | 3729 | (cond ((= c ?*) 'info-title-1) |