1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00

Spelling fixes.

This commit is contained in:
Paul Eggert 2011-11-17 01:09:20 -08:00
parent b6e63cbebd
commit 4c36be58ca
102 changed files with 178 additions and 176 deletions

View File

@ -17,7 +17,7 @@ Date: Tue, 31 Mar 2009 12:21:20 +0900
files), not one-by-one. This is pretty easy using vc-dir now.
(2) Make the log message describe the entire changeset, perhaps
including relevant changelog entiries (I often don't bother with
including relevant changelog entries (I often don't bother with
the latter if it's a trivial sort of change).
Many modern source-control systems vaguely distinguish the first

View File

@ -1348,7 +1348,7 @@ AH_TEMPLATE(POINTER_TYPE,
[Define as `void' if your compiler accepts `void *'; otherwise
define as `char'.])dnl
dnl Check for endianess
dnl Check for endianness.
AC_C_BIGENDIAN
AC_CACHE_CHECK([for __attribute__ ((__aligned__ (expr)))],

View File

@ -184,7 +184,7 @@ convention, where file names are a simple modification of the Ada
names, and the extension for specs and bodies are
@samp{.ads} and @samp{.adb}, respectively.
Ada mode uses the file extentions to allow moving from a package body
Ada mode uses the file extensions to allow moving from a package body
to the corresponding spec and back.
Ada mode supports a list of alternative file extensions for specs and bodies.

View File

@ -26756,7 +26756,7 @@ Sudish Joseph---innumerable bug fixes.
Ilja Weis---@file{gnus-topic.el}.
@item
Steven L. Baur---lots and lots and lots of bugs detections and fixes.
Steven L. Baur---lots and lots and lots of bug detection and fixes.
@item
Vladimir Alexiev---the refcard and reference booklets.

View File

@ -6216,7 +6216,7 @@ not started at exactly the right moment.
@kindex ;
Calling @code{org-timer-set-timer} from an Org-mode buffer runs a countdown
timer. Use @kbd{;} from agenda buffers, @key{C-c C-x ;} everwhere else.
timer. Use @kbd{;} from agenda buffers, @key{C-c C-x ;} everywhere else.
@code{org-timer-set-timer} prompts the user for a duration and displays a
countdown timer in the modeline. @code{org-timer-default-timer} sets the

View File

@ -57,18 +57,18 @@ and various tools for secure communication. PGG also provides a simple
user interface to encrypt, decrypt, sign, and verify MIME messages.
@ifnottex
@insertcopying
@insertcopying
@end ifnottex
@menu
* Overview:: What PGG is.
* Prerequisites:: Complicated stuff you may have to do.
* How to use:: Getting started quickly.
* Architecture::
* Parsing OpenPGP packets::
* Architecture::
* Parsing OpenPGP packets::
* GNU Free Documentation License:: The license for this documentation.
* Function Index::
* Variable Index::
* Function Index::
* Variable Index::
@end menu
@node Overview
@ -137,10 +137,10 @@ list autoload setting for desired functions as follows.
@end lisp
@menu
* User Commands::
* Selecting an implementation::
* Caching passphrase::
* Default user identity::
* User Commands::
* Selecting an implementation::
* Caching passphrase::
* Default user identity::
@end menu
@node User Commands
@ -358,13 +358,13 @@ singleton object wrapped with the luna object system.
Since PGG was designed for accessing and developing PGP functionality,
the architecture had to be designed not just for interoperability but
also for extensiblity. In this chapter we explore the architecture
also for extensibility. In this chapter we explore the architecture
while finding out how to write the PGG back end.
@menu
* Initializing::
* Back end methods::
* Getting output::
* Initializing::
* Back end methods::
* Getting output::
@end menu
@node Initializing

View File

@ -606,7 +606,7 @@ Emacs Lisp. It is an LALR parser suitable for complex languages.
@c LocalWords: concat concocting const constantness ctxt Decl defcustom
@c LocalWords: deffn deffnx defun defvar destructor's dfn diff dir
@c LocalWords: doc docstring EDE EIEIO elisp emacsman emph enum
@c LocalWords: eq Exp EXPANDFULL expresssion fn foo func funcall
@c LocalWords: eq Exp EXPANDFULL expression fn foo func funcall
@c LocalWords: ia ids iff ifinfo imenu imenus init int isearch itemx java kbd
@c LocalWords: keymap keywordtable lang languagemode lexer lexing Ludlam
@c LocalWords: menubar metaparent metaparents min minibuffer Misc mode's

View File

@ -1612,7 +1612,7 @@ Changes in Emacs 13
The string "../lisp" now adds to the front of the load-path
used for searching for Lisp files during Emacs initialization.
It used to replace the path specified in paths.h entirely.
Now the directory ../lisp is searched first and the directoris
Now the directory ../lisp is searched first and the directories
specified in paths.h are searched afterward.
@ -1670,7 +1670,7 @@ Changes in Emacs 1.12
the string, it is used unchanged.
One way this feature can be used is to fix bad keyboard
designes. For example, on some terminals, Delete is
designs. For example, on some terminals, Delete is
Shift-Underscore. Since Delete is a more useful character
than Underscore, it is an improvement to make the unshifted
character Delete and the shifted one Underscore. This can
@ -2446,7 +2446,7 @@ Changes in Emacs 1.1
containing *'s, etc, all processed by the shell). Also, you
can dired more than one directory; dired names the buffer
according to the filespec or directory name. Reinvoking
dired on a directory already direded just switches back to
dired on a directory already diredded just switches back to
the same directory used last time; do M-x revert if you want
to read in the current contents of the directory.

View File

@ -337,7 +337,7 @@
("(" . "$(7!l(B")
("0" . "$(7!P(B")
(")" . "$(7!m(B")
;;; ("-" ) ; enphatic, not yet supported
;;; ("-" ) ; emphatic, not yet supported
;;; ("_" ) ; id.
;;; ("=" ) ; special sign, not yet supported
("+" . "$(7!A(B")

View File

@ -346,7 +346,7 @@ read_scores (const char *filename, struct score_entry **scores, int *count)
return -1;
while ((readval = read_score (f, &ret[scorecount])) == 0)
{
/* We encoutered an error */
/* We encountered an error. */
if (readval < 0)
return -1;
scorecount++;

View File

@ -16735,7 +16735,7 @@
* progmodes/cc-cmds.el (c-beginning-of-statement (and
subfunctions)): Adapt c-\(back\|forward\)-over-illiterals such
that movement over macros and code are rigorously separated from
eachother. Correct a few incidental bugs.
each other. Correct a few incidental bugs.
* progmodes/cc-cmds.el: Restructure c-beginning-of-statement:
Improve its doc-string. Improve the handling of certain specific cases.

View File

@ -49,7 +49,7 @@
;; systematically couple overlays, graphics, and other features with
;; allout-governed text.
;;;_: Code (structured with comments that delinieate an allout outline)
;;;_: Code (structured with comments that delineate an allout outline)
;;;_ : General Environment
(require 'allout)

View File

@ -1544,7 +1544,7 @@ substitution is used against the regexp matches, a la `replace-match'.")
"Variable for regexps matching plaintext to remove before encryption.
This is used to detect strings in encryption results that would
register as allout mode structural elements, for exmple, as a
register as allout mode structural elements, for example, as a
topic prefix.
Entries must be symbols that are bound to the desired regexp values.
@ -3543,7 +3543,7 @@ PRIOR-BULLET.)
Fifth arg, NUMBER-CONTROL, matters only if `allout-numbered-bullet'
is non-nil *and* no specific INSTEAD was specified. Then
NUMBER-CONTROL non-nil forces prefix to either numbered or
denumbered format, depending on the value of the sixth arg, INDEX.
unnumbered format, depending on the value of the sixth arg, INDEX.
\(Note that NUMBER-CONTROL does *not* apply to level 1 topics. Sorry...)

View File

@ -68,7 +68,7 @@
;;
;; Markus Kuhn <Markus.Kuhn@cl.cam.ac.uk> for pointing me to ECMA-48.
;;
;; Stefan Monnier <foo@acm.com> explaing obscure font-lock stuff and
;; Stefan Monnier <foo@acm.com> for explaining obscure font-lock stuff and for
;; code suggestions.

View File

@ -125,7 +125,7 @@
"The mode settings for Calc buffer when put in embedded mode.")
(defun calc-embedded-save-original-modes ()
"Save the current Calc modes when entereding embedded mode."
"Save the current Calc modes when entering embedded mode."
(let ((calcbuf (save-excursion
(calc-create-buffer)
(current-buffer)))
@ -144,7 +144,7 @@
(let ((var (cdr (car v))))
(unless (memq var '(the-language the-display-just))
(setq modes
(cons (cons var (symbol-value var))
(cons (cons var (symbol-value var))
modes))))
(setq v (cdr v))))
(setq calc-embedded-original-modes (cons lang modes)))
@ -182,7 +182,7 @@
(calc-set-mode-line))))
(setq calc-embedded-original-modes nil)))
;; The variables calc-embed-outer-top, calc-embed-outer-bot,
;; The variables calc-embed-outer-top, calc-embed-outer-bot,
;; calc-embed-top and calc-embed-bot are
;; local to calc-do-embedded, calc-embedded-mark-formula,
;; calc-embedded-duplicate, calc-embedded-new-formula and
@ -195,7 +195,7 @@
;; The variable calc-embed-arg is local to calc-do-embedded,
;; calc-embedded-update-formula, calc-embedded-edit and
;; calc-do-embedded-activate, but is used by
;; calc-do-embedded-activate, but is used by
;; calc-embedded-make-info, which is called by the above
;; functions.
(defvar calc-embed-arg)
@ -208,14 +208,14 @@
;; The following is to take care of any minor modes which override
;; a Calc command.
(defvar calc-override-minor-modes-map
(defvar calc-override-minor-modes-map
(make-sparse-keymap)
"A list of keybindings that might be overwritten by minor modes.")
;; Add any keys that might be overwritten here.
(define-key calc-override-minor-modes-map "`" 'calc-edit)
(defvar calc-override-minor-modes
(defvar calc-override-minor-modes
(cons t calc-override-minor-modes-map))
(defun calc-do-embedded (calc-embed-arg end obeg oend)
@ -279,7 +279,7 @@
(calc-embedded-save-original-modes)
(or calc-embedded-globals
(calc-find-globals))
(setq info
(setq info
(calc-embedded-make-info (point) nil t calc-embed-arg end obeg oend))
(if (eq (car-safe (aref info 8)) 'error)
(progn
@ -564,7 +564,7 @@ The command \\[yank] can retrieve it from there."
(goto-char calc-embed-outer-bot)
(insert "\n")
(setq new-top (point))
(insert-buffer-substring (current-buffer)
(insert-buffer-substring (current-buffer)
calc-embed-outer-top calc-embed-outer-bot)
(goto-char (+ new-top (- calc-embed-top calc-embed-outer-top)))
(let ((calc-embedded-quiet (if already t 'x)))
@ -659,7 +659,7 @@ The command \\[yank] can retrieve it from there."
(equal (symbol-value (car (car v))) value))
(progn
(setq changed t)
(if temp (setq calc-embed-prev-modes
(if temp (setq calc-embed-prev-modes
(cons (cons (car (car v))
(symbol-value (car (car v))))
calc-embed-prev-modes)))
@ -809,12 +809,12 @@ The command \\[yank] can retrieve it from there."
(list modes emodes pmodes)))
;; The variable calc-embed-vars-used is local to calc-embedded-make-info,
;; calc-embedded-evaluate-expr and calc-embedded-update, but is
;; calc-embedded-evaluate-expr and calc-embedded-update, but is
;; used by calc-embedded-find-vars, which is called by the above functions.
(defvar calc-embed-vars-used)
(defun calc-embedded-make-info (point cbuf fresh &optional
calc-embed-top calc-embed-bot
calc-embed-top calc-embed-bot
calc-embed-outer-top calc-embed-outer-bot)
(let* ((bufentry (assq (current-buffer) calc-embedded-active))
(found bufentry)
@ -831,7 +831,7 @@ The command \\[yank] can retrieve it from there."
(newform (assoc major-mode calc-embedded-open-close-formula-alist))
(newword (assoc major-mode calc-embedded-word-regexp-alist))
(newplain (assoc major-mode calc-embedded-open-close-plain-alist))
(newnewform
(newnewform
(assoc major-mode calc-embedded-open-close-new-formula-alist))
(newmode (assoc major-mode calc-embedded-open-close-mode-alist)))
(when newann
@ -874,9 +874,9 @@ The command \\[yank] can retrieve it from there."
(aset info 1 (or cbuf (save-excursion
(calc-create-buffer)
(current-buffer)))))
(if (and
(if (and
(or (integerp calc-embed-top) (equal calc-embed-top '(4)))
(not calc-embed-bot))
(not calc-embed-bot))
; started with a user-supplied argument
(progn
(if (equal calc-embed-top '(4))
@ -1157,7 +1157,7 @@ The command \\[yank] can retrieve it from there."
(if need-display
(calc-embedded-set-justify (cdr (car calc-embed-prev-modes)))))
(t
(set (car (car calc-embed-prev-modes))
(set (car (car calc-embed-prev-modes))
(cdr (car calc-embed-prev-modes)))))
(setq calc-embed-prev-modes (cdr calc-embed-prev-modes))))))

View File

@ -432,7 +432,7 @@
(define-key calc-mode-map "ls" 'calc-spn)
(define-key calc-mode-map "lm" 'calc-midi)
(define-key calc-mode-map "lf" 'calc-freq)
(define-key calc-mode-map "l?" 'calc-l-prefix-help)
(define-key calc-mode-map "m" nil)
@ -2867,7 +2867,7 @@ If X is not an error form, return 1."
(memq (nth 2 expr) '(var-inf var-uinf var-nan)))))
;; The variable math-integral-cache is originally declared in calcalg2.el,
;; but is set by math-defintegral and math-definitegral2.
;; but is set by math-defintegral and math-defintegral-2.
(defvar math-integral-cache)
(defmacro math-defintegral (funcs &rest code)

View File

@ -823,7 +823,7 @@ In Emacs Lisp this is easily defined by parenthesis bounding."
(&optional point)
"Return a list of tag classes allowed at POINT.
Emacs Lisp knows much more about the class of the tag needed to perform
completion than some languages. We distincly know if we are to be a
completion than some languages. We distinctly know if we are to be a
function name, variable name, or any type of symbol. We could identify
fields and such to, but that is for some other day."
(save-excursion

View File

@ -891,7 +891,7 @@ making the action of homing in on a token faster.")
This completion is calculated and saved for future use.")
(last-whitespace-completion :type (or null string)
:documentation "The last whitespace completion.
For partial completion, SPC will disabiguate over whitespace type
For partial completion, SPC will disambiguate over whitespace type
characters. This is the last calculated version.")
(current-exact-match :type list
:protection :protected
@ -1353,7 +1353,7 @@ to click on the items to aid in completion.")
(defmethod semantic-displayor-show-request ((obj semantic-displayor-traditional))
"A request to show the current tags table."
;; NOTE TO SELF. Find the character to type next, and emphesize it.
;; NOTE TO SELF. Find the character to type next, and emphasize it.
(with-output-to-temp-buffer "*Completions*"
(display-completion-list
@ -1377,7 +1377,7 @@ given tag, by highlighting its location.")
)
"Abstract displayor supporting `focus'.
A displayor which has the ability to focus in on one tag.
Focusing is a way of differentiationg between multiple tags
Focusing is a way of differentiating among multiple tags
which have the same name."
:abstract t)

View File

@ -289,7 +289,7 @@ Argument OBJ is the object to write."
(when (and (boundp semantic-show-unmatched-syntax-mode)
semantic-show-unmatched-syntax-mode)
;; Only do this if the user runs unmatched syntax
;; mode display enties.
;; mode display entries.
(oset obj unmatched-syntax
(semantic-show-unmatched-lex-tokens-fetch))
)

View File

@ -368,7 +368,7 @@ a master list."
(semanticdb-typecache-merge-streams
incstream
;; Getting the cache from this table will also cause this
;; file to update it's cache from it's decendants.
;; file to update its cache from its decendents.
;;
;; In theory, caches are only built for most includes
;; only once (in the loop before this one), so this ends

View File

@ -606,7 +606,7 @@ The file associated with OBJ does not need to be in a buffer."
;; The lexical table should be good too.
(when (featurep 'semantic/lex-spp)
(oset table lexical-table (semantic-lex-spp-save-table)))
;; this implies dirtyness
;; this implies dirtiness
(semanticdb-set-dirty table)
;; Synchronize the index

View File

@ -537,7 +537,7 @@ This function is for internal use by `semantic-edits-incremental-parser'."
;; We want to take some set of changes, and group them
;; together into a small change group. One change forces
;; a reparse of a larger region (the size of some set of
;; tags it encompases.) It may contain several tags.
;; tags it encompasses.) It may contain several tags.
;; That region may have other changes in it (several small
;; changes in one function, for example.)
;; Optimize for the simple cases here, but try to handle

View File

@ -603,7 +603,7 @@ This associates a symbol, such as 'public with the st ring \"+\".")
"Convert PROTECTION-SYMBOL to a string for UML.
By default, uses `semantic-format-tag-protection-symbol-to-string-assoc-list'
to convert.
By defaul character returns are:
By default character returns are:
public -- +
private -- -
protected -- #.

View File

@ -639,7 +639,7 @@ and what valid VAL values are."
;;; Macro Merging
;;
;; Used when token streams from different macros include eachother.
;; Used when token streams from different macros include each other.
;; Merged macro streams perform in place replacements.
(defun semantic-lex-spp-merge-streams (raw-stream)

View File

@ -399,7 +399,7 @@ Returns the tag list, or t for an error."
(if (listp out)
(condition-case nil
(progn
;; This brings externally defind methods into
;; This brings externally defined methods into
;; their classes, and creates meta classes for
;; orphans.
(setq out (semantic-adopt-external-members out))

View File

@ -597,7 +597,7 @@ Note: TYPE not yet implemented."
;; ;; If we have a string, do the replacement.
;; (delete-region (semantic-tag-start tag)
;; (semantic-tag-end tag))
;; ;; Use useful functions from the docaument library.
;; ;; Use useful functions from the document library.
;; (srecode-texi-insert-tag-as-doc doctag)
;; ;(semantic-insert-foreign-tag doctag)
;; ))

View File

@ -62,7 +62,7 @@
(dictionary :initarg :dictionary
:type (or null srecode-dictionary)
:documentation
"List of section dictinaries.
"List of section dictionaries.
The compiled template can contain lists of section dictionaries,
or values that are expected to be passed down into different
section macros. The template section dictionaries are merged in with

View File

@ -202,7 +202,7 @@ associated with a buffer or parent."
:size 20)
:origin origin)))
;; Only set up the default variables if we are being built
;; directroy for a particular buffer.
;; directly for a particular buffer.
(when initfrombuff
;; Variables from the table we are inserting from.
;; @todo - get a better tree of tables.

View File

@ -720,7 +720,7 @@ allocating something based on its type."
"Convert tag or string PARAM into a name,comment pair.
Optional COMMENTLIST is list of previously existing comments to
use instead in alist form. If the name doesn't appear in the list of
standard names, then englishify it instead."
standard names, then english it instead."
(let ((cmt "")
(aso srecode-document-autocomment-param-alist)
(fnd nil)

View File

@ -936,7 +936,7 @@ with the dictionaries found in the dictionary."
(if (srecode-dictionary-lookup-name dictionary (oref sti :object-name))
;; If we have a value, then call the next method
(srecode-insert-method-helper sti dictionary 'includedtemplate)
;; If we don't have a special dictitonary, then just insert with the
;; If we don't have a special dictionary, then just insert with the
;; current dictionary.
(srecode-insert-subtemplate sti dictionary 'includedtemplate))
)

View File

@ -347,7 +347,7 @@ This calls touch."
;; Do the operation and record failures.
failures (nconc (apply function (append args pending))
failures)
;; Transfer the elemens of PENDING onto PAST
;; Transfer the elements of PENDING onto PAST
;; and clear it out. Now PAST contains the first N files
;; specified (for some N), and FILES contains the rest.
past (nconc past pending)
@ -1490,7 +1490,7 @@ ARG as in `dired-get-marked-files'.
Optional arg MARKER-CHAR as in `dired-create-files'.
Optional arg OP1 is an alternate form for OPERATION if there is
only one file.
Optional arg HOW-TO determiness how to treat the target.
Optional arg HOW-TO determines how to treat the target.
If HOW-TO is nil, use `file-directory-p' to determine if the
target is a directory. If so, the marked file(s) are created
inside that directory. Otherwise, the target is a plain file;

View File

@ -664,8 +664,8 @@
;; @@@ Enabling automatic advice activation:
;; =========================================
;; Automatic advice activation is enabled by default. It can be disabled by
;; doint `M-x ad-stop-advice' and enabled again with `M-x ad-start-advice'.
;; Automatic advice activation is enabled by default. It can be disabled with
;; `M-x ad-stop-advice' and enabled again with `M-x ad-start-advice'.
;; @@ Caching of advised definitions:
;; ==================================

View File

@ -743,7 +743,7 @@ BYTES and PC are updated after evaluating all the arguments."
(defmacro byte-compile-push-bytecode-const2 (opcode const2 bytes pc)
"Push OPCODE and the two-byte constant CONST2 onto BYTES, and add 3 to PC.
CONST2 may be evaulated multiple times."
CONST2 may be evaluated multiple times."
`(byte-compile-push-bytecodes ,opcode (logand ,const2 255) (lsh ,const2 -8)
,bytes ,pc))

View File

@ -1579,8 +1579,9 @@ KEYWORDS are additional arguments, which can use the following keywords:
(while (setq closer (pop closers))
(unless (and closers
;; FIXME: this eliminates prefixes of other
;; closers, but we should probably elimnate
;; prefixes of other keywords as well.
;; closers, but we should probably
;; eliminate prefixes of other keywords
;; as well.
(string-prefix-p closer (car closers)))
(push (aref closer (1- (length closer))) triggers)))
(delete-dups triggers)))))))

View File

@ -607,7 +607,7 @@ will return the parsed command."
(setq command (eshell-parse-command (cons beg end)
args t)))))
(ignore
(message "Expecting completion of delimeter %c ..."
(message "Expecting completion of delimiter %c ..."
(if (listp delim)
(car delim)
delim)))

View File

@ -59,7 +59,7 @@ IMAGESPEC is the image data, and DOCSTRING is documentation for the image."
(defimage ,variable ,imagespec ,docstring)
(put (quote ,variable) 'ezimage t)))
;; This hack is for the ezimage install which has an icons direcory for
;; This hack is for the ezimage install which has an icons directory for
;; the default icons to be used.
;; (add-to-list 'load-path
;; (concat (file-name-directory

View File

@ -523,7 +523,7 @@ The optional NOMODIFY argument suppresses the extra search."
;; (ffap-file-remote-p "/ffap.el:80")
(or (and ffap-ftp-regexp
(string-match ffap-ftp-regexp filename)
;; Convert "/host.com://dir" to "/host:/dir", to handle a dieing
;; Convert "/host.com://dir" to "/host:/dir", to handle a dying
;; practice of advertising ftp files as "host.dom://filename".
(if (string-match "//" filename)
;; (replace-match "/" nil nil filename)

View File

@ -560,7 +560,7 @@ Keys specific to Follow mode:
;; `scroll-up' and `-down', but for windows in Follow mode.
;;
;; Almost like the real thing, excpet when the cursor ends up outside
;; Almost like the real thing, except when the cursor ends up outside
;; the top or bottom... In our case however, we end up outside the
;; window and hence we are recenterd. Should we let `recenter' handle
;; the point position we would never leave the selected window. To do

View File

@ -553,7 +553,7 @@ The following commands are available:
(gnus-server-list-servers))
(defun gnus-server-copy-server (from to)
"Copy a server definiton to a new name."
"Copy a server definition to a new name."
(interactive
(list
(or (gnus-server-server-name)

View File

@ -3582,7 +3582,7 @@ that that variable is buffer-local to the summary buffers."
(equal (nth 1 m1) (nth 1 m2)))))))
(defsubst gnus-sloppily-equal-method-parameters (m1 m2)
;; Check parameters for sloppy equalness.
;; Check parameters for sloppy equality.
(let ((p1 (copy-sequence (cddr m1)))
(p2 (copy-sequence (cddr m2)))
e1 e2)

View File

@ -123,7 +123,7 @@ If this list contains the element \"font\".")
This is an alist where each dotted pair consists of a tag, and then
the name of a function to be called when this tag is found. The
function is called with the arguments p1, p2, p3 and p4. These are
demontrated below:
demonstrated below:
\"<b> This is bold text </b>\"
^ ^ ^ ^

View File

@ -2503,7 +2503,7 @@ Return the number of headers removed."
(point-max)))
(goto-char (point-min)))
;; FIXME: clarify diffference: message-narrow-to-head,
;; FIXME: clarify difference: message-narrow-to-head,
;; message-narrow-to-headers-or-head, message-narrow-to-headers
(defun message-narrow-to-head ()
"Narrow the buffer to the head of the message.

View File

@ -72,7 +72,7 @@
;; * nndiary-get-new-mail, nndiary-mail-source and nndiary-split-methods:
;; NNDiary has some experimental parts, in the sense Gnus normally uses only
;; one mail back ends for mail retreival and splitting. This back end is
;; also an attempt to make it behave differently. For Gnus developpers: as
;; also an attempt to make it behave differently. For Gnus developers: as
;; you can see if you snarf into the code, that was not a very difficult
;; thing to do. Something should be done about the respooling breakage
;; though.

View File

@ -1634,7 +1634,7 @@ search in raw mode."
(nnheader-message 3 "Couldn't find original article"))))
(defun nnmairix-determine-original-group-from-registry (mid)
"Try to determinale original group for message-id MID from the registry."
"Try to determine original group for message-id MID from the registry."
(when (gnus-bound-and-true-p 'gnus-registry-enabled)
(unless (string-match "^<" mid)
(set mid (concat "<" mid)))

View File

@ -480,7 +480,7 @@ This is the opposite of `hilit-chg-hide-changes'."
(defun hilit-chg-make-ov (prop start end)
(or prop
(error "hilit-chg-make-ov: prop is nil"))
;; For the region create overlays with a distincive face
;; For the region create overlays with a distinctive face
;; and the text property 'hilit-chg.
(let ((ov (make-overlay start end))
(face (if (eq prop 'hilit-chg-delete)

View File

@ -586,7 +586,7 @@ If a window system is unavailable, calls `hfy-fallback-colour-values'."
(defvar hfy-cperl-mode-kludged-p nil)
(defun hfy-kludge-cperl-mode ()
"CPerl mode does its damndest not to do some of its fontification when not
"CPerl mode does its damnedest not to do some of its fontification when not
in a windowing system - try to trick it..."
(if (not hfy-cperl-mode-kludged-p)
(progn (if (not window-system)
@ -1773,7 +1773,7 @@ Strips any leading \"./\" from each filename."
(mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F))
(split-string (shell-command-to-string hfy-find-cmd))) )
;; strip the filename off, return a directiry name
;; strip the filename off, return a directory name
;; not a particularly thorough implementaion, but it will be
;; fed pretty carefully, so it should be Ok:
(defun hfy-dirname (file)

View File

@ -700,7 +700,7 @@ Internal use only. Should be called at startup time."
;; HPHEBREW8 8-bit character set
;; "HP-Japanese15" [36]
;; HPJAPAN15 15-bit character set,
;; modified from industry defacto
;; modified from industry de facto
;; standard Shift-JIS
;; "HP-Kana8" [36]
;; HPKANA8 8-bit character set

View File

@ -305,7 +305,7 @@ SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy
(cond ((looking-at "PROMPT:[ \t]*")
(goto-char (match-end 0))
(setq tit-prompt (tit-read-key-value))
;; Some TIT dictionaies that are encoded by
;; Some TIT dictionaries that are encoded by
;; euc-china contains invalid character at the tail.
(let* ((last (aref tit-prompt (1- (length tit-prompt))))
(split (split-char last)))

View File

@ -1020,7 +1020,7 @@ following additional answers: `insert', `insert-1', `replace', `replace-1',
(setq executing-kbd-macro-index (- executing-kbd-macro-index (length unread-command-events))
next-index executing-kbd-macro-index)))))
;; Query the user; stop macro exection temporarily
;; Query the user; stop macro execution temporarily.
(let ((macro executing-kbd-macro)
(executing-kbd-macro nil)
(defining-kbd-macro nil))

View File

@ -61,7 +61,7 @@
(features ethio-util)
(sample-text . "ፊደል")
(documentation .
"This language envrironment provides these function key bindings:
"This language environment provides these function key bindings:
[f3] ethio-fidel-to-sera-buffer
[S-f3] ethio-fidel-to-sera-region
[C-f3] ethio-fidel-to-sera-marker

View File

@ -144,7 +144,7 @@ These are symbols with hooklike values whose names don't end in
pertinent symbols.")
(defvar unload-function-defs-list nil
"List of defintions in the Lisp library being unloaded.
"List of definitions in the Lisp library being unloaded.
This is meant to be used by `FEATURE-unload-function'; see the
documentation of `unload-feature' for details.")

View File

@ -83,7 +83,7 @@
;; work properly. If you don't know what custom is all about and want
;; to edit your user option elisp variables the old fashioned way,
;; just imagine that all the "defcustom" stuff you see below is really
;; "defvar", and ignore everthing else. For info about custom, see
;; "defvar", and ignore everything else. For info about custom, see
;; <URL:http://www.dina.kvl.dk/~abraham/custom/>.
;;
;; This code does in elisp a superset of the stuff that used to be done

View File

@ -412,7 +412,7 @@ element is not omitted."
(program &optional infile destination display &rest args)
"Calls `call-process' on the local host.
This is needed because for some Emacs flavors Tramp has
defadviced `call-process' to behave like `process-file'. The
defadvised `call-process' to behave like `process-file'. The
Lisp error raised when PROGRAM is nil is trapped also, returning 1."
(let ((default-directory
(if (file-remote-p default-directory)

View File

@ -549,7 +549,7 @@ as given in your `~/.profile'."
"*List of environment variables to be set on the remote host.
Each element should be a string of the form ENVVARNAME=VALUE. An
entry ENVVARNAME= diables the corresponding environment variable,
entry ENVVARNAME= disables the corresponding environment variable,
which might have been set in the init files like ~/.profile.
Special handling is applied to the PATH environment, which should

View File

@ -152,7 +152,7 @@ local host, so if you want to use `~' in those commands, you should
choose a shell here which groks tilde expansion. `/bin/sh' normally
does not understand tilde expansion.
For encoding and deocding, commands like the following are executed:
For encoding and decoding, commands like the following are executed:
/bin/sh -c COMMAND < INPUT > OUTPUT

View File

@ -2125,7 +2125,7 @@ the currently selected interval size."
"Write out a clock table at position IPOS in the current buffer.
TABLES is a list of tables with clocking data as produced by
`org-clock-get-table-data'. PARAMS is the parameter property list obtained
from the dynamic block defintion."
from the dynamic block definition."
;; This function looks quite complicated, mainly because there are a
;; lot of options which can add or remove columns. I have massively
;; commented this function, the I hope it is understandable. If

View File

@ -272,7 +272,7 @@ Works on both Emacs and XEmacs."
nil))
(defmacro org-xemacs-without-invisibility (&rest body)
"Turn off exents with invisibility while executing BODY."
"Turn off extents with invisibility while executing BODY."
`(let ((ext-inv (extent-list nil (point-at-bol) (point-at-eol)
'all-extents-closed-open 'invisible))
ext-inv-specs)

View File

@ -681,7 +681,7 @@ Assume point is at an item."
(cond
((<= (point) lim-up)
;; At upward limit: if we ended at an item, store it,
;; else dimiss useless data recorded above BEG-CELL.
;; else dismiss useless data recorded above BEG-CELL.
;; Jump to part 2.
(throw 'exit
(setq itm-lst

View File

@ -1482,7 +1482,7 @@ in the search text."
:type '(choice
(const :tag "Use fuzy text search" nil)
(const :tag "Match only exact headline" t)
(const :tag "Match extact headline or query to create it"
(const :tag "Match exact headline or query to create it"
query-to-create)))
(defcustom org-link-frame-setup
@ -5052,7 +5052,7 @@ The time stamps may be either active or inactive.")
(defvar org-emph-face nil)
(defun org-do-emphasis-faces (limit)
"Run through the buffer and add overlays to emphasised strings."
"Run through the buffer and add overlays to emphasized strings."
(let (rtn a)
(while (and (not rtn) (re-search-forward org-emph-re limit t))
(if (not (= (char-after (match-beginning 3))
@ -14835,7 +14835,7 @@ user."
(setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day)
t nil ans)))
;; Help matching dottet european dates
;; Help matching dotted european dates
(when (string-match
"^ *\\(3[01]\\|0?[1-9]\\|[12][0-9]\\)\\. ?\\(0?[1-9]\\|1[012]\\)\\. ?\\([1-9][0-9][0-9][0-9]\\)?" ans)
(setq year (if (match-end 3)

View File

@ -93,7 +93,7 @@
(defvar animation-buffer-name nil
"*String naming the default buffer for animations.
When nil animations dipslayed in the buffer named *Animation*.")
When nil animations displayed in the buffer named *Animation*.")
;;;###autoload
(defun animate-string (string vpos &optional hpos)

View File

@ -672,7 +672,7 @@ X: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z * 11 14 9%
1 1 1 2 1 1 2 5 7
This says that X comes before D once, and after B once. X begins 5
words, and ends 3 words (`*' represents a space). X comes before 8
different letters, after 7 differerent letters, and is next to a total
different letters, after 7 different letters, and is next to a total
of 11 different letters. It occurs 14 times, making up 9% of the
ciphertext."
(interactive (list (upcase (following-char))))

View File

@ -1584,7 +1584,7 @@ If the game is finished, this command requests for another game."
;;;_ - something which doesn't work
; no-a-worka!!
;(defum landmark-sum-list (list)
;(defun landmark-sum-list (list)
; (if (> (length list) 0)
; (+ (car list) (landmark-sum-list (cdr list)))
; 0))

View File

@ -1163,7 +1163,8 @@ If OTHER-FRAME is non-nil, display the cross-reference in another frame."
(defun ada-goto-declaration-other-frame (pos)
"Display the declaration of the identifier around POS.
The declation is shown in another frame if `ada-xref-other-buffer' is non-nil."
The declaration is shown in another frame if `ada-xref-other-buffer' is
non-nil."
(interactive "d")
(ada-goto-declaration pos t))

View File

@ -776,7 +776,7 @@
(setq anchor (point))
(search-forward-regexp c-awk-harmless-string*-here-re nil t)
;; We are now looking at either a " or a /.
;; Do our thing on the string, regexp or divsion sign.
;; Do our thing on the string, regexp or division sign.
(setq anchor-state-/div
(if (looking-at "_?\"")
(c-awk-syntax-tablify-string)

View File

@ -1304,7 +1304,7 @@ versions of Emacs."
(get-text-property (point) 'syntax-type))
'(here-doc pod))]
"----"
["CPerl pretty print (exprmntl)" cperl-ps-print
["CPerl pretty print (experimental)" cperl-ps-print
(fboundp 'ps-extend-face-list)]
"----"
["Syntaxify region" cperl-find-pods-heres-region
@ -5793,7 +5793,7 @@ indentation and initial hashes. Behaves usually outside of comment."
;; "\\|")
'("-[rwxoRWXOezsfdlpSbctugkTBMAC]\\>\\([ \t]+_\\>\\)?" 0
font-lock-function-name-face keep) ; Not very good, triggers at "[a-z]"
;; This highlights declarations and definitions differenty.
;; This highlights declarations and definitions differently.
;; We do not try to highlight in the case of attributes:
;; it is already done by `cperl-find-pods-heres'
(list (concat "\\<sub"
@ -8946,7 +8946,7 @@ do extra unwind via `cperl-unwind-to-safe'."
;; Called when any modification is made to buffer text.
(defun cperl-after-change-function (beg end old-len)
;; We should have been informed about changes by `font-lock'. Since it
;; does not inform as which calls are defered, do it ourselves
;; does not inform as which calls are deferred, do it ourselves
(if cperl-syntax-done-to
(setq cperl-syntax-done-to (min cperl-syntax-done-to beg))))

View File

@ -2084,7 +2084,7 @@ special."
"*Specify extra width for arrow shape drawing.
The extra width is used to avoid that the arrowhead and the terminal border
overlap. It depens on `ebnf-arrow-shape' and `ebnf-line-width'."
overlap. It depends on `ebnf-arrow-shape' and `ebnf-line-width'."
:type 'number
:version "22"
:group 'ebnf-shape)

View File

@ -1144,7 +1144,7 @@ error message."
(setq order tag-order))
;; We throw out on match, so only get here if there were no matches.
;; Clear out the markers we use to avoid duplicate matches so they
;; don't slow down editting and are immediately available for GC.
;; don't slow down editing and are immediately available for GC.
(while tag-lines-already-matched
(set-marker (car tag-lines-already-matched) nil nil)
(setq tag-lines-already-matched (cdr tag-lines-already-matched)))

View File

@ -3387,7 +3387,7 @@ This event can be examined by forms in `gud-tooltip-display'.")
(defun gud-tooltip-dereference (&optional arg)
"Toggle whether tooltips should show `* expr' or `expr'.
With arg, dereference expr if ARG is positive, otherwise do not derereference."
With arg, dereference expr if ARG is positive, otherwise do not dereference."
(interactive "P")
(setq gud-tooltip-dereference
(if (null arg)

View File

@ -705,7 +705,8 @@ Those words in `idlwave-completion-help-links' have links. The
;; we kill the help frame before the return-frame is selected.
;; To protect the workings, we wait for up to one second
;; and check if the return-frame *is* now selected.
;; This is marked "eperimental" since we are not sure when its OK.
;; This is marked "experimental" since we are not sure when
;; it's OK.
(let ((maxtime 1.0) (time 0.) (step 0.1))
(select-frame idlwave-help-return-frame)
(while (and (sit-for step)

View File

@ -3352,7 +3352,7 @@ If one hasn't been set, or if it's stale, prompt for a new one."
;; etc. and produce maddening "unbalanced parenthesis" errors.
;; When we attempt to find the error and scroll to the portion of
;; the buffer containing the problem, JIT-lock will apply the
;; correct syntax to the regular expresion literal and the problem
;; correct syntax to the regular expression literal and the problem
;; will mysteriously disappear.
;; FIXME: We should actually do this fontification lazily by adding
;; calls to syntax-propertize wherever it's really needed.

View File

@ -161,7 +161,7 @@
"[ \t\f]+\\(\\sw+\\|\\s_+\\|\\s.+\\)")
'((1 font-lock-keyword-face)
(2 font-lock-function-name-face)))
;; binary macro defintions: <leveldef> x operator y
;; binary macro definitions: <leveldef> x operator y
(cons (concat "\\<" macro-keywords-2 "\\>"
"[ \t\f]+\\(\\sw+\\)"
"[ \t\f]*\\(\\sw+\\|\\s.+\\)"

View File

@ -119,7 +119,7 @@
(1 font-lock-type-face))
;; Built-ins. (The next three blocks are from
;; `__builtin__.__dict__.keys()' in Python 2.7) These patterns
;; are debateable, but they at least help to spot possible
;; are debatable, but they at least help to spot possible
;; shadowing of builtins.
(,(rx symbol-start (or
;; exceptions

View File

@ -913,7 +913,7 @@ the MSB or LSB of a signal inside an AUTORESET."
(put 'verilog-assignment-delay 'safe-local-variable 'stringp)
(defcustom verilog-auto-arg-sort nil
"*If set, AUTOARG signal names will be sorted, not in delaration order.
"*If set, AUTOARG signal names will be sorted, not in declaration order.
Declaration order is advantageous with order based instantiations
and is the default for backward compatibility. Sorted order
reduces changes when declarations are moved around in a file, and
@ -2151,7 +2151,7 @@ find the errors."
"interface" "endinterface"
"module" "macromodule" "endmodule"
"package" "endpackage"
"primitive" "endprimative"
"primitive" "endprimitive"
"program" "endprogram"
"property" "endproperty"
"sequence" "randsequence" "endsequence"
@ -3579,7 +3579,7 @@ With ARG, first kill any existing labels."
"Move backward to beginning of statement."
(interactive)
;; Move back token by token until we see the end
;; of some ealier line.
;; of some earlier line.
(let (h)
(while
;; If the current point does not begin a new

View File

@ -980,7 +980,7 @@ if the cell's value is unchanged and FORCE is nil."
(error "Circular references: %s" ses--deferred-recalc))
(message " "))
;; Can't use save-excursion here: if the cell under point is updated,
;; save-excusion's marker will move past the cell.
;; save-excursion's marker will move past the cell.
(goto-char pos)))
@ -3204,7 +3204,7 @@ By passing in REST some flags one can configure the way the range
is read and how it is formatted.
In the sequel we assume that cells A1, B1, A2 B2 have respective values
1 2 3 and 4 for examplication.
1 2 3 and 4.
Readout direction is specified by a `>v', '`>^', `<v', `<^',
`v>', `v<', `^>', `^<' flag. For historical reasons, in absence
@ -3230,7 +3230,7 @@ vector or a matrix depending on the number of rows, `*1' will
flatten the result to a one row vector, and `*2' will make a
matrix whatever the number of rows.
Warning: interaction with Calc is expermimental and may produce
Warning: interaction with Calc is experimental and may produce
confusing results if you are not aware of Calc data format. Use
`math-format-value' as a printer for Calc objects."
(let (result-row

View File

@ -2409,7 +2409,7 @@ and only used if a buffer is displayed."
1))
1)))
;; Don't use the echo area if the output buffer is
;; already dispayed in the selected frame.
;; already displayed in the selected frame.
(not (get-buffer-window (current-buffer))))
;; Echo area
(goto-char (point-max))

View File

@ -631,7 +631,7 @@ with `.' followed by extensions, followed by full-filenames."
(substring (car extlist) 1)))
(setq regex2 (concat regex2 (if regex2 "\\|" "") (car extlist))))
(setq extlist (cdr extlist)))
;; concat all the sub-exressions together, making sure all types
;; Concatenate all the subexpressions together, making sure all types
;; of parts exist during concatenation.
(concat "\\("
(if regex1 (concat "\\(\\.\\(" regex1 "\\)\\)") "")
@ -2105,7 +2105,7 @@ cell of the form ( 'DIRLIST . 'FILELIST )."
(let ((sf (cdr (reverse speedbar-shown-directories))))
(setq speedbar-shown-directories
(list (expand-file-name default-directory)))
;; exand them all as we find them
;; Expand them all as we find them.
(while sf
(if (speedbar-goto-this-file (car sf))
(progn
@ -3292,7 +3292,7 @@ With universal argument ARG, flush cached data."
Optional argument ARG indicates that any cache should be flushed."
(interactive "P")
(speedbar-expand-line arg)
;; Now, inside the area expaded here, expand all subnodes of
;; Now, inside the area expanded here, expand all subnodes of
;; the same descendant type.
(save-excursion
(speedbar-next 1) ;; Move into the list.

View File

@ -118,7 +118,7 @@
;; function keys F11->F42 from the termcap/terminfo information. On
;; a PC-style keyboard these keys correspond to
;; MODIFIER-FUNCTION_KEY, where modifier is S-, C-, C-S-. The
;; code here subsitutes the corresponding defintions in
;; code here subsitutes the corresponding definitions in
;; function-key-map. This substitution is needed because if a key
;; definition if found in function-key-map, there are no further
;; lookups in other keymaps.

View File

@ -2514,7 +2514,7 @@ This function returns a point-list."
;;
;; functions for accessing endoints and elements in object requiring
;; functions for accessing endpoints and elements in object requiring
;; 2 endpoints
;;
@ -3582,7 +3582,7 @@ FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE]."
(width (abs (- x2 x1)))
(height (abs (- y2 y1)))
;; When drawing our circle, we want it to through the cursor
;; just as when drawing the ellispe, but we have to take
;; just as when drawing the ellipse, but we have to take
;; care for the aspect-ratio.
;; The equation for the ellipse (where a is the x-radius and
;; b is the y-radius):

View File

@ -59,7 +59,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
(error "Not on a crossref macro argument"))
(setq reftex-call-back-to-this-buffer (current-buffer))
(cond
((string-match "\\`\\\\cite\\|cite\\*?\\'\\|bibentry" macro)
;; A citation macro: search for bibitems or BibTeX entries
@ -87,7 +87,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
(format reftex-find-index-entry-regexp-format
(regexp-quote key))
3 nil nil)))
(t
(t
(reftex-access-scan-info arg)
(catch 'exit
(let ((list reftex-view-crossref-extra)
@ -97,14 +97,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
action (nth 1 entry)
group (nth 2 entry))
(when (string-match mre macro)
(setq dw (reftex-view-regexp-match
(setq dw (reftex-view-regexp-match
(format action key) group nil nil))
(throw 'exit t))))
(error "Not on a crossref macro argument"))))
(if (and (eq arg 2) (windowp dw)) (select-window dw)))))
(defun reftex-view-cr-cite (arg key how)
;; View crossreference of a ref cite. HOW can have the values
;; View crossreference of a ref cite. HOW can have the values
;; nil: Show in another window.
;; echo: Show one-line info in echo area.
;; tmp-window: Show in small window and arrange for window to disappear.
@ -114,7 +114,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
(if (eq how 'tmp-window)
;; Remember the window configuration
(put 'reftex-auto-view-crossref 'last-window-conf
(put 'reftex-auto-view-crossref 'last-window-conf
(current-window-configuration)))
(let (files size item (pos (point)) (win (selected-window)) pop-win
@ -130,7 +130,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
(setq item t
files (reftex-uniquify
(mapcar 'cdr
(reftex-all-assq
(reftex-all-assq
'thebib (symbol-value reftex-docstruct-symbol))))))
(reftex-default-bibliography
(setq item nil
@ -169,17 +169,17 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
(select-window pop-win)))))
(defun reftex-view-cr-ref (arg label how)
;; View crossreference of a ref macro. HOW can have the values
;; View crossreference of a ref macro. HOW can have the values
;; nil: Show in another window.
;; echo: Show one-line info in echo area.
;; tmp-window: Show in small window and arrange for window to disappear.
;; Ensure access to scanning info
(reftex-access-scan-info (or arg current-prefix-arg))
(if (eq how 'tmp-window)
;; Remember the window configuration
(put 'reftex-auto-view-crossref 'last-window-conf
(put 'reftex-auto-view-crossref 'last-window-conf
(current-window-configuration)))
(let* ((xr-data (assoc 'xr (symbol-value reftex-docstruct-symbol)))
@ -191,14 +191,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
;; Label is defined in external document
(save-excursion
(save-match-data
(set-buffer
(set-buffer
(or (reftex-get-file-buffer-force
(cdr (assoc (match-string 1 label) (nth 1
xr-data))))
(error "Problem with external label %s" label))))
(setq label (substring label (match-end 1)))
(reftex-access-scan-info)
(setq entry
(setq entry
(assoc label (symbol-value reftex-docstruct-symbol)))))
(if (eq how 'echo)
;; Display in echo area
@ -234,7 +234,7 @@ With argument, actually select the window showing the cross reference."
(defun reftex-view-crossref-when-idle ()
;; Display info about crossref at point in echo area or a window.
;; This function was desigend to work with an idle timer.
;; This function was designed to work with an idle timer.
;; We try to get out of here as quickly as possible if the call is useless.
(and reftex-mode
;; Make sure message area is free if we need it.
@ -244,7 +244,7 @@ With argument, actually select the window showing the cross reference."
reftex-mouse-view-crossref)))
;; Quick precheck if this might be a relevant spot
;; `reftex-view-crossref' will do a more thorough check.
(save-excursion
(save-excursion
(search-backward "\\" nil t)
(looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))
@ -262,12 +262,12 @@ With argument, actually select the window showing the cross reference."
(set-window-configuration (get 'reftex-auto-view-crossref 'last-window-conf))
(put 'reftex-auto-view-crossref 'last-window-conf nil)
(remove-hook 'pre-command-hook 'reftex-restore-window-conf))
(defun reftex-echo-ref (label entry docstruct)
;; Display crossref info in echo area.
(cond
((null docstruct)
(message "%s"
(message "%s"
(substitute-command-keys (format reftex-no-info-message "ref"))))
((null entry)
(message "ref: unknown label: %s" label))
@ -293,14 +293,14 @@ With argument, actually select the window showing the cross reference."
(unless reftex-revisit-to-echo
(setq files (reftex-visited-files files)))
(setq entry
(setq entry
(condition-case nil
(save-excursion
(reftex-pop-to-bibtex-entry key files nil nil item t))
(error
(if (and files (= (length all-files) (length files)))
(message "cite: no such database entry: %s" key)
(message "%s" (substitute-command-keys
(message "%s" (substitute-command-keys
(format reftex-no-info-message "cite"))))
nil)))
(when entry
@ -337,7 +337,7 @@ will display info in the echo area."
(if (featurep 'xemacs)
(if reftex-use-itimer-in-xemacs
(start-itimer "RefTeX Idle Timer"
'reftex-view-crossref-when-idle
'reftex-view-crossref-when-idle
reftex-idle-time reftex-idle-time t)
(add-hook 'post-command-hook 'reftex-start-itimer-once)
t)
@ -352,7 +352,7 @@ will display info in the echo area."
(not (itimer-live-p reftex-auto-view-crossref-timer))
(setq reftex-auto-view-crossref-timer
(start-itimer "RefTeX Idle Timer"
'reftex-view-crossref-when-idle
'reftex-view-crossref-when-idle
reftex-idle-time nil t))))
(declare-function bibtex-beginning-of-entry "bibtex" ())
@ -364,7 +364,7 @@ prompts upon first use for a buffer in RefTeX mode. To reset this
link to a document, call the function with with a prefix arg.
Calling this function several times find successive citation locations."
(interactive "P")
(when arg
(when arg
;; Break connection to reference buffer
(put 'reftex-bibtex-view-cite-locations :ref-buffer nil))
(let ((ref-buffer (get 'reftex-bibtex-view-cite-locations :ref-buffer)))
@ -372,10 +372,10 @@ Calling this function several times find successive citation locations."
(unless ref-buffer
(setq ref-buffer
(save-current-buffer
(completing-read
(completing-read
"Reference buffer: "
(delq nil
(mapcar
(mapcar
(lambda (b)
(set-buffer b)
(if reftex-mode (list (buffer-name b)) nil))

View File

@ -230,7 +230,7 @@ one with the `xr' package."
;; Save all document buffers before this operation
(reftex-save-all-document-buffers)
;; First test to check for erros
;; First test to check for errors.
(setq n (reftex-translate
files search-re translate-alist error-fmt 'test))

View File

@ -470,7 +470,7 @@ Label context is only displayed when the labels are there as well."
(defun reftex-toc-max-level (arg)
"Set the maximum level of toc lines in this buffer to value of prefix ARG.
When no prefix is given, set the max level to a large number, so that all
levels are shown. For eaxample, to set the level to 3, type `3 m'."
levels are shown. For example, to set the level to 3, type `3 m'."
(interactive "P")
(setq reftex-toc-max-level (if arg
(prefix-numeric-value arg)
@ -850,7 +850,7 @@ When finished, we exit with an error message."
(defun reftex-toc-rename-label ()
"Rename the currently selected label in the *TOC* buffer.
This launches a global search and replace in order to rename a label.
Renaming a label is hardly ever necessary - the only exeption is after
Renaming a label is hardly ever necessary - the only exception is after
promotion/demotion in connection with a package like fancyref, where the
label prefix determines the wording of a reference."
(interactive)

View File

@ -42,7 +42,7 @@
;; - For XEmacs 21.x, you need to install the RefTeX plug-in package
;; available from the XEmacs distribution sites.
;; - If you have downloaded this file from the maintainers webpage, follow
;; the instructions in the INSTALL file of the distrubution.
;; the instructions in the INSTALL file of the distribution.
;;
;; To turn RefTeX Mode on and off in a buffer, use `M-x reftex-mode'.
;;

View File

@ -620,7 +620,7 @@ if large. You can use `Info-split' to do this manually."
"var{\\|"
"w{\\|"
"xref{\\|"
"@-\\|" ; @- is a descretionary hyphen (not an accent) (a noop).
"@-\\|" ; @- is a discretionary hyphen (not an accent) (a noop).
texinfo-accent-commands
"\\)"
)

View File

@ -173,7 +173,7 @@ URL can be a URL string, or a URL vector of the type returned by
(if attributes
(setq attributes (mapcar 'url-unhex-string (split-string attributes ","))))
;; Parse out the exentions
;; Parse out the extensions.
(if extensions
(setq extensions (mapcar (lambda (ext)
(if (string-match "\\([^=]*\\)=\\(.*\\)" ext)

View File

@ -335,7 +335,7 @@ Currently supported methods:
`socks': Connect through a socks server;
`tls': Connect with TLS;
`ssl': Connect with SSL (deprecated, use `tls' instead);
`native': Connect directy."
`native': Connect directly."
:type '(radio (const :tag "Telnet to gateway host" :value telnet)
(const :tag "Rlogin to gateway host" :value rlogin)
(const :tag "Use SOCKS proxy" :value socks)

View File

@ -502,7 +502,7 @@ It is expected to call the function.")
(if (or (null cvs-version)
(or (>= (cdr cvs-version) 10) (> (car cvs-version) 1)))
;; Supposedly some recent versions of CVS output some directory info
;; as they recurse downthe tree, but it's not good enough in the case
;; as they recurse down the tree, but it's not good enough in the case
;; where we run "cvs status foo bar/foo".
'("status")
t)

View File

@ -307,7 +307,7 @@ If it is \\[universal-argument] \\[universal-argument], behave just
See `cvs-prefix-set' for further description of the behavior."))
(defvar ,cps
(let ((defaults ,defaults))
;; sanity ensurance
;; sanity insurance
(unless (>= (length defaults) cvs-prefix-number)
(setq defaults (append defaults
(make-list (1- cvs-prefix-number)

View File

@ -620,7 +620,7 @@ If non-nil, NEW means to create a new buffer no matter what."
(str (car hf))
(done "")
(tin (ewoc-nth cvs-cookies 0)))
;; look for the first *real* fileinfo (to determine emptyness)
;; look for the first *real* fileinfo (to determine emptiness)
(while
(and tin
(memq (cvs-fileinfo->type (ewoc-data tin))

View File

@ -3432,7 +3432,7 @@ is non-nil."
"Balance the sizes of windows of WINDOW-OR-FRAME.
WINDOW-OR-FRAME is optional and defaults to the selected frame.
If WINDOW-OR-FRAME denotes a frame, balance the sizes of all
windows of that frame. If WINDOW-OR-FRAME denots a window,
windows of that frame. If WINDOW-OR-FRAME denotes a window,
recursively balance the sizes of all child windows of that
window."
(interactive)

View File

@ -2023,7 +2023,7 @@ Optional argument REDRAW, if non-nil, forces mode line to be updated."
;; Both advices are disabled because "a file in Emacs should not put
;; advice on a function in Emacs" (see Info node "(elisp)Advising
;; Functions"). Counting the formatting time is useful for
;; developping, but less applicable for daily use. The advice for
;; developing, but less applicable for daily use. The advice for
;; `Man-getpage-in-background' can be discarded, because the
;; key-binding in `woman-mode-map' has been remapped to call `woman'
;; but `man'. Michael Albinus <michael.albinus@gmx.de>

View File

@ -484,7 +484,7 @@ static Lisp_Object Vccl_program_table;
If the element is t or lambda, finish without changing reg[rrr].
If the element is a number, set reg[rrr] to the number and finish.
Detail of the map structure is descibed in the comment for
Detail of the map structure is described in the comment for
CCL_MapMultiple below. */
#define CCL_IterateMultipleMap 0x10 /* Iterate multiple maps
@ -1808,7 +1808,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size
/* Resolve symbols in the specified CCL code (Lisp vector). This
function converts symbols of code conversion maps and character
translation tables embeded in the CCL code into their ID numbers.
translation tables embedded in the CCL code into their ID numbers.
The return value is a vector (CCL itself or a new vector in which
all symbols are resolved), Qt if resolving of some symbol failed,

View File

@ -1196,7 +1196,7 @@ uniprop_table_uncompress (Lisp_Object table, int idx)
}
/* Decode VALUE as an elemnet of char-table TABLE. */
/* Decode VALUE as an element of char-table TABLE. */
static Lisp_Object
uniprop_decode_value_run_length (Lisp_Object table, Lisp_Object value)

View File

@ -628,7 +628,7 @@ file_name_completion (Lisp_Object file, Lisp_Object dirname, int all_flag, int v
if (includeall && !canexclude)
{ /* If we have one non-excludable file, we want to exclude the
excudable files. */
excludable files. */
includeall = 0;
/* Throw away any previous excludable match found. */
bestmatch = Qnil;

View File

@ -26,7 +26,7 @@ along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
of the (`int') argument, suitable for display in an Emacs buffer.
. For %s and %c, when field width is specified (e.g., %25s), it accounts for
the diplay width of each character, according to char-width-table. That
the display width of each character, according to char-width-table. That
is, it does not assume that each character takes one column on display.
. If the size of the buffer is not enough to produce the formatted string in

View File

@ -2487,7 +2487,7 @@ If FRAME is omitted, the selected frame is used. The exact value
of the result depends on the window-system and toolkit in use:
In the Gtk+ version of Emacs, it includes only any window (including
the minibuffer or eacho area), mode line, and header line. It does not
the minibuffer or echo area), mode line, and header line. It does not
include the tool bar or menu bar.
With the Motif or Lucid toolkits, it also includes the tool bar (but

View File

@ -1423,7 +1423,7 @@ get_dialog_title (char key)
/* Callback for dialogs that get WM_DELETE_WINDOW. We pop down
the dialog, but return TRUE so the event does not propagate further
in GTK. This prevents GTK from destroying the dialog widget automatically
and we can always destrou the widget manually, regardles of how
and we can always destroy the widget manually, regardless of how
it was popped down (button press or WM_DELETE_WINDOW).
W is the dialog widget.
EVENT is the GdkEvent that represents WM_DELETE_WINDOW (not used).
@ -2294,7 +2294,7 @@ tearoff_activate (GtkWidget *widget, gpointer client_data)
/* Create a menu item widget, and connect the callbacks.
ITEM decribes the menu item.
ITEM describes the menu item.
F is the frame the created menu belongs to.
SELECT_CB is the callback to use when a menu item is selected.
HIGHLIGHT_CB is the callback to call when entering/leaving menu items.

View File

@ -932,7 +932,7 @@ pop_kboard (void)
state later.
If Emacs is already in single_kboard mode, and F's keyboard is
locked, then this function will throw an errow. */
locked, then this function will throw an error. */
void
temporarily_switch_to_single_kboard (struct frame *f)
@ -5393,7 +5393,7 @@ make_lispy_event (struct input_event *event)
|| !lispy_function_keys[event->code - FUNCTION_KEY_OFFSET])
{
/* We need to use an alist rather than a vector as the cache
since we can't make a vector long enuf. */
since we can't make a vector long enough. */
if (NILP (KVAR (current_kboard, system_key_syms)))
KVAR (current_kboard, system_key_syms) = Fcons (Qnil, Qnil);
return modify_event_symbol (event->code,

View File

@ -6709,7 +6709,7 @@ DEFUN ("default-printer-name", Fdefault_printer_name, Sdefault_printer_name,
ClosePrinter (hPrn);
return Qnil;
}
/* Call GetPrinter again with big enouth memory block */
/* Call GetPrinter again with big enough memory block. */
err = GetPrinter (hPrn, 2, (LPBYTE)ppi2, dwNeeded, &dwReturned);
ClosePrinter (hPrn);
if (!err)

View File

@ -330,7 +330,7 @@ w32font_list (Lisp_Object frame, Lisp_Object font_spec)
/* w32 implementation of match for font backend.
Return a font entity most closely matching with FONT_SPEC on
FRAME. The closeness is detemined by the font backend, thus
FRAME. The closeness is determined by the font backend, thus
`face-font-selection-order' is ignored here. */
static Lisp_Object
w32font_match (Lisp_Object frame, Lisp_Object font_spec)

View File

@ -2296,7 +2296,7 @@ filesystems via ange-ftp. */);
doc: /* Non-nil means attempt to fake realistic inode values.
This works by hashing the truename of files, and should detect
aliasing between long and short (8.3 DOS) names, but can have
false positives because of hash collisions. Note that determing
false positives because of hash collisions. Note that determining
the truename of a file can be slow. */);
Vw32_generate_fake_inodes = Qnil;
#endif

Some files were not shown because too many files have changed in this diff Show More