From 110c171f4d1ff9876c7e74d2e73aeed5b6460b8b Mon Sep 17 00:00:00 2001 From: Pavel Janík Date: Sun, 13 Jan 2002 10:09:20 +0000 Subject: Fix typo. --- lisp/calendar/solar.el | 2 +- lisp/comint.el | 2 +- lisp/ediff.el | 2 +- lisp/emacs-lisp/checkdoc.el | 2 +- lisp/gud.el | 2 +- lisp/mail/feedmail.el | 2 +- lisp/man.el | 2 +- lisp/net/ange-ftp.el | 2 +- lisp/net/rcompile.el | 2 +- lisp/newcomment.el | 4 ++-- lisp/progmodes/cc-vars.el | 2 +- lisp/progmodes/cperl-mode.el | 2 +- lisp/progmodes/ebrowse.el | 2 +- lisp/ruler-mode.el | 2 +- lisp/term.el | 2 +- lisp/term/sun-mouse.el | 2 +- lisp/textmodes/artist.el | 2 +- lisp/tooltip.el | 2 +- 18 files changed, 19 insertions(+), 19 deletions(-) diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index 04998100a2..6a62d79ab8 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el @@ -418,7 +418,7 @@ local date. The second component of date should be an integer." Corresponding value is nil if there is no sunrise/sunset." (let* (; first, get the exact moment of local noon. (exact-local-noon (solar-exact-local-noon date)) - ; get the the time from the 2000 epoch. + ; get the time from the 2000 epoch. (t0 (solar-julian-ut-centuries (car exact-local-noon))) ; store the sidereal time at Greenwich at midnight of UT time. ; find if summer or winter slightly above the equator diff --git a/lisp/comint.el b/lisp/comint.el index 19046a3b76..472b6400eb 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -2326,7 +2326,7 @@ This command is like `M-.' in bash." ;; your cursor over a string that's a filename and have it taken as default. ;; ;; If the command is given in a file buffer whose major mode is in -;; SOURCE-MODES, then the the filename is the default file, and the +;; SOURCE-MODES, then the filename is the default file, and the ;; file's directory is the default directory. ;; ;; If the buffer isn't a source file buffer (e.g., it's the process buffer), diff --git a/lisp/ediff.el b/lisp/ediff.el index 24698441c0..d07075bbac 100644 --- a/lisp/ediff.el +++ b/lisp/ediff.el @@ -1243,7 +1243,7 @@ buffer." ;; buffer merge-buffer-file) "Run Ediff by merging two revisions of a file with a common ancestor. -The file is the the optional FILE argument or the file visited by the current +The file is the optional FILE argument or the file visited by the current buffer." (interactive) (if (stringp file) (find-file file)) diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 2639a93dea..f610012273 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el @@ -560,7 +560,7 @@ checkdoc status window instead of the usual behavior." Searching starts at START-HERE. SHOWSTATUS expresses the verbosity of the search, and wether ending the search will auto-exit this function. FINDFUNC is a symbol representing a function that will position the -cursor, and return error message text to present the the user. It is +cursor, and return error message text to present to the user. It is assumed that the cursor will stop just before a major sexp, which will be highlighted to present the user with feedback as to the offending style." diff --git a/lisp/gud.el b/lisp/gud.el index 8e565d7777..98e918f098 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -239,7 +239,7 @@ t means that there is no stack, and we are in display-file mode.") (defvar gud-speedbar-menu-items ;; Note to self. Add expand, and turn off items when not available. '(["Jump to stack frame" speedbar-edit-line t]) - "Additional menu items to add the the speedbar frame.") + "Additional menu items to add to the speedbar frame.") ;; Make sure our special speedbar mode is loaded (if (featurep 'speedbar) diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index a7f4a15c98..f351ab831b 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -1278,7 +1278,7 @@ function, for example, to archive all of your sent messages someplace (defvar feedmail-is-a-resend nil - "*Non-nil means the the message is a Resend (in the RFC-822 sense). + "*Non-nil means the message is a Resend (in the RFC-822 sense). This affects the composition of certain headers. feedmail sets this variable as soon as it starts prepping the message text buffer, so any user-supplied functions can rely on it. Users shouldn't set or change this diff --git a/lisp/man.el b/lisp/man.el index b428e4693b..ba7ad02ba2 100644 --- a/lisp/man.el +++ b/lisp/man.el @@ -1050,7 +1050,7 @@ Returns t if section is found, nil otherwise." (Man-find-section (aheadsym Man-sections-alist))) (defun Man-goto-see-also-section () - "Move point the the \"SEE ALSO\" section. + "Move point to the \"SEE ALSO\" section. Actually the section moved to is described by `Man-see-also-regexp'." (interactive) (if (not (Man-find-section Man-see-also-regexp)) diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index e97c14fe15..4530bb386e 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -2326,7 +2326,7 @@ and NOWAIT." "^[A-Z0-9._][A-Z0-9._][A-Z0-9._][A-Z0-9._]:$") (defun ange-ftp-guess-host-type (host user) - "Guess at the the host type of HOST. + "Guess the host type of HOST. Works by doing a pwd and examining the directory syntax." (let ((host-type (ange-ftp-host-type host)) (key (concat host "/" user "/~"))) diff --git a/lisp/net/rcompile.el b/lisp/net/rcompile.el index e635c2f161..b9ee7658d5 100644 --- a/lisp/net/rcompile.el +++ b/lisp/net/rcompile.el @@ -116,7 +116,7 @@ nil means run no commands." ;;;###autoload (defun remote-compile (host user command) - "Compile the the current buffer's directory on HOST. Log in as USER. + "Compile the current buffer's directory on HOST. Log in as USER. See \\[compile]." (interactive (let ((parsed (or (and (featurep 'ange-ftp) diff --git a/lisp/newcomment.el b/lisp/newcomment.el index c5d6849415..91ad7e64f3 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -5,7 +5,7 @@ ;; Author: code extracted from Emacs-20's simple.el ;; Maintainer: Stefan Monnier ;; Keywords: comment uncomment -;; Revision: $Id: newcomment.el,v 1.42 2001/12/02 04:19:32 monnier Exp $ +;; Revision: $Id: newcomment.el,v 1.43 2001/12/14 21:53:29 monnier Exp $ ;; This file is part of GNU Emacs. @@ -677,7 +677,7 @@ comment markers." (forward-line 1) (re-search-forward sre (line-end-position) t)) (replace-match "" t t nil (if (match-end 2) 2 1))))) - ;; Go the the end for the next comment. + ;; Go to the end for the next comment. (goto-char (point-max))))) (set-marker end nil)))) diff --git a/lisp/progmodes/cc-vars.el b/lisp/progmodes/cc-vars.el index 11f9196a41..11f6fe3864 100644 --- a/lisp/progmodes/cc-vars.el +++ b/lisp/progmodes/cc-vars.el @@ -672,7 +672,7 @@ can always override the use of `c-default-style' by making calls to ;; decl start if the first inherit clause hangs and it's not a ;; func-local inherit clause (when does that occur?). (block-open . 0) - ;; Relpos: Inexpr statement: Boi at the the preceding + ;; Relpos: Inexpr statement: Boi at the preceding ;; paren. Otherwise: None. (block-close . 0) ;; Relpos: At the open brace if it's at boi. Otherwise boi at diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 156d2f7f18..8828c6bb1d 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -2683,7 +2683,7 @@ and closing parentheses and brackets.." (if (eq (preceding-char) ?\)) (forward-sexp -1)) ;; In the case it starts a subroutine, indent with - ;; respect to `sub', not with respect to the the + ;; respect to `sub', not with respect to the ;; first thing on the line, say in the case of ;; anonymous sub in a hash. ;; diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index 0e1b862e27..b5799b368b 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el @@ -3323,7 +3323,7 @@ from point as default. Value is a list (CLASS-NAME MEMBER-NAME)." (completing-read prompt alist nil nil member-name))) (completion-result (try-completion name alist))) ;; Cannot rely on `try-completion' returning t for exact - ;; matches! It returns the the name as a string. + ;; matches! It returns the name as a string. (unless (setq member-info (gethash name members)) (if (y-or-n-p "No exact match found. Try substrings? ") (setq name diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index 21c7b69119..a628aa9933 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el @@ -410,7 +410,7 @@ START-EVENT is the mouse click event." (remove-hook 'post-command-hook ; remove local hook #'force-mode-line-update t))) -;; Add ruler-mode to the the minor mode menu in the mode line +;; Add ruler-mode to the minor mode menu in the mode line (define-key mode-line-mode-menu [ruler-mode] `(menu-item "Ruler" ruler-mode :button (:toggle . ruler-mode))) diff --git a/lisp/term.el b/lisp/term.el index 51faa6ff9a..43350c4dd9 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -2375,7 +2375,7 @@ See `term-prompt-regexp'." ;;; your cursor over a string that's a filename and have it taken as default. ;;; ;;; If the command is given in a file buffer whose major mode is in -;;; SOURCE-MODES, then the the filename is the default file, and the +;;; SOURCE-MODES, then the filename is the default file, and the ;;; file's directory is the default directory. ;;; ;;; If the buffer isn't a source file buffer (e.g., it's the process buffer), diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el index c77bba42d2..6e5113093f 100644 --- a/lisp/term/sun-mouse.el +++ b/lisp/term/sun-mouse.el @@ -594,7 +594,7 @@ and the resulting value is returned. Generally these FORMs are evaluated for their side-effects rather than their values. If the selected form is a menu or a symbol whose value is a menu, then it is displayed and evaluated as a pullright menu item. - If the the FORM of the first ITEM is nil, the STRING of the item + If the FORM of the first ITEM is nil, the STRING of the item is used as a label for the menu, i.e. it's inverted and not selectable." (if (symbolp menu) (setq menu (symbol-value menu))) diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 73fc15b6fb..12f0e253b5 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -823,7 +823,7 @@ The layout of the INFO-PART for `graphics-operation' is (TITLE (UNSHIFTED SHIFTED)) -TITLE is the the title that appears in the popup menu. UNSHIFTED +TITLE is the title that appears in the popup menu. UNSHIFTED and SHIFTED specify for unshifted and shifted operation. Both have the form diff --git a/lisp/tooltip.el b/lisp/tooltip.el index 517de9b59b..f938bbb91f 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el @@ -538,7 +538,7 @@ MSG is either a help string to display, or nil to cancel the display." (defun tooltip-help-tips (event) "Hook function to display a help tooltip. This is installed on the hook `tooltip-hook', which is run when -the the timer with ID `tooltip-timeout-id' fires. +the timer with ID `tooltip-timeout-id' fires. Value is non-nil if this function handled the tip." (when (stringp tooltip-help-message) (tooltip-show tooltip-help-message) -- cgit v1.2.3