aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorKarl Heuer1996-01-05 22:21:28 +0000
committerKarl Heuer1996-01-05 22:21:28 +0000
commita7acbbe4d48af3113de2dfaf836a42f2a9b6c2b0 (patch)
tree9ca09d12c605ce9155e55ad82476c9a6d6ebedcd /lisp/emulation
parent60d0378e485ded218121a8b8d6ce582e47882fac (diff)
downloademacs-a7acbbe4d48af3113de2dfaf836a42f2a9b6c2b0.tar.gz
emacs-a7acbbe4d48af3113de2dfaf836a42f2a9b6c2b0.zip
Comment fixes.
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/edt-pc.el2
-rw-r--r--lisp/emulation/mlsupport.el2
-rw-r--r--lisp/emulation/pc-select.el4
-rw-r--r--lisp/emulation/viper-keym.el3
-rw-r--r--lisp/emulation/viper-util.el2
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))