Commit a7acbbe4 authored by Karl Heuer's avatar Karl Heuer
Browse files

Comment fixes.

parent 60d0378e
......@@ -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
......
......@@ -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)))
......
......@@ -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.
......
......@@ -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
......
......@@ -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\\)$"
......
......@@ -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
......
......@@ -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.
......
......@@ -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))
......
......@@ -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
......
......@@ -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.
......
......@@ -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))
......
......@@ -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))))
......
......@@ -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
......
......@@ -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]
......
......@@ -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'.")
......
......@@ -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
......
......@@ -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
......
......@@ -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)
......
......@@ -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.
;;
......
......@@ -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:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment