procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make the emoji-zoom commands use a transient map for repetition

Browse source 
* lisp/international/emoji.el (emoji-zoom-increase)
(emoji-zoom-decrease): Use a transient map for convenience.
This commit is contained in:
Lars Ingebrigtsen 2022-07-01 11:11:47 +02:00
parent bffca6070f
commit d0e15c3814
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/international/emoji.el
View file

@ -707,10 +707,12 @@ We prefer the earliest unique letter."
;;;###autoload
(defun emoji-zoom-increase (&optional factor)
"Increase the size of the character under point.
FACTOR is the multiplication factor for the size.
This command will be repeatable if `repeat-mode' is switched on."
FACTOR is the multiplication factor for the size."
(interactive)
(message
(substitute-command-keys
"Zoom with with \\<emoji-zoom-map>\\[emoji-zoom-increase] and \\[emoji-zoom-decrease]"))
(set-transient-map emoji-zoom-map t)
(let* ((factor (or factor 1.1))
(old (get-text-property (point) 'face))
(height (or (and (consp old)
@ -728,18 +730,12 @@ This command will be repeatable if `repeat-mode' is switched on."
(put-text-property (point) (1+ (point))
'rear-nonsticky t)))))
(put 'emoji-zoom-increase 'repeat-map 'emoji-zoom-map)
;;;###autoload
(defun emoji-zoom-decrease ()
"Decrease the size of the character under point.
This command will be repeatable if `repeat-mode' is switched on."
"Decrease the size of the character under point."
(interactive)
(emoji-zoom-increase 0.9))
(put 'emoji-zoom-decrease 'repeat-map 'emoji-zoom-map)
(provide 'emoji)
;;; emoji.el ends here