DL
Size: a a a
DL
DL
A
A
VL
DL
DL
(defun reverse-im--translate-char (c &optional strict)
"Try to translate C using active translation. Set STRICT if when reverse translation is not needed."
(let ((to))
(map-keymap #'(lambda (from value)
(if (= c from)
(let ((v (aref value 0)))
(when (characterp v)
(setq to v)))
(when (and (not strict)
(member c (append value nil))
(characterp from))
(setq to from))))
(keymap-parent function-key-map))
(or to c)))
DL
(defun reverse-im--translate-char (c &optional strict)
"Try to translate C using active translation. Set STRICT if when reverse translation is not needed."
(let ((to))
(map-keymap #'(lambda (from value)
(if (= c from)
(let ((v (aref value 0)))
(when (characterp v)
(setq to v)))
(when (and (not strict)
(member c (append value nil))
(characterp from))
(setq to from))))
(keymap-parent function-key-map))
(or to c)))
PG
PG
A
A
DL
:foreign-keys run
AP
DL
DL
(defhydra hydra-zoom (global-map "<f2>" :foreign-keys run)
"zoom"
("C-g" cancel "in" :exit t)
("g" text-scale-increase "in")
("l" text-scale-decrease "out"))
AP
DL
DL
DL