commit 42096418904146623d38f7a5eed75eef077e52a5 parent 1fdb3a0240d42a30e9904ae43b9d7a27046dd73d Author: Iqbal Ansari <iqbalansari02@yahoo.com> Date: Sun, 22 Nov 2015 18:00:33 +0530 Define keys for deleting emojis as remaps of vanilla keybindings Diffstat:
| M | emojify.el | | | 13 | ++++++++----- |
1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/emojify.el b/emojify.el @@ -479,6 +479,14 @@ To understand WINDOW, STRING and POS see the function documentation for ;; Core functions and macros +(defvar emojify-emoji-keymap (let ((map (make-sparse-keymap))) + (define-key map [remap delete-char] #'emojify-delete-emoji-forward) + (define-key map [remap delete-forward-char] #'emojify-delete-emoji-forward) + (define-key map [remap backward-delete-char] #'emojify-delete-emoji-backward) + (define-key map [remap delete-backward-char] #'emojify-delete-emoji-backward) + (define-key map [remap backward-delete-char-untabify] #'emojify-delete-emoji-backward) + map)) + (defun emojify--get-point-left-function (buffer match-beginning match-end) "Create a function that can be executed in point-left hook for emoji text. @@ -531,11 +539,6 @@ mark the start and end of region containing the text." (when display (list 'display display)))) -(defvar emojify-emoji-keymap (let ((map (make-sparse-keymap))) - (define-key map (kbd "C-d") #'emojify-delete-emoji-forward) - (define-key map (kbd "DEL") #'emojify-delete-emoji-backward) - map)) - (defmacro emojify-with-saved-buffer-state (&rest forms) "Execute FORMS saving current buffer state.