From 0d5ea1b5a453d1e9064650f04d383903127cd742 Mon Sep 17 00:00:00 2001 From: syl20bnr Date: Sun, 24 May 2015 19:49:57 -0400 Subject: [PATCH] emoji layer: fix invisible text after emoji image --- .../emacs-emoji-cheat-sheet-plus/emoji-cheat-sheet-plus.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/contrib/fun/emoji/extensions/emacs-emoji-cheat-sheet-plus/emoji-cheat-sheet-plus.el b/contrib/fun/emoji/extensions/emacs-emoji-cheat-sheet-plus/emoji-cheat-sheet-plus.el index 2f4addac4..a96f5c19b 100644 --- a/contrib/fun/emoji/extensions/emacs-emoji-cheat-sheet-plus/emoji-cheat-sheet-plus.el +++ b/contrib/fun/emoji/extensions/emacs-emoji-cheat-sheet-plus/emoji-cheat-sheet-plus.el @@ -281,11 +281,9 @@ (match-beginning 0) (1+ (match-beginning 0)) `(invisible t emoji-cheat-sheet-plus-display t)) (add-text-properties - (1+ (match-beginning 0)) (1- (match-end 0)) + (1+ (match-beginning 0)) (match-end 0) `(display ,image emoji-cheat-sheet-plus-display t)) - (add-text-properties - (1- (match-end 0)) (match-end 0) - `(invisible t emoji-cheat-sheet-plus-display t))))) + ))) (set-buffer-modified-p modified)))) (defun emoji-cheat-sheet-plus--undisplay-region (start end) @@ -301,6 +299,7 @@ (when (get-text-property point 'emoji-cheat-sheet-plus-display) (remove-list-of-text-properties point (point) '(emoji-cheat-sheet-plus-display display))) + (add-text-properties point (point) `(invisible nil)) (setq point (point))) (set-buffer-modified-p modified))))