TakeV/spacemacs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

emoji layer: fix invisible text after emoji image

Browse source
This commit is contained in:
syl20bnr 2015-05-24 19:49:57 -04:00
parent f734b51768
commit 0d5ea1b5a4
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
contrib/fun/emoji/extensions/emacs-emoji-cheat-sheet-plus/emoji-cheat-sheet-plus.el
View file

@ -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))))