[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Reporting when keymapping stomped... best approach
From: |
Grant Rettke |
Subject: |
Reporting when keymapping stomped... best approach |
Date: |
Tue, 10 Jun 2014 14:15:29 -0500 |
Good afternoon,
My goal is to issue a warning whenever a keymapping is stomped on my
myself or anyone else. For example, say I replace self-insert for 1
like this:
(global-set-key (kbd "1") 'scheme-mode)
Then I want to look up in the global keymap space whether the desired
key already exists, and if it does, then I want to warn the user what
function was rebound to that keymap. Eg:
(defadvice global-set-key (before check-keymapping activate)
(let ((key (ad-get-arg 0))
(command (ad-get-arg 1)))
(when command
(warn (concat "Just stomped on a global keymapping bound to: "
command)))))
The only problem is that this doesn't work, as global-undo-tree starts
complaining and I'm not sure where to start looking . Setting
debug-on-error to true doesn't even reveal anything useful.
Where might I start debugging further?
Kind regards,
Grant Rettke | AAAS, ACM, ASA, FSF, IEEE, SIAM, Sigma Xi
gcr@wisdomandwonder.com | http://www.wisdomandwonder.com/
“Wisdom begins in wonder.” --Socrates
((λ (x) (x x)) (λ (x) (x x)))
“Life has become immeasurably better since I have been forced to stop
taking it seriously.” --Thompson
- Reporting when keymapping stomped... best approach,
Grant Rettke <=