diff options
| author | Karl Heuer | 1996-01-05 22:21:28 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-05 22:21:28 +0000 |
| commit | a7acbbe4d48af3113de2dfaf836a42f2a9b6c2b0 (patch) | |
| tree | 9ca09d12c605ce9155e55ad82476c9a6d6ebedcd /lisp/emulation | |
| parent | 60d0378e485ded218121a8b8d6ce582e47882fac (diff) | |
| download | emacs-a7acbbe4d48af3113de2dfaf836a42f2a9b6c2b0.tar.gz emacs-a7acbbe4d48af3113de2dfaf836a42f2a9b6c2b0.zip | |
Comment fixes.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/edt-pc.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/mlsupport.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/pc-select.el | 4 | ||||
| -rw-r--r-- | lisp/emulation/viper-keym.el | 3 | ||||
| -rw-r--r-- | lisp/emulation/viper-util.el | 2 |
5 files changed, 6 insertions, 7 deletions
diff --git a/lisp/emulation/edt-pc.el b/lisp/emulation/edt-pc.el index 5fae49e4b25..db92d2b9477 100644 --- a/lisp/emulation/edt-pc.el +++ b/lisp/emulation/edt-pc.el | |||
| @@ -38,7 +38,7 @@ | |||
| 38 | ;; NumLock must be ON. | 38 | ;; NumLock must be ON. |
| 39 | ;; | 39 | ;; |
| 40 | ;; The PC keypad keys are mapped to the corresponding DEC LK-201 | 40 | ;; The PC keypad keys are mapped to the corresponding DEC LK-201 |
| 41 | ;; keypad keys according to the corresponding physical possition on | 41 | ;; keypad keys according to the corresponding physical position on |
| 42 | ;; the keyboard. Thus, the physical position of the PC keypad key | 42 | ;; the keyboard. Thus, the physical position of the PC keypad key |
| 43 | ;; determines its function, not the PC keycap name. | 43 | ;; determines its function, not the PC keycap name. |
| 44 | ;; | 44 | ;; |
diff --git a/lisp/emulation/mlsupport.el b/lisp/emulation/mlsupport.el index d60b3809dfd..3a1d3c5ba1e 100644 --- a/lisp/emulation/mlsupport.el +++ b/lisp/emulation/mlsupport.el | |||
| @@ -26,7 +26,7 @@ | |||
| 26 | ;; This package provides equivalents of certain primitives from Gosling | 26 | ;; This package provides equivalents of certain primitives from Gosling |
| 27 | ;; Emacs (including the commercial UniPress versions). These have an | 27 | ;; Emacs (including the commercial UniPress versions). These have an |
| 28 | ;; ml- prefix to distinguish them from native GNU Emacs functions with | 28 | ;; ml- prefix to distinguish them from native GNU Emacs functions with |
| 29 | ;; similar names. The oackage mlconvert.el translates Mocklisp code | 29 | ;; similar names. The package mlconvert.el translates Mocklisp code |
| 30 | ;; to use these names. | 30 | ;; to use these names. |
| 31 | 31 | ||
| 32 | ;;; Code: | 32 | ;;; Code: |
diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el index eb3798f0b3a..1187b642c86 100644 --- a/lisp/emulation/pc-select.el +++ b/lisp/emulation/pc-select.el | |||
| @@ -494,7 +494,7 @@ the MAC GUI or MS-Windows (sorry for the last one)." | |||
| 494 | (define-key global-map "\M-w" 'copy-region-as-kill-nomark) | 494 | (define-key global-map "\M-w" 'copy-region-as-kill-nomark) |
| 495 | 495 | ||
| 496 | 496 | ||
| 497 | ;; The followong keybindings are for standard ISO keyboards | 497 | ;; The following keybindings are for standard ISO keyboards |
| 498 | ;; as they are used with IBM compatible PCs, IBM RS/6000, | 498 | ;; as they are used with IBM compatible PCs, IBM RS/6000, |
| 499 | ;; MACs, many X-Stations and probably more | 499 | ;; MACs, many X-Stations and probably more |
| 500 | (define-key global-map [S-right] 'forward-char-mark) | 500 | (define-key global-map [S-right] 'forward-char-mark) |
| @@ -533,7 +533,7 @@ the MAC GUI or MS-Windows (sorry for the last one)." | |||
| 533 | (define-key global-map [C-insert] 'copy-region-as-kill) | 533 | (define-key global-map [C-insert] 'copy-region-as-kill) |
| 534 | (define-key global-map [S-delete] 'kill-region) | 534 | (define-key global-map [S-delete] 'kill-region) |
| 535 | 535 | ||
| 536 | ;; The following bindings are usueful on Sun Type 3 keyboards | 536 | ;; The following bindings are useful on Sun Type 3 keyboards |
| 537 | ;; They implement the Get-Delete-Put (copy-cut-paste) | 537 | ;; They implement the Get-Delete-Put (copy-cut-paste) |
| 538 | ;; functions from sunview on the L6, L8 and L10 keys | 538 | ;; functions from sunview on the L6, L8 and L10 keys |
| 539 | (define-key global-map [f16] 'yank) | 539 | (define-key global-map [f16] 'yank) |
diff --git a/lisp/emulation/viper-keym.el b/lisp/emulation/viper-keym.el index 9ff7cd83f4f..11bcec03635 100644 --- a/lisp/emulation/viper-keym.el +++ b/lisp/emulation/viper-keym.el | |||
| @@ -31,8 +31,7 @@ | |||
| 31 | (defvar vip-insert-intercept-map (make-sparse-keymap)) | 31 | (defvar vip-insert-intercept-map (make-sparse-keymap)) |
| 32 | (defvar vip-emacs-intercept-map (make-sparse-keymap)) | 32 | (defvar vip-emacs-intercept-map (make-sparse-keymap)) |
| 33 | 33 | ||
| 34 | ;; keymap used to zap all keymaps other than function-key-map, | 34 | ;; keymap used to zap all keymaps other than function-key-map, etc. |
| 35 | ;; devide-function-key-map, etc. | ||
| 36 | (defvar vip-overriding-map (make-sparse-keymap)) | 35 | (defvar vip-overriding-map (make-sparse-keymap)) |
| 37 | 36 | ||
| 38 | (vip-deflocalvar vip-vi-local-user-map (make-sparse-keymap) | 37 | (vip-deflocalvar vip-vi-local-user-map (make-sparse-keymap) |
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el index 3e3cd658e5a..1523399aefc 100644 --- a/lisp/emulation/viper-util.el +++ b/lisp/emulation/viper-util.el | |||
| @@ -766,7 +766,7 @@ | |||
| 766 | 766 | ||
| 767 | 767 | ||
| 768 | ;; Emacs has a bug in eventp, which causes (eventp nil) to return (nil) | 768 | ;; Emacs has a bug in eventp, which causes (eventp nil) to return (nil) |
| 769 | ;; instead of nil, if '(nil) was previously inadvertantly assigned to | 769 | ;; instead of nil, if '(nil) was previously inadvertently assigned to |
| 770 | ;; unread-command-events | 770 | ;; unread-command-events |
| 771 | (defun vip-event-key (event) | 771 | (defun vip-event-key (event) |
| 772 | (or (and event (eventp event)) | 772 | (or (and event (eventp event)) |