help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Proper way to add bindings under C-x 8


From: Howard Melman
Subject: Re: Proper way to add bindings under C-x 8
Date: Tue, 30 Nov 2021 12:29:15 -0500
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/27.2 (darwin)

Robert Pluim <rpluim@gmail.com> writes:

> In the meantime, thereʼs nothing stopping you from adding
> bindings to the keymap used for 'C-x' without using
> iso-transl-define-keys. Itʼs a bit more verbose, but works
> fine:
>
>     (let ((map (make-sparse-keymap)))
>       (define-key map "s" [?♠?️])
>       (define-key map "C" [?♣?️])
>       (define-key map "H" [?♥?️])
>       (define-key map "D" [?♦?️])
>       (define-key ctl-x-map "8e" map))

I went with the following:

(let ((map (make-sparse-keymap)))
  (define-key map "c" (string-to-vector "✅️"))
  (define-key map "u" (string-to-vector "👍️"))
  (define-key map "d" (string-to-vector "👎️"))
  (define-key map "w" (string-to-vector "🖐️"))
  (define-key map "t" (string-to-vector "📺️"))
  (define-key map "S" (string-to-vector "♠️"))
  (define-key map "C" (string-to-vector "♣️"))
  (define-key map "H" (string-to-vector "♥️"))
  (define-key map "D" (string-to-vector "♦️"))
  (define-key ctl-x-map "8e" map))

-- 

Howard




reply via email to

[Prev in Thread] Current Thread [Next in Thread]