diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/viper-macs.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-start.el | 2 | ||||
| -rw-r--r-- | lisp/ldefs-boot.el | 2 | ||||
| -rw-r--r-- | lisp/net/dbus.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/ada-xref.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/make-mode.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/prolog.el | 2 | ||||
| -rw-r--r-- | lisp/tutorial.el | 2 |
8 files changed, 9 insertions, 9 deletions
diff --git a/lisp/emulation/viper-macs.el b/lisp/emulation/viper-macs.el index 00153c1ff0e..e978823a49c 100644 --- a/lisp/emulation/viper-macs.el +++ b/lisp/emulation/viper-macs.el @@ -319,7 +319,7 @@ a key is a symbol, e.g., `a', `\\1', `f2', etc., or a list, e.g., ;; Accepts as macro names: strings and vectors. ;; strings must be strings of characters; vectors must be vectors of keys -;; in canonic form. The canonic form is essentially the form used in XEmacs +;; in canonical form, which is essentially the form used in XEmacs. ;; More general definitions are inherited by more specific scopes: ;; global->major mode->buffer. More specific definitions override more general (defun viper-record-kbd-macro (macro-name state macro-body &optional scope) diff --git a/lisp/gnus/gnus-start.el b/lisp/gnus/gnus-start.el index b18b78df063..3a9294d58d6 100644 --- a/lisp/gnus/gnus-start.el +++ b/lisp/gnus/gnus-start.el @@ -2533,7 +2533,7 @@ If FORCE is non-nil, the .newsrc file is read." ((or (eq symbol options-symbol) (eq symbol Options-symbol)) (setq gnus-newsrc-options - ;; This concating is quite inefficient, but since our + ;; This concatting is quite inefficient, but since our ;; thorough studies show that approx 99.37% of all ;; .newsrc files only contain a single options line, we ;; don't give a damn, frankly, my dear. diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index b0d08217fc1..f6c706fdce9 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -5677,7 +5677,7 @@ Variables controlling indentation style and extra features: dcl-block-begin-regexp dcl-block-end-regexp Regexps that match command lines that begin and end, respectively, - a block of commmand lines that will be given extra indentation. + a block of command lines that will be given extra indentation. Command lines between THEN-ELSE-ENDIF are always indented; these variables make it possible to define other places to indent. Set to nil to disable this feature. diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el index 03b84a45ea3..8a8d9e6332f 100644 --- a/lisp/net/dbus.el +++ b/lisp/net/dbus.el @@ -150,7 +150,7 @@ association to the service from D-Bus." ;; entry has the structure ((UNAME SERVICE PATH MEMBER [RULE]) ...). ;; MEMBER is either a string (the handler), or a cons cell (a ;; property value). UNAME and property values are not taken into - ;; account for comparision. + ;; account for comparison. ;; Loop over the registered functions. (dolist (elt entry) diff --git a/lisp/progmodes/ada-xref.el b/lisp/progmodes/ada-xref.el index 0cfdab23702..2f6a7be393a 100644 --- a/lisp/progmodes/ada-xref.el +++ b/lisp/progmodes/ada-xref.el @@ -1357,7 +1357,7 @@ project file." (or executable-name (file-name-sans-extension (buffer-file-name)))))) - ;; For gvd, add an extra switch so that the Emacs window is completly + ;; For gvd, add an extra switch so that the Emacs window is completely ;; swallowed inside the Gvd one (if (and ada-tight-gvd-integration (string-match "^[^ \t]*gvd" cmd)) @@ -1783,7 +1783,7 @@ Information is extracted from the ali file." ) ) - ;; Last check to be completly sure we have found the correct line (the + ;; Last check to be completely sure we have found the correct line (the ;; ali might not be up to date for instance) (if declaration-found (progn diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el index c49519ed179..c1a87a9d033 100644 --- a/lisp/progmodes/make-mode.el +++ b/lisp/progmodes/make-mode.el @@ -1278,7 +1278,7 @@ definition and conveniently use this command." ((or (eq (char-before (line-end-position 1)) ?\\) (eq (char-before (line-end-position 0)) ?\\)) ;; A backslash region. Find beginning and end, remove - ;; backslashes, fill, and then reapply backslahes. + ;; backslashes, fill, and then reapply backslashes. (end-of-line) (let ((beginning (save-excursion diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 121ce8e0430..24ca78ad4ef 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -1569,7 +1569,7 @@ For use with the `compilation-parse-errors-function' variable." limit t) (setq filepath (match-string 2))) - ;; ###### Does this work with SICStus under Windows (i.e. backslahes and stuff?) + ;; ###### Does this work with SICStus under Windows (i.e. backslashes and stuff?) (if (string-match "\\(.*/\\)\\([^/]*\\)$" filepath) (progn (setq dir (match-string 1 filepath)) diff --git a/lisp/tutorial.el b/lisp/tutorial.el index be1a12b499b..2e651484008 100644 --- a/lisp/tutorial.el +++ b/lisp/tutorial.el @@ -182,7 +182,7 @@ LEFT and RIGHT are the elements to compare." (equal (car x) (car y))) (setq x (cdr x)) (setq y (cdr y))) - ;; Try to make a comparision that is useful for presentation (this + ;; Try to make a comparison that is useful for presentation (this ;; could be made nicer perhaps): (let ((cx (car x)) (cy (car y))) |