Mercurial > emacs
changeset 42706:be541feb06cc
Fix typo.
| author | Pavel Janík <Pavel@Janik.cz> |
|---|---|
| date | Sun, 13 Jan 2002 10:09:20 +0000 |
| parents | 963ac6b8fb83 |
| children | 8d5458375774 |
| files | lisp/calendar/solar.el lisp/comint.el lisp/ediff.el lisp/emacs-lisp/checkdoc.el lisp/gud.el lisp/mail/feedmail.el lisp/man.el lisp/net/ange-ftp.el lisp/net/rcompile.el lisp/newcomment.el lisp/progmodes/cc-vars.el lisp/progmodes/cperl-mode.el lisp/progmodes/ebrowse.el lisp/ruler-mode.el lisp/term.el lisp/term/sun-mouse.el lisp/textmodes/artist.el lisp/tooltip.el |
| diffstat | 18 files changed, 19 insertions(+), 19 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/solar.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/calendar/solar.el Sun Jan 13 10:09:20 2002 +0000 @@ -418,7 +418,7 @@ 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
--- a/lisp/comint.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/comint.el Sun Jan 13 10:09:20 2002 +0000 @@ -2326,7 +2326,7 @@ ;; 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),
--- a/lisp/ediff.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/ediff.el Sun Jan 13 10:09:20 2002 +0000 @@ -1243,7 +1243,7 @@ ;; 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))
--- a/lisp/emacs-lisp/checkdoc.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/emacs-lisp/checkdoc.el Sun Jan 13 10:09:20 2002 +0000 @@ -560,7 +560,7 @@ 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."
--- a/lisp/gud.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/gud.el Sun Jan 13 10:09:20 2002 +0000 @@ -239,7 +239,7 @@ (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)
--- a/lisp/mail/feedmail.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/mail/feedmail.el Sun Jan 13 10:09:20 2002 +0000 @@ -1278,7 +1278,7 @@ (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
--- a/lisp/man.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/man.el Sun Jan 13 10:09:20 2002 +0000 @@ -1050,7 +1050,7 @@ (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))
--- a/lisp/net/ange-ftp.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/net/ange-ftp.el Sun Jan 13 10:09:20 2002 +0000 @@ -2326,7 +2326,7 @@ "^[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 "/~")))
--- a/lisp/net/rcompile.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/net/rcompile.el Sun Jan 13 10:09:20 2002 +0000 @@ -116,7 +116,7 @@ ;;;###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)
--- a/lisp/newcomment.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/newcomment.el Sun Jan 13 10:09:20 2002 +0000 @@ -5,7 +5,7 @@ ;; Author: code extracted from Emacs-20's simple.el ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> ;; 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 @@ (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))))
--- a/lisp/progmodes/cc-vars.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/progmodes/cc-vars.el Sun Jan 13 10:09:20 2002 +0000 @@ -672,7 +672,7 @@ ;; 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
--- a/lisp/progmodes/cperl-mode.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/progmodes/cperl-mode.el Sun Jan 13 10:09:20 2002 +0000 @@ -2683,7 +2683,7 @@ (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. ;;
--- a/lisp/progmodes/ebrowse.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/progmodes/ebrowse.el Sun Jan 13 10:09:20 2002 +0000 @@ -3323,7 +3323,7 @@ (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
--- a/lisp/ruler-mode.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/ruler-mode.el Sun Jan 13 10:09:20 2002 +0000 @@ -410,7 +410,7 @@ (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)))
--- a/lisp/term.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/term.el Sun Jan 13 10:09:20 2002 +0000 @@ -2375,7 +2375,7 @@ ;;; 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),
--- a/lisp/term/sun-mouse.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/term/sun-mouse.el Sun Jan 13 10:09:20 2002 +0000 @@ -594,7 +594,7 @@ 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)))
--- a/lisp/textmodes/artist.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/textmodes/artist.el Sun Jan 13 10:09:20 2002 +0000 @@ -823,7 +823,7 @@ (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
--- a/lisp/tooltip.el Sun Jan 13 09:56:13 2002 +0000 +++ b/lisp/tooltip.el Sun Jan 13 10:09:20 2002 +0000 @@ -538,7 +538,7 @@ (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)