Command emacspeak-keymap-choose-new-emacspeak-prefix
was part of Emacspeak starting from the mid-90's until about 2020 --
when I nuked it because I hadn't used it in over 20 years.
You can find it in git --- use Magit to advantage and search for that
function with git log. Or grab emacspeak-52 and find it in
emacspeak-keymap.el.
You can read about the command and how it worked here:
https://www.cs.cornell.edu/info/people/raman/emacspeak/info/emacspeak.html
29e0ce0d0f0170e96170485b34c624991aef6873
Author: T.V Raman <tv.raman.tv(a)gmail.com>
AuthorDate: Wed Oct 7 17:15:16 2020 -0700
Commit: T.V Raman <tv.raman.tv(a)gmail.com>
CommitDate: Wed Oct 7 17:15:16 2020 -0700
Parent: 2ec72e886 persisting keybinds to org is a wizard
Contained: master
Follows: autoload-require-refactor-complete (333)
Precedes: 53.0 (361)
nuke interactive switching of emacspeak prefix
1 file changed, 21 deletions(-)
lisp/emacspeak-keymap.el | 21 ---------------------
modified lisp/emacspeak-keymap.el
@@ -468,28 +468,7 @@
(global-set-key '[silence] 'emacspeak-silence)
;;}}}
-;;{{{ Interactively switching the emacspeak-prefix
-;;;###autoload
-(defun emacspeak-keymap-choose-new-emacspeak-prefix (prefix-key)
- "Interactively select a new prefix key to use for all emacspeak
-commands. The default is to use `C-e' This command
-lets you switch the prefix to something else. This is a useful thing
-to do if you run emacspeak on a remote machine from inside a terminal
-that is running inside a local emacspeak session. You can have the
-remote emacspeak use a different control key to give your fingers some
-relief. Note: I've not used this in over 20 years."
- (interactive (list (read-key-sequence "Emacspeak Prefix: ")))
- (cl-declare (special emacspeak-prefix))
- (let ((current-use (lookup-key global-map prefix-key)))
- (global-set-key prefix-key 'emacspeak-prefix-command)
- (unless (eq current-use 'emacspeak-prefix-command)
- (global-set-key (concat prefix-key prefix-key) current-use)
- (message "Use %s %s to execute %s since %s is now the emacspeak prefix"
- prefix-key prefix-key current-use
- prefix-key))))
-
-;;}}}
;;{{{ Create a personal keymap for c-e x
;;; Adding keys using custom:
[forward]
--
Thanks,
--Raman(I Search, I Find, I Misplace, I Research)
♈ Id: kg:/m/0285kf1 🦮
|May 1995 - Last Year|Current Year|
If you have questions about this archive or had problems using it, please contact us.