From 9229c658550f167dbfb1c40c8a0e689020b008dd Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sun, 12 Aug 2012 11:35:57 +0200 Subject: [PATCH] * descr-text.el (describe-char): Put the overlays over the "displayed as" character. --- lisp/ChangeLog | 5 +++++ lisp/descr-text.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 716555f2ffe..f1f78c20bef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-08-12 Andreas Schwab + + * descr-text.el (describe-char): Put the overlays over the + "displayed as" character. + 2012-08-12 Jay Belanger * calc/calc-units.el (math-default-units-table): Give an diff --git a/lisp/descr-text.el b/lisp/descr-text.el index bf0e413d357..34d61b80d66 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el @@ -689,7 +689,7 @@ relevant to POS." (when overlays (save-excursion (goto-char (point-min)) - (re-search-forward "character:[ \t\n]+") + (re-search-forward "(displayed as ") (let ((end (+ (point) (length char-description)))) (mapc (lambda (props) (let ((o (make-overlay (point) end))) -- 2.39.5