Comment fixes.

lisp/ange-ftp.el

@@ -395,7 +395,7 @@
 ;;;    when asked to list a non-existent directory.  Some of the ai.mit.edu
 ;;;    machines cause this problem for some FTP clients. Using
 ;;;    ange-ftp-kill-ftp-process can restart the ftp process, which
-;;;    should get things back in synch.
+;;;    should get things back in sync.
 ;;;
 ;;; 3. Ange-ftp does not check to make sure that when creating a new file,
 ;;;    you provide a valid filename for the remote operating system.
@@ -2242,7 +2242,7 @@ which can parse the output from a DIR listing for a host of type TYPE.")
 ;; 
 ;; With no-error t, it returns:
 ;; an error if not an ange-ftp-name
-;; error if listing is unreable (most likely caused by a slow connection)
+;; error if listing is unreadable (most likely caused by a slow connection)
 ;; nil if ftp error (this is because although asking to list a nonexistent
 ;;                   directory on a remote unix machine usually (except
 ;;                   maybe for dumb hosts) returns an ls error, but no

lisp/avoid.el

@@ -166,7 +166,7 @@ You can redefine this if you want the mouse banished to a different corner."
   ;; Args are the CURRENT location, the desired DELTA for
   ;; warp-conservation, the DISTANCE we like to move, the VARIABILITY
   ;; in distance allowed, and the MIN and MAX possible window positions.
-  ;; Returns something as close to DELTA as possible withing the constraints.
+  ;; Returns something as close to DELTA as possible within the constraints.
   (let ((L1 (max (- min cur) (+ (- dist) (- var))))
 	(R1                  (+ (- dist)    var ))
 	(L2                  (+    dist  (- var)))

lisp/completion.el

@@ -221,7 +221,7 @@
 ;;;    With input from many users at TMC, (rose, craig, and gls come to mind),
 ;;; the current style of interface was developed. 
 ;;;    9/87, Jim and Brewster took terminals home.  Yuck.  After 
-;;; complaining for a while Brewester implemented a subset of the current 
+;;; complaining for a while Brewster implemented a subset of the current 
 ;;; LISPM version for GNU Emacs.  
 ;;;    8/88  After complaining for a while (and with sufficient 
 ;;; promised rewards), Jim reimplemented a version of GNU completion
@@ -1045,7 +1045,7 @@ Each symbol is bound to a single completion entry.")
 ;;; A completion entry is a LIST of string, prefix-symbol num-uses, and
 ;;; last-use-time (the time the completion was last used)
 ;;; last-use-time is T if the string should be kept permanently
-;;; num-uses is incremented everytime the completion is used.
+;;; num-uses is incremented every time the completion is used.
 
 ;;; We chose lists because (car foo) is faster than (aref foo 0) and the 
 ;;; creation time is about the same.

lisp/dabbrev.el

@@ -41,7 +41,7 @@
 ;;
 ;; Set the variables you want special for your mode like this:
 ;; (set (make-local-variable 'dabbrev-case-replace) nil)
-;; Then you don't interfer with other modes.
+;; Then you don't interfere with other modes.
 ;;
 ;; If your mode handles buffers that refers to other buffers
 ;; (i.e. compilation-mode, gud-mode), then try to set
@@ -771,7 +771,7 @@ See also `dabbrev-abbrev-char-regexp' and \\[dabbrev-completion]."
 
 ;;; ABBREV is string to find as prefix of word.  Second arg, REVERSE,
 ;;; is t for reverse search, nil for forward.  Variable dabbrev-limit
-;;; controls the maximum search region size.  Third argment IGNORE-CASE
+;;; controls the maximum search region size.  Third argument IGNORE-CASE
 ;;; non-nil means treat case as insignificant while looking for a match
 ;;; and when comparing with previous matches.  Also if that's non-nil
 ;;; and the match is found at the beginning of a sentence and is in

lisp/desktop.el

@@ -144,7 +144,7 @@ The variables are saved only when they really are local.")
 (make-variable-buffer-local 'desktop-locals-to-save)
 
 ;; We skip .log files because they are normally temporary.
-;;         (ftp) files because they require passwords and whatsnot.
+;;         (ftp) files because they require passwords and whatnot.
 ;;         TAGS files to save time (tags-file-name is saved instead).
 (defvar desktop-buffers-not-to-save
  "\\(^nn\\.a[0-9]+\\|\\.log\\|(ftp)\\|^tags\\|^TAGS\\)$"

lisp/dired-aux.el

@@ -1008,7 +1008,7 @@ Special value `always' suppresses confirmation.")
 ;; which will be added.  The user will be queried if the file already
 ;; exists.  If oldfile is removed by FILE-CREATOR (i.e, it is a
 ;; rename), it is FILE-CREATOR's responsibility to update dired
-;; buffers.  FILE-CREATOR must abort by signalling a file-error if it
+;; buffers.  FILE-CREATOR must abort by signaling a file-error if it
 ;; could not create newfile.  The error is caught and logged.
 
 ;; OPERATION (a capitalized string, e.g. `Copy') describes the

lisp/double.el

@@ -33,7 +33,7 @@
 ;; string will be replaced by another.  This can be used for mapping
 ;; keys on a US keyboard to generate characters according to the local
 ;; keyboard convention when pressed once, and according to US keyboard
-;; convetion when pressed twice. 
+;; convention when pressed twice. 
 ;;
 ;; To use this mode, you must define the variable `double-map' and
 ;; then enable double mode with `M-x double-mode'.  Read the
@@ -42,9 +42,9 @@
 ;; The default mapping is for getting Danish/Norwegian keyboard layout
 ;; using ISO Latin 1 on a US keyboard.
 ;;
-;; Imprtant node: While I would like to hear comments, bug reports,
+;; Important node: While I would like to hear comments, bug reports,
 ;; suggestions, please do @strong{not} expect me to put other mappings
-;; that the default into this file.  There are billions and billions
+;; than the default into this file.  There are billions and billions
 ;; of such mappings, and just supporting the most common would
 ;; increase the size of this nice small file manyfold.
 

lisp/ediff-merg.el

@@ -137,7 +137,7 @@ skiped over. Nil means show all regions.")
 		    (and (string= state-of-merge "combined")
 			 (not (string=
 			       (ediff-make-combined-diff reg-A reg-B) reg-C)))
-		    ;; was prefered--ignore
+		    ;; was preferred--ignore
 		    (string-match "prefer" state-of-merge))
 		(setq do-not-copy t))
 		

lisp/ediff-mult.el

@@ -43,7 +43,7 @@
 ;;	   Actually, the format of this list is pretty much up to the
 ;;	   developer. The only thing is that it must be a list of lists.
 ;;	   Also, keep in mind that the function ediff-prepare-meta-buffer
-;;	   (which see) prepends nil in fron of each list (i.e., the above list
+;;	   (which see) prepends nil in front of each list (i.e., the above list
 ;;	   will become ((nil obj1 obj2 ...) (nil ...) ...).
 ;;	   Ediff expects that your function (in 2 above) will arrange to
 ;;	   replace this prepended nil (via setcar) with the actual ediff
@@ -1209,7 +1209,7 @@ all marked sessions must be active."
       (error "No active Ediff sessions or corrupted session registry"))
   (let (wind frame)
     ;; for some reason, point moves in ediff-registry-buffer, so we preserve it
-    ;; explicity
+    ;; explictly
     (ediff-eval-in-buffer ediff-registry-buffer
       (save-excursion
 	(cond  ((setq wind

lisp/ediff-util.el

@@ -733,7 +733,7 @@ Reestablish the default three-window display."
 		       ediff-patch-action
 		       ediff-toggle-wide-display ediff-toggle-multiframe))
 	       ;; Or one of the movement cmds and prev cmd was an Ediff cmd
-	       ;; This avoids rasing frames unnecessarily.
+	       ;; This avoids raising frames unnecessarily.
 	       (and (memq this-command
 			  '(ediff-next-difference
 			    ediff-previous-difference
@@ -1420,7 +1420,7 @@ the width of the A/B/C windows."
 				(move-to-window-line lines)
 				(point)))
 		       ;; `end' may be beyond the window bottom, so check
-		       ;; that we are making progres
+		       ;; that we are making progress
 		       (< prev-point (point)))
 	    (setq prev-point (point))
 	    (setq lines (1+ lines)))
@@ -2962,7 +2962,7 @@ buffer."
 
 ;;; Misc
 
-;; These two functions are here to neutralize XEmacs unwillingless to
+;; These two functions are here to neutralize XEmacs's unwillingness to
 ;; handle overlays whose buffers were deleted.
 (defun ediff-move-overlay (overlay beg end &optional buffer)
   "Calls `move-overlay' in Emacs and `set-extent-endpoints' in Lemacs.

lisp/ediff.el

@@ -85,7 +85,7 @@
 
 ;;  2. On a monochrome display, the repertoire of faces with which to
 ;;  highlight fine differences is limited. By default, Ediff is using
-;;  underlining. However, if the region is already underlied by some other
+;;  underlining. However, if the region is already underlined by some other
 ;;  overlays, there is no simple way to temporarily remove that residual
 ;;  underlining. This problem occurs when a buffer is highlighted with
 ;;  hilit19.el or font-lock.el packages. If this residual highlighting gets
@@ -175,7 +175,7 @@
     ;; Make a temp file, if source-filename has a magic file handler (or if
     ;; it is handled via auto-mode-alist and similar magic).
     ;; Check if there is a buffer visiting source-filename and if they are in
-    ;; synch; arrange for the deletion of temp file.
+    ;; sync; arrange for the deletion of temp file.
     (ediff-find-file 'true-source-filename 'buf-to-patch
 		     'ediff-last-dir-patch 'startup-hooks)
 
@@ -833,7 +833,7 @@ If WIND-B is nil, use window next to WIND-A."
     
     (save-excursion
       (save-window-excursion
-	(sit-for 0) ; synch before using window-start/end -- a precaution
+	(sit-for 0) ; sync before using window-start/end -- a precaution
 	(select-window wind-A)
 	(setq beg-A (window-start)
 	      end-A (window-end))

lisp/emacs-lisp/bytecomp.el

@@ -938,7 +938,7 @@ otherwise pop it")
 (defun byte-compile-arglist-signatures-congruent-p (old new)
   (not (or
 	 (> (car new) (car old))  ; requires more args now
-	 (and (null (cdr old))    ; tooks rest-args, doesn't any more
+	 (and (null (cdr old))    ; took rest-args, doesn't any more
 	      (cdr new))
 	 (and (cdr new) (cdr old) ; can't take as many args now
 	      (< (cdr new) (cdr old)))
@@ -1381,7 +1381,7 @@ With argument, insert value in current buffer after the form."
 	;; Compile pending forms at end of file.
 	(byte-compile-flush-pending)
 	(byte-compile-warn-about-unresolved-functions)
-	;; SHould we always do this?  When calling multiple files, it
+	;; Should we always do this?  When calling multiple files, it
 	;; would be useful to delay this warning until all have
 	;; been compiled.
 	(setq byte-compile-unresolved-functions nil))))

lisp/emacs-lisp/cl-indent.el

@@ -2,7 +2,7 @@
 
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
-;; Author: Richard Mlynark <mly@eddie.mit.edu>
+;; Author: Richard Mlynarik <mly@eddie.mit.edu>
 ;; Created: July 1987
 ;; Maintainer: FSF
 ;; Keywords: lisp, tools

lisp/emacs-lisp/cl-specs.el

@@ -7,7 +7,7 @@
 ;; LCD Archive Entry:
 ;; cl-specs.el|Daniel LaLiberte|liberte@cs.uiuc.edu
 ;; |Edebug specs for cl.el
-;; |$Date: 1995/04/19 00:47:42 $|1.1|
+;; |$Date: 1995/10/30 16:51:55 $|1.1|
 
 ;; This file is part of GNU Emacs.
 
@@ -30,7 +30,7 @@
 ;; These specs are to be used with edebug.el version 3.3 or later and
 ;; cl.el version 2.03 or later, by Dave Gillespie <daveg@synaptics.com>.
 
-;; This file need not be byte-compiled, but it shouldnt hurt.
+;; This file need not be byte-compiled, but it shouldn't hurt.
 
 (provide 'cl-specs)
 ;; Do the above provide before the following require.
@@ -412,7 +412,7 @@
 
 (def-edebug-spec loop-initial-final
   (&or ["initially" 
-	;; [&optional &or "do" "doing"]  ;; CLtL2 doesnt allow this.
+	;; [&optional &or "do" "doing"]  ;; CLtL2 doesn't allow this.
 	&rest loop-non-atomic-expr]
        ["finally" &or 
 	[[&optional &or "do" "doing"] &rest loop-non-atomic-expr]

lisp/emacs-lisp/copyright.el

@@ -48,7 +48,7 @@ When this is `function', only ask when called non-interactively.")
   "String representing the current year.")
 
 
-;; when modifiying this, also modify the comment generated by autoinsert.el
+;; when modifying this, also modify the comment generated by autoinsert.el
 (defconst copyright-current-gpl-version "2"
   "String representing the current version of the GPL or `nil'.")
 

lisp/emacs-lisp/eval-reg.el

@@ -130,7 +130,7 @@ nil means discard it; anything else is stream for print.
 This version, from `eval-reg.el', allows Lisp customization of read,
 eval, and the printer."
 
-  ;; Because this doesnt narrow to the region, one other difference 
+  ;; Because this doesn't narrow to the region, one other difference 
   ;; concerns inserting whitespace after the expression being evaluated.
 
   (interactive "r")
@@ -138,7 +138,7 @@ eval, and the printer."
       (original-eval-region elisp-start elisp-end elisp-output)
     (let ((elisp-pnt (point))
 	  (elisp-buf (current-buffer));; Outside buffer
-	  (elisp-inside-buf (current-buffer));; Buffer current while evaling
+	  (elisp-inside-buf (current-buffer));; Buffer current while evalling
 	  ;; Mark the end because it may move.
 	  (elisp-end-marker (set-marker (make-marker) elisp-end))
 	  elisp-form

lisp/emacs-lock.el

@@ -28,7 +28,7 @@
 ;; yourself from yourself.  For example, if you have a shell running a big
 ;; program and exiting emacs would abort that program, you may want to lock
 ;; that buffer, then if you forget about it after a while, you won't
-;; accidently exit emacs.  To unlock the buffer, just goto the buffer and
+;; accidentally exit emacs.  To unlock the buffer, just goto the buffer and
 ;; run toggle-emacs-lock again.
 
 (defvar lock-emacs-from-exiting nil

lisp/emerge.el

@@ -1741,7 +1741,7 @@ to the left margin, if they are in windows."
 ;; If there are min-lines lines above and below the region, then don't do
 ;; anything.
 ;; If not, recenter the region to make it so.
-;; If that isn't possible, remove context lines balancedly from top and botton
+;; If that isn't possible, remove context lines balancedly from top and bottom
 ;; so the entire region shows.
 ;; If that isn't possible, show the top of the region.
 ;; BEG must be at the beginning of a line.
@@ -2847,7 +2847,7 @@ keymap.  Leaves merge in fast mode."
 ;; a list of variables.  The argument is a list of symbols (the names of
 ;; the variables).  A list element can also be a list of two functions,
 ;; the first of which (when called with no arguments) gets the value, and
-;; the second (when called with a value as an argment) sets the value.
+;; the second (when called with a value as an argument) sets the value.
 ;; A "function" is anything that funcall can handle as an argument.
 
 (defun emerge-save-variables (vars)

lisp/emulation/edt-pc.el

@@ -38,7 +38,7 @@
 ;; NumLock must be ON.
 ;;
 ;; The PC keypad keys are mapped to the corresponding DEC LK-201
-;; keypad keys according to the corresponding physical possition on
+;; keypad keys according to the corresponding physical position on
 ;; the keyboard.  Thus, the physical position of the PC keypad key
 ;; determines its function, not the PC keycap name.
 ;;

lisp/emulation/mlsupport.el

@@ -26,7 +26,7 @@
 ;; This package provides equivalents of certain primitives from Gosling
 ;; Emacs (including the commercial UniPress versions).  These have an
 ;; ml- prefix to distinguish them from native GNU Emacs functions with
-;; similar names.  The oackage mlconvert.el translates Mocklisp code
+;; similar names.  The package mlconvert.el translates Mocklisp code
 ;; to use these names.
 
 ;;; Code: