Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c8cbbe27
Commit
c8cbbe27
authored
Dec 15, 2010
by
Kevin Gallagher
Committed by
Chong Yidong
Dec 15, 2010
Browse files
* emulation/edt-mapper.el: Override mapping of function keys
so that the later call to read-key-sequence works.
parent
da3930f3
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
46 additions
and
0 deletions
+46
-0
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/emulation/edt-mapper.el
lisp/emulation/edt-mapper.el
+41
-0
No files found.
lisp/ChangeLog
View file @
c8cbbe27
2010-12-15 Kevin Gallagher <Kevin.Gallagher@boeing.com>
* emulation/edt-mapper.el: Override mapping of function keys so
that the later call to read-key-sequence works.
2010-12-13 Eli Zaretskii <eliz@gnu.org>
* mail/smtpmail.el (smtpmail-send-it): Write queued mail body with
...
...
lisp/emulation/edt-mapper.el
View file @
c8cbbe27
...
...
@@ -140,6 +140,47 @@
(
setq
edt-term
nil
)
(
setq
edt-term
(
getenv
"TERM"
)))
;;;
;;; Implements a workaround for a feature that was added to simple.el.
;;;
;;; Many function keys have no Emacs functions assigned to them by
;;; default. A subset of these are typically assigned functions in the
;;; EDT emulation. This includes all the keypad keys and a some others
;;; like Delete.
;;;
;;; Logic in simple.el maps some of these unassigned function keys to
;;; ordinary typing keys. Where this is the case, a call to
;;; read-key-sequence, below, does not return the name of the function
;;; key pressd by the user but, instead, it returns the name of the
;;; key to which it has been mapped. It needs to know the name of the
;;; key pressed by the user. As a workaround, we assign a function to
;;; each of the unassigned function keys of interest, here. These
;;; assignments override the mapping to other keys and are only
;;; temporary since, when edt-mapper is finished executing, it causes
;;; Emacs to exit.
;;;
(
mapc
(
lambda
(
function-key
)
(
if
(
not
(
lookup-key
(
current-global-map
)
function-key
))
(
define-key
(
current-global-map
)
function-key
'forward-char
)))
'
(
[kp-0]
[kp-1]
[kp-2]
[kp-3]
[kp-4]
[kp-5]
[kp-6]
[kp-7]
[kp-8]
[kp-9]
[kp-
[kp-enter]
[kp-multiply]
[kp-add]
[kp-separator]
[kp-subtract]
[kp-decimal]
[kp-divide]
[kp-equal]
[backspace]
[delete]
[tab]
[linefeed]
[clear]
))
;;;
;;; Make sure the window is big enough to display the instructions,
;;; except where window cannot be re-sized.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment