[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 d93d2c5 3/3: Make tracking faces in Emacs work mo
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] emacs-25 d93d2c5 3/3: Make tracking faces in Emacs work more reliably |
Date: |
Thu, 04 Feb 2016 05:50:02 +0000 |
branch: emacs-25
commit d93d2c5b16dc98671a35374ac20fa6f7108f1c7c
Author: Kevin Brubeck Unhammer <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Make tracking faces in Emacs work more reliably
* lisp/erc/erc-track.el (erc-faces-in): Always return lists of
faces to avoid later ambiguity (bug#22424).
Copyright-paperwork-exempt: Yes
---
lisp/erc/erc-track.el | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el
index 1750cb7..4d8feb5 100644
--- a/lisp/erc/erc-track.el
+++ b/lisp/erc/erc-track.el
@@ -971,7 +971,8 @@ is in `erc-mode'."
"Return a list of all faces used in STR."
(let ((i 0)
(m (length str))
- (faces (erc-list (get-text-property 0 'face str)))
+ (faces (let ((face1 (get-text-property 0 'face str)))
+ (when face1 (list face1))))
cur)
(while (and (setq i (next-single-property-change i 'face str m))
(not (= i m)))