diff options
| author | Chong Yidong | 2010-12-15 09:33:11 +0800 |
|---|---|---|
| committer | Chong Yidong | 2010-12-15 09:33:11 +0800 |
| commit | ac8055b36488493543aa0ca63eda8f484fcc58d1 (patch) | |
| tree | 7ffb7ff956f7d782da5bf7630f3ca4a67d4fcd64 | |
| parent | c8cbbe27d3f1fa0a844c6977bca1d7fbd659577f (diff) | |
| download | emacs-ac8055b36488493543aa0ca63eda8f484fcc58d1.tar.gz emacs-ac8055b36488493543aa0ca63eda8f484fcc58d1.zip | |
Fix error in last commit.
| -rw-r--r-- | lisp/emulation/edt-mapper.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el index a3f0e18bb5e..ec2847fafe0 100644 --- a/lisp/emulation/edt-mapper.el +++ b/lisp/emulation/edt-mapper.el | |||
| @@ -162,11 +162,12 @@ | |||
| 162 | 162 | ||
| 163 | (mapc | 163 | (mapc |
| 164 | (lambda (function-key) | 164 | (lambda (function-key) |
| 165 | (if (not (lookup-key (current-global-map) function-key)) | 165 | (if (not (lookup-key (current-global-map) function-key)) |
| 166 | (define-key (current-global-map) function-key 'forward-char))) | 166 | (define-key (current-global-map) function-key 'forward-char))) |
| 167 | '([kp-0] [kp-1] [kp-2] [kp-3] [kp-4] | 167 | '([kp-0] [kp-1] [kp-2] [kp-3] [kp-4] |
| 168 | [kp-5] [kp-6] [kp-7] [kp-8] [kp-9] | 168 | [kp-5] [kp-6] [kp-7] [kp-8] [kp-9] |
| 169 | [kp- | 169 | [kp-space] |
| 170 | [kp-tab] | ||
| 170 | [kp-enter] | 171 | [kp-enter] |
| 171 | [kp-multiply] | 172 | [kp-multiply] |
| 172 | [kp-add] | 173 | [kp-add] |