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

[Emacspeak] Re: Switching the C-e prefix key to another binding



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.

Contact Info Page