diff options
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/edt.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/mlconvert.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/vi.el | 6 | ||||
| -rw-r--r-- | lisp/emulation/vip.el | 22 | ||||
| -rw-r--r-- | lisp/emulation/ws-mode.el | 2 |
5 files changed, 17 insertions, 17 deletions
diff --git a/lisp/emulation/edt.el b/lisp/emulation/edt.el index 875cb173075..3770767fe92 100644 --- a/lisp/emulation/edt.el +++ b/lisp/emulation/edt.el @@ -391,7 +391,7 @@ The keys redefined by \\[edt-emulation-on] are given their old definitions." (global-set-key "\C-j" edt-mode-old-linefeed)) ;"LineFeed" (defvar GOLD-map (make-keymap) - "`GOLD-map' maps the function keys on the VT100 keyboard preceeded + "`GOLD-map' maps the function keys on the VT100 keyboard preceded by the PF1 key. GOLD is the ASCII the 7-bit escape sequence <ESC>OP.") (defalias 'GOLD-prefix GOLD-map) diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el index c186622e43b..9a8d9f4e2ea 100644 --- a/lisp/emulation/mlconvert.el +++ b/lisp/emulation/mlconvert.el @@ -23,7 +23,7 @@ ;;; Commentary: -;; This package conversts Mocklisp code written under a Gosling or UniPress +;; This package converts Mocklisp code written under a Gosling or UniPress ;; Emacs for use with GNU Emacs. The translated code will require runtime ;; support from the mlsupport.el equivalent. diff --git a/lisp/emulation/vi.el b/lisp/emulation/vi.el index 5c9f71b96a5..0f42f72c7d5 100644 --- a/lisp/emulation/vi.el +++ b/lisp/emulation/vi.el @@ -332,7 +332,7 @@ command extensions.") "Save last direction, char and upto-flag used for char finding.") (defvar vi-last-change-command nil ; cons cell - "Save commmands for redoing last changes. Each command is in (FUNC . ARGS) + "Save commands for redoing last changes. Each command is in (FUNC . ARGS) form that is ready to be 'apply'ed.") (defvar vi-last-shell-command nil ; last shell op command line @@ -790,7 +790,7 @@ The given COUNT is remembered for future scrollings." (defun vi-char-argument (arg) "Get following character (could be any CHAR) as part of the prefix argument. -Possible perfix-arg cases are NIL, INTEGER, (NIL . CHAR) or (INTEGER . CHAR)." +Possible prefix-arg cases are NIL, INTEGER, (NIL . CHAR) or (INTEGER . CHAR)." (interactive "P") (let ((char (read-char))) (cond ((null arg) (setq prefix-arg (cons nil char))) @@ -1346,7 +1346,7 @@ The following CHAR will be the name for the command or macro." (vi-ask-for-info char)))) (defun vi-mark-region (arg region) - "Mark region approriately. The next char REGION is d(efun),s(-exp),b(uffer), + "Mark region appropriately. The next char REGION is d(efun),s(-exp),b(uffer), p(aragraph), P(age), f(unction in C/Pascal etc.), w(ord), e(nd of sentence), l(ines)." (interactive "p\nc") diff --git a/lisp/emulation/vip.el b/lisp/emulation/vip.el index 13f91aa069f..3c307625059 100644 --- a/lisp/emulation/vip.el +++ b/lisp/emulation/vip.el @@ -67,7 +67,7 @@ (defvar vip-d-com nil "If non-nil, it's value is a list (M-COM VAL COM), and is used to -re-execute last destrcutive command") +re-execute last destructive command") (defconst vip-shift-width 8 "*The number of colums shifted by > and < command.") @@ -76,7 +76,7 @@ re-execute last destrcutive command") "*If t then do regexp replace, if nil then do string replace.") (defvar vip-d-char nil - "The character remenbered by the vi \"r\" command") + "The character remembered by the vi \"r\" command") (defvar vip-f-char nil "for use by \";\" command") @@ -322,7 +322,7 @@ EVENTS is a list of events, which become the beginning of the command." (vip-escape-to-emacs arg '(?\C-h))) -;; prefix argmument for vi mode +;; prefix argument for vi mode ;; In vi mode, prefix argument is a dotted pair (NUM . COM) where NUM ;; represents the numeric value of the prefix argument and COM represents @@ -359,7 +359,7 @@ obtained so far, and COM is the command part obtained so far." (setq cont nil)) ;; if com is nil we set com as char, and read more. again, if char ;; is ", we read the name of register and store it in vip-use-register. - ;; if char is !, =, or #, a copmlete com is formed so we exit while. + ;; if char is !, =, or #, a complete com is formed so we exit while. (cond ((or (= char ?!) (= char ?=)) (setq com char) (setq char (read-char)) @@ -422,7 +422,7 @@ obtained so far, and COM is the command part obtained so far." com (vip-getcom arg)) (if (null val) (if (null com) - (message "Value is nil, and commmand is nil.") + (message "Value is nil, and command is nil.") (message "Value is nil, and command is %c." com)) (if (null com) (message "Value is %d, and command is nil." val) @@ -626,7 +626,7 @@ to vip-d-com for later use by vip-repeat" reg)))) (defun vip-repeat (arg) - "(ARG) Re-excute last destructive command. vip-d-com has the form + "(ARG) Re-execute last destructive command. vip-d-com has the form (COM ARG CH REG), where COM is the command to be re-executed, ARG is the argument for COM, CH is a flag for repeat, and REG is optional and if exists is the name of the register for COM." @@ -1128,7 +1128,7 @@ beginning of buffer, stop and signal error." (if com (vip-execute-com 'vip-goto-line val com)))) (defun vip-find-char (arg char forward offset) - "Find ARG's occurence of CHAR on the current line. If FORWARD then + "Find ARG's occurrence of CHAR on the current line. If FORWARD then search is forward, otherwise backward. OFFSET is used to adjust point after search." (let ((arg (if forward arg (- arg))) point) @@ -1429,7 +1429,7 @@ used. This behaviour is controlled by the sign of prefix numeric value." ;; searching (defun vip-search-forward (arg) - "Search a string forward. ARG is used to find the ARG's occurence + "Search a string forward. ARG is used to find the ARG's occurrence of the string. Default is vanilla search. Search mode can be toggled by giving null search string." (interactive "P") @@ -1449,7 +1449,7 @@ giving null search string." (vip-execute-com 'vip-search-next val com)))))) (defun vip-search-backward (arg) - "Search a string backward. ARG is used to find the ARG's occurence + "Search a string backward. ARG is used to find the ARG's occurrence of the string. Default is vanilla search. Search mode can be toggled by giving null search string." (interactive "P") @@ -2012,7 +2012,7 @@ is a command.") "pattern for global command") (defvar ex-map (make-sparse-keymap) - "save commnads for mapped keys") + "save commands for mapped keys") (defvar ex-tag nil "save ex tag") @@ -2988,7 +2988,7 @@ vip-s-string" (forward-line (1- ex-count))) (set-mark end)) (vip-enlarge-region (point) (mark)) - (if ex-flag (error "Extra chacters at end of command")) + (if ex-flag (error "Extra characters at end of command")) (if ex-buffer (copy-to-register ex-buffer (point) (mark) nil)) (copy-region-as-kill (point) (mark))))) diff --git a/lisp/emulation/ws-mode.el b/lisp/emulation/ws-mode.el index b0d513be5d5..63c0c278634 100644 --- a/lisp/emulation/ws-mode.el +++ b/lisp/emulation/ws-mode.el @@ -469,7 +469,7 @@ in ws-last-errormessage for recovery with C-q w." (defun ws-indent-block () - "In WordStar mode: Indent block (not yet implemeted)." + "In WordStar mode: Indent block (not yet implemented)." (interactive) (ws-error "Indent block not yet implemented")) |