;; Each member header points to the next. The archive is
;; terminated by a bogus header with a zero next link.
;; -------------------------------------
-;; HOOKS: `foo' means one the the supported archive types.
+;; HOOKS: `foo' means one of the supported archive types.
;;
;; archive-mode-hook
;; archive-foo-mode-hook
Upon entering array mode, you will be prompted for the values of
several variables. Others will be calculated based on the values you
-supply. These variables are all local the the buffer. Other buffer
+supply. These variables are all local to the buffer. Other buffer
in array mode may have different values assigned to the variables.
The variables are:
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
;; 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),
;; 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))
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."
(defun edt-tab-insert (num)
"Insert tab character at cursor position.
-Argument NUM is the the number of tabs to insert."
+Argument NUM is the number of tabs to insert."
(interactive "*p")
(edt-check-prefix num)
(while (> num 0)
(defun tpu-delete-to-eol (num)
"Delete text up to end of line.
-With argument, delete up to to Nth line-end past point.
+With argument, delete up to the Nth line-end past point.
They are saved for the TPU-edt undelete-lines command."
(interactive "p")
(let ((beg (point)))
(defun tpu-delete-to-bol (num)
"Delete text back to beginning of line.
-With argument, delete up to to Nth line-end past point.
+With argument, delete up to the Nth line-end past point.
They are saved for the TPU-edt undelete-lines command."
(interactive "p")
(let ((beg (point)))
The buffer used for Eshell sessions is determined by the value of
`eshell-buffer-name'. If there is already an Eshell session active in
that buffer, Emacs will simply switch to it. Otherwise, a new session
-will begin. A new session is always created if the the prefix
-argument ARG is specified. Returns the buffer selected (or created)."
+will begin. A new session is always created if the prefix argument
+ARG is specified. Returns the buffer selected (or created)."
(interactive "P")
(assert eshell-buffer-name)
(let ((buf (if arg
(cond
;; The window was moved. Move it back and
;; select a new. If no better could be found,
- ;; we stick the the new start position. This
+ ;; we stick to the new start position. This
;; is used when the original process filter
;; tries to position the cursor at the bottom
;; of the window. Example: `lyskom'.
(mm-handle-id handle)))))
(defun gnus-mime-copy-part (&optional handle)
- "Put the the MIME part under point into a new buffer."
+ "Put the MIME part under point into a new buffer."
(interactive)
(gnus-article-check-buffer)
(let* ((handle (or handle (get-text-property (point) 'gnus-data)))
(defsubst nnmail-search-unix-mail-delim ()
"Put point at the beginning of the next Unix mbox message."
- ;; Algorithm used to find the the next article in the
+ ;; Algorithm used to find the next article in the
;; brain-dead Unix mbox format:
;;
;; 1) Search for "^From ".
(defun nnmail-search-unix-mail-delim-backward ()
"Put point at the beginning of the current Unix mbox message."
- ;; Algorithm used to find the the next article in the
+ ;; Algorithm used to find the next article in the
;; brain-dead Unix mbox format:
;;
;; 1) Search for "^From ".
(let ((split-rest (cddr split))
(end (match-end 0))
;; The searched regexp is \(\(FIELD\).*\)\(VALUE\). So,
- ;; start-of-value is the the point just before the
+ ;; start-of-value is the point just before the
;; beginning of the value, whereas after-header-name is
;; the point just after the field name.
(start-of-value (match-end 1))
;;; which keeps the size of the virtual active list the same as
;;; the sum of the component active lists.
;;; To achieve fair mixing of the groups, the last article in
-;;; each of N component groups will be in the the last N articles
+;;; each of N component groups will be in the last N articles
;;; in the virtual group.
;;; If you have 3 components A, B and C, with articles 1-8, 1-5, and 6-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)
(defun ogonek-read-encoding (prompt default-name-var)
"Read encoding name with completion based on `ogonek-name-encoding-alist'.
-Store the name in the the parameter-variable DEFAULT-NAME-VAR.
+Store the name in the parameter-variable DEFAULT-NAME-VAR.
PROMPT is a string to be shown when the user is asked for a name."
(let ((encoding
(completing-read
(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
(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-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 at 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 "/~")))
;;;###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)
;; 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.35.4.3 2001/11/19 20:35:04 monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.35.4.4 2002/03/04 01:17:11 monnier Exp $
;; This file is part of GNU Emacs.
(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))))
}def
%%EndPreamble\n"))
-;;The the font size for the PostScript output.
+;;The font size for the PostScript output.
;;Also the x-y-translations of the PostScript stuff.
(defun handwrite-insert-info ()
(insert "\n%%BeginSizeTranslate\n")
;; 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
- ;; paren. Otherwise: None.
+ ;; 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
;; the start of the statement the open brace hangs on, or boi
(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.
;;
(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
should return the starting point (at the end of line) of the hidden
region.
-It is called with a single argument ARG which is the the position in
+It is called with a single argument ARG which is the position in
buffer after the block beginning.
It should return the position from where we should start hiding.
;; Author: Chris Chase <chase@att.com>
;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu>
;; Version: 4.7
-;; Date: $Date: 2001/07/16 12:22:59 $
+;; Date: $Date: 2001/12/01 13:14:33 $
;; Keywords: processes
;; This file is part of GNU Emacs.
;;
;; I don't plan on implementing directory tracking by watching the IDL
;; commands entered at the prompt, since too often an IDL procedure
-;; will change the current directory. If you want the the idl process
+;; will change the current directory. If you want the idl process
;; buffer to match the IDL current working just execute `M-x
;; idlwave-shell-resync-dirs' (bound to "\C-c\C-d\C-w" by default.)
;;
;; Author: Chris Chase <chase@att.com>
;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu>
;; Version: 4.7
-;; Date: $Date: 2001/07/16 12:22:59 $
+;; Date: $Date: 2001/12/01 13:14:33 $
;; Keywords: languages
;; This file is part of GNU Emacs.
(defconst idlwave-statement-match
(list
- ;; "endif else" is the the only possible "end" that can be
+ ;; "endif else" is the only possible "end" that can be
;; followed by a statement on the same line.
'(endelse . ("end\\(\\|if\\)\\s +else" "end\\(\\|if\\)\\s +else"))
;; all other "end"s can not be followed by a statement.
;; No hang. Instead find minimum indentation of paragraph
;; after first line.
;; For the following while statement, since START is at the
- ;; beginning of line and END is at the the end of line
+ ;; beginning of line and END is at the end of line
;; point is greater than START at least once (which would
;; be the case for a single line paragraph).
(while (> (point) start)
;; string act as an
;; escape for the delimiter in the string.
;; Two consecutive delimiters alone (i.e., not after the
- ;; start of a string) is the the null string.
+ ;; start of a string) is the null string.
(progn
;; Move to position after quote
(goto-char (1+ (match-beginning 0)))
;;; 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),
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
-is used as a label for the menu, i.e. it's inverted and not selectable."
+ 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)))
(eval (sun-menu-internal *menu-window* *menu-x* *menu-y* 4 menu)))
(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
(reftex-parse-bibtex-entry nil start (point)))
nil)))))
-;; Parse the thebibliography environment
+;; Parse the bibliography environment
(defun reftex-extract-bib-entries-from-thebibliography (files)
;; Extract bib-entries from the \begin{thebibliography} environment.
;; Parsing is not as good as for the BibTeX database stuff.
(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)
projects / emacs.git / commitdiff