From: Paul Eggert Date: Wed, 23 Nov 2011 07:03:56 +0000 (-0800) Subject: Spelling fixes. X-Git-Tag: emacs-pretest-24.0.92~79 X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/ee7683ebb70c308e596103e379ef6b91d001eebc Spelling fixes. --- diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi index 244d95d693..7d1a1186c0 100644 --- a/doc/lispintro/emacs-lisp-intro.texi +++ b/doc/lispintro/emacs-lisp-intro.texi @@ -1401,7 +1401,7 @@ This is a harmless activity; and indeed, we will often try to generate error messages intentionally. Once you understand the jargon, error messages can be informative. Instead of being called ``error'' messages, they should be called ``help'' messages. They are like -signposts to a traveller in a strange country; deciphering them can be +signposts to a traveler in a strange country; deciphering them can be hard, but once understood, they can point the way. The error message is generated by a built-in GNU Emacs debugger. We diff --git a/doc/lispref/spellfile b/doc/lispref/spellfile index 5c0a6d0f5e..1f4a690550 100644 --- a/doc/lispref/spellfile +++ b/doc/lispref/spellfile @@ -660,7 +660,7 @@ the' tildes time's to' -towars +towards transportable txt types' @@ -674,7 +674,6 @@ undefine undefines underfull undo's -undodata unevaluated' unexec unexpand diff --git a/doc/lispref/two-volume-cross-refs.txt b/doc/lispref/two-volume-cross-refs.txt index 53a9f58cd0..6eb11a92f4 100644 --- a/doc/lispref/two-volume-cross-refs.txt +++ b/doc/lispref/two-volume-cross-refs.txt @@ -34,7 +34,7 @@ where each volume starts with a higher page number since I find it harder to go to the right place in the volume.) References to the same volume are just the page number; references to -the other volume are a volumne number (in Roman numerals) preceding +the other volume are a volume number (in Roman numerals) preceding the page number. For example, in Volume I: diff --git a/doc/misc/calc.texi b/doc/misc/calc.texi index 290b120ea8..b84212afa7 100644 --- a/doc/misc/calc.texi +++ b/doc/misc/calc.texi @@ -34631,7 +34631,7 @@ the derivative is evaluated at the value of @var{var}; otherwise, the derivative is left in terms of @var{var}. If the expression contains functions for which no derivative formula is known, new derivative functions are invented by adding primes to the names; @pxref{Calculus}. -However, if @var{symb} is non-@code{nil}, the presence of undifferentiable +However, if @var{symb} is non-@code{nil}, the presence of nondifferentiable functions in @var{expr} instead cancels the whole differentiation, and @code{deriv} returns @code{nil} instead. diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi index f8d757c2d8..cc566086f4 100644 --- a/doc/misc/ede.texi +++ b/doc/misc/ede.texi @@ -268,7 +268,7 @@ projects. Some project modes do not have a project file, but directly read a Makefile or other existing file. Instead of directly editing the -object, you can edit the file by typine @kbd{C-c . e} +object, you can edit the file by typing @kbd{C-c . e} (@code{ede-edit-file-target}). You should ``rescan'' the project afterwards (@pxref{Miscellaneous commands}). diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi index f099dfd36d..f048e6f974 100644 --- a/doc/misc/gnus.texi +++ b/doc/misc/gnus.texi @@ -22047,7 +22047,7 @@ an example server definition: (nnml "mairix" (nnml-directory "mairix") (nnml-get-new-mail nil)) @end lisp -(The @code{nnmaildir} back end also has a server variabe +(The @code{nnmaildir} back end also has a server variable @code{get-new-mail}, but its default value is @code{nil}, so you don't have to explicitly set it if you use a @code{nnmaildir} server just for mairix.) diff --git a/doc/misc/pcl-cvs.texi b/doc/misc/pcl-cvs.texi index f12942da2d..d4f82b6b3a 100644 --- a/doc/misc/pcl-cvs.texi +++ b/doc/misc/pcl-cvs.texi @@ -70,7 +70,7 @@ customize-group RET pcl-cvs @key{RET}} and to look at the documentation strings of the various commands and major modes for further information. @c This manual is updated to release 2.5 of PCL-CVS. -@insertcopying +@insertcopying @end ifnottex @@ -1275,7 +1275,7 @@ will be called as @samp{cvs -d @var{cvs-cvsroot}@dots{}}. This can be useful if your site has several repositories. @item log-edit-require-final-newline -@c wordy to avoid unhderfull hbox +@c wordy to avoid underfull hbox When you enter a log message by typing into the @samp{*cvs-commit-message*} buffer, PCL-CVS normally automatically inserts a trailing newline, unless there already is one. This behavior diff --git a/doc/misc/sem-user.texi b/doc/misc/sem-user.texi index 28d1cdb6eb..e1631bcacc 100644 --- a/doc/misc/sem-user.texi +++ b/doc/misc/sem-user.texi @@ -547,7 +547,7 @@ reparsed regardless of their size. @end deffn @deffn Option semantic-idle-scheduler-no-working-message -If non-@code{nil}, disable display of working messages whie reparsing. +If non-@code{nil}, disable display of working messages while reparsing. @end deffn @deffn Option semantic-idle-scheduler-working-in-modeline-flag diff --git a/etc/NEWS.1-17 b/etc/NEWS.1-17 index dc9922ed98..8db283b537 100644 --- a/etc/NEWS.1-17 +++ b/etc/NEWS.1-17 @@ -1630,7 +1630,7 @@ Changes in Emacs 1.12 read-char now returns a value in the range 128-255 if a Meta character is typed. When interpreted as command input, a Meta character is equivalent to a two character - sequence, the meta prefix character followed by the un-metized + sequence, the meta prefix character followed by the unmetized character (Meta-G unmetized is G). The meta prefix character diff --git a/etc/NEWS.22 b/etc/NEWS.22 index 5e95e40b04..b96cdba98d 100644 --- a/etc/NEWS.22 +++ b/etc/NEWS.22 @@ -163,7 +163,7 @@ delimiters will appear to be fontified (in the new face customize `font-lock-comment-face'. Another alternative is to use a newer terminal emulator that supports more colors (256 is now common). For example, for xterm compatible emulators that support 256 colors, -you can run emacs like this: +you can run emacs like this: env TERM=xterm-256color emacs -nw (This was new in Emacs 22.1, but was not described. In Emacs 22.1 this also happened for terminals with a light background, that is not @@ -280,13 +280,13 @@ the files mac/README and mac/INSTALL for build instructions. ** Support for FreeBSD/Alpha has been added. ** New translations of the Emacs Tutorial are available in the -following languages: Brasilian Portuguese, Bulgarian, Chinese (both +following languages: Brazilian Portuguese, Bulgarian, Chinese (both with simplified and traditional characters), French, Russian, and Italian. Type `C-u C-h t' to choose one of them in case your language setup doesn't automatically select the right one. ** New translations of the Emacs reference card are available in the -Brasilian Portuguese and Russian. The corresponding PostScript files +Brazilian Portuguese and Russian. The corresponding PostScript files are also included. ** A French translation of the `Emacs Survival Guide' is available. diff --git a/etc/refcards/gnus-refcard.tex b/etc/refcards/gnus-refcard.tex index b164a28842..9f13974584 100644 --- a/etc/refcards/gnus-refcard.tex +++ b/etc/refcards/gnus-refcard.tex @@ -13,7 +13,7 @@ % % latex gnus-refcard.tex && % dvips -t letter -f gnus-refcard.dvi > gnus-refcard.ps -% +% % latex '\def\booklettrue{}\def\letterpapertrue{}\input{gnus-refcard}' && % mv gnus-refcard.dvi gnus-booklet.dvi && % dvips -t letter -f gnus-booklet.dvi > gnus-booklet.ps @@ -35,16 +35,16 @@ \ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Reference Card - + \def\Guide{Card}\def\guide{card} \def\logoscale{0.25} - + % Page setup for the refcard: - + % \setlength{\textwidth}{7.26in} \setlength{\textheight}{10in} % \setlength{\topmargin}{-1.0in} % % the same settings work for A4, although there is a bit of space at the - % % top and bottom of the page. + % % top and bottom of the page. % \setlength{\oddsidemargin}{-0.5in} \setlength{\evensidemargin}{-0.5in} \ifthenelse{\isundefined{\letterpapertrue}}{ @@ -52,19 +52,19 @@ }{ \geometry{hmargin=20mm,tmargin=10mm,bmargin=12mm} } - + }{ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % Reference Booklet - + \def\Guide{Booklet}\def\guide{booklet} \def\logoscale{0.5}% FIXME: too large for 2up printing? --rsteib - + \ifthenelse{\isundefined{\letterpapertrue}}{ \geometry{a5paper,hmargin=10mm,tmargin=10mm,bmargin=4mm} }{ \geometry{a5paper,hmargin=20mm,tmargin=10mm,bmargin=4mm} } - + \def\sec{\section} \def\subsec{\subsection} \def\subsubsec{\subsubsection} @@ -73,7 +73,7 @@ \par\vspace*{\fill}\pagebreak} }%ifbooklet% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -% \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % +% \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % %% include file for the Gnus refcard and booklet \def\progver{5.11} % program version @@ -218,7 +218,7 @@ \hline \multicolumn{2}{|p{\markdblcolwidth}|}{{\bf ``Read'' Marks.} All these marks appear in the first column of the summary line, and so - are mutually exclusive.}\\ + are mutually exclusive.}\\ \hline ` ' & (M-u, M SPC, M c) Not read.\\ ! & (!, M !, M t) Ticked (interesting).\\ @@ -284,7 +284,7 @@ [Prefix: use group under point to find posting-style].\\ b & Find {\bf bogus} groups and delete them.\\ c & Mark all unticked articles in group as read ({\bf catch-up}). - [p/p]\\ + [p/p]\\ g & Check the server for new articles ({\bf get}). [level]\\ M-g & Check the server for new articles in this group ({\bf get}). [p/p]\\ j & {\bf Jump} to a group.\\ @@ -292,14 +292,14 @@ [Prefix: use group under point to find posting-style].\\ n & Go to the {\bf next} group with unread articles. [distance]\\ M-n & Go to the {\bf next} group on the same or lower level. - [distance]\\ + [distance]\\ p & (DEL) Go to the {\bf previous} group with unread articles. - [distance]\\ - M-p & Go to the {\bf previous} group on the same or lower level. [distance]\\ + [distance]\\ + M-p & Go to the {\bf previous} group on the same or lower level. [distance]\\ q & {\bf Quit} Gnus.\\ r & Re-read the init file ({\bf reset}).\\ s & {\bf Save} `.newsrc.eld' file (and `.newsrc' if - `gnus-save-newsrc-file').\\ + `gnus-save-newsrc-file').\\ z & Suspend (kill all buffers of) Gnus.\\ B & {\bf Browse} a foreign server.\\ C & Mark all articles in this group as read ({\bf Catch-up}). [p/p]\\ @@ -312,7 +312,7 @@ M-c & Clear data from group (marks and list of read articles). \\ C-c C-s & {\bf Sort} the groups by name, number of unread articles, or level (depending on `gnus-group-sort-function').\\ - C-c C-x & Run all expirable articles in group through the {\bf expiry} + C-c C-x & Run all expirable articles in group through the {\bf expiry} process.\\ C-c M-C-x & Run all articles in all groups through the {\bf expiry} process.\\ C-c M-g & Activate all {\bf groups}.\\ @@ -324,7 +324,7 @@ ange-ftp). [Prefix: query for group]\\ H v & (V) Display the Gnus {\bf version} number.\\ H d & (C-c C-d) Show the {\bf description} of this group - [Prefix: re-read from server].\\ + [Prefix: re-read from server].\\ M-d & {\bf Describe} all groups. [Prefix: re-read from server]\\ D g & Regenerate a Sieve script from group parameters.\\ D u & Regenerate Sieve script and {\bf upload} to server.\\ @@ -334,17 +334,17 @@ \newcommand{\ListGroups}{% {\esamepage \begin{keys}{A M} - A d & (C-c C-M-a) List all groups whose names or {\bf descriptions} match a regexp.\\ + A d & (C-c C-M-a) List all groups whose names or {\bf descriptions} match a regexp.\\ A k & (C-c C-l) List all {\bf killed} groups. [Prefix: look at active-file from server]\\ A l & List all groups on a specific level. [Prefix: also list groups with no unread articles]\\ A a & (C-c C-a) List all groups whose names match a regexp - ({\bf apropos}).\\ + ({\bf apropos}).\\ A A & List the server's active-file.\\ A M & List groups that {\bf match} a regexp.\\ - A m & List groups that {\bf match} a regexp and have unread articles. - [level]\\ + A m & List groups that {\bf match} a regexp and have unread articles. + [level]\\ A s & (l) List all {\bf subscribed} groups with unread articles. [level; 5 and lower is the default]\\ A u & (L) List all groups (including read and {\bf unsubscribed}). @@ -354,7 +354,7 @@ A ? & List all groups with dormant articles. [level]\\ \end{keys} } - + \newcommand{\CreateEditGroups}{% {\esamepage The select methods are indicated in parentheses.\\* @@ -404,8 +404,8 @@ M m & (\#) Set the process {\bf mark} on this group. [scope]\\ M r & Mark all groups matching regular expression.\\ M u & (M-\#) Remove process mark from this group ({\bf unmark}). - [scope]\\ - M U & Remove the process mark from all groups (\textbf{umark all}).\\ + [scope]\\ + M U & Remove the process mark from all groups (\textbf{unmark all}).\\ M w & Mark all groups in the current region. [prefix: unmark]\\ M b & Mark all groups in the {\bf buffer}. [prefix: unmark]\\ \end{keys}} @@ -427,7 +427,7 @@ T DEL & Delete an empty topic.\\ T \# & Mark all groups in the current topic with the process-mark.\\ T M-\# & Remove the process-mark from all groups in the current topic.\\ - T TAB & (TAB) Indent current topic [Prefix: unindent].\\ + T TAB & (TAB) Indent current topic [Prefix: unindent].\\ M-TAB & Unindent the current topic.\\ RET & (SPC) Either unfold topic or enter group [level].\\ T s & {\bf Show} the current topic. [Prefix: show permanently]\\ @@ -478,7 +478,7 @@ {\esamepage \begin{keys}{M-RET} SPC & (A SPC, A n) Select an article, scroll it one page, move to the - next one.\\ + next one.\\ DEL & (A DEL, A p, b) Scroll this article one page back. [distance]\\ RET & (A RET) Scroll this article one line forward. [distance]\\ M-RET & (A M-RET) Scroll this article one line backward. [distance]\\ @@ -490,9 +490,9 @@ M-\& & Execute a command on all articles having the process mark.\\ % M-n & (G M-n) Go to {\bf next} summary line of unread article. - [distance]\\ - M-p & (G M-p) Go to {\bf previous} summary line of an unread article. - [distance]\\ + [distance]\\ + M-p & (G M-p) Go to {\bf previous} summary line of an unread article. + [distance]\\ M-s & {\bf Search} through all subsequent articles for a regexp.\\ M-r & Search through all previous articles for a regexp.\\ % @@ -519,7 +519,7 @@ M-C-d & Like C-d, but open several documents in nndoc-groups, wrapped in an nnvirtual group [p/p]\\ % - A g & (g) (Re)fetch this article ({\bf get}). [Prefix: get raw version]\\ + A g & (g) (Re)fetch this article ({\bf get}). [Prefix: get raw version]\\ A r & (\^{}, A \^{}) Fetch the parent(s) of this article. [Prefix: if positive fetch \textit{n} ancestors; negative: fetch only the \textit{n}th ancestor]\\ @@ -541,7 +541,7 @@ prefix selects which part to operate on. If the point is placed over a MIME button in the article buffer, use the corresponding bindings for the article buffer instead. - + \begin{keys}{W M w} K v & (b, W M b) {\bf View} the MIME-part.\\ K o & {\bf Save} the MIME part.\\ @@ -597,7 +597,7 @@ B t & {\bf Trace} the fancy splitting patterns applied to this article.\\ B w & (e) Edit this article.\\ B M-C-e & {\bf Expunge} (delete from disk) all expirable articles in this group - (!). [p/p]\\ + (!). [p/p]\\ K E & {\bf Encrypt} article body. [p/p]\\ \end{keys} } @@ -665,7 +665,7 @@ W 6 & Translate a base64 article.\\ W a & Strip certain {\bf headers} from body.\\ W b & Make Message-IDs and URLs in the article mouse-clickable - {\bf buttons}.\\ + {\bf buttons}.\\ W c & Translate CRLF-pairs to LF and then remaining CR's to LF's.\\ W d & Treat {\bf dumbquotes}.\\ W e & Treat {\bf emphasized} text.\\ @@ -698,7 +698,7 @@ } } - \newcommand{\BlankAndWhitespace}{% + \newcommand{\BlankAndWhitespace}{% {\esamepage \begin{keys}{W E w} W E l & Strip blank {\bf lines} from the beginning of the article.\\ @@ -715,7 +715,7 @@ } } - \newcommand{\Picons}{% + \newcommand{\Picons}{% {\esamepage \begin{keys}{W D D} W D s & (W g) Display {\bf smilies}.\\ @@ -729,7 +729,7 @@ } } - \newcommand{\TimeAndDate}{% + \newcommand{\TimeAndDate}{% {\esamepage \begin{keys}{W T u} W T u & (W T z) Display the article timestamp in GMT ({\bf UT, ZULU}).\\ @@ -739,7 +739,7 @@ W T e & Display the time {\bf elapsed} since it was sent.\\ W T o & Display the {\bf original} timestamp.\\ W T p & Display the date in format that's {\bf - pronounceable} in English.\\ + pronounceable} in English.\\ \end{keys} } } @@ -793,26 +793,26 @@ {\esamepage \begin{keys}{M M-C-r} d & (M d, M r) Mark this article as read and move to the next one. - [scope]\\ + [scope]\\ D & Mark this article as read and move to previous one. [scope]\\ ! & (u, M !, M t) Tick this article (mark it as interesting) and move to the next one. [scope]\\ - U & Tick this article and move to the previous one. [scope]\\ + U & Tick this article and move to the previous one. [scope]\\ M ? & (?) Mark this article as dormant (only followups are - interesting). [scope]\\ + interesting). [scope]\\ M D & Show all {\bf dormant} articles (normally they are hidden unless they have any followups).\\ M M-D & Hide all {\bf dormant} articles.\\ C-w & Mark all articles between point and mark as read.\\ M-u & (M SPC, M c) Clear all marks from this article and move to the next - one. [scope]\\ + one. [scope]\\ M-U & Clear all marks from this article and move to the previous one. [scope]\\ % M e & (E, M x) Mark this article as {\bf expirable}. [scope]\\ % M k & (k) {\bf Kill} all articles with same subject, select - next unread one.\\ + next unread one.\\ M K & (C-k) {\bf Kill} all articles with the same subject as this one.\\ % M C & {\bf Catch-up} the articles that are not ticked and not dormant.\\ @@ -842,7 +842,7 @@ } \newcommand{\ProcessMark}{% - {\esamepage + {\esamepage These commands set and remove the process mark (\#). You only need to use it if the set of articles you want to operate on is non-contiguous. Else use a numeric prefix.\\* @@ -929,7 +929,7 @@ %After %editing the article, send it by pressing C-c C-c. If you are in a %foreign group and want to post the article using the foreign server, give - %a prefix to C-c C-c.\\* + %a prefix to C-c C-c.\\* \begin{keys}{S O m} S p & (a) {\bf Post} an article to this group.\\ S f & (f) Post a {\bf followup} to this article.\\ @@ -965,7 +965,7 @@ % S O m & Digest these series and forward by {\bf mail}. [p/p]\\ S O p & Digest these series and forward as a {\bf post} to a newsgroup. - [p/p]\\ + [p/p]\\ % S u & {\bf Uuencode} a file and post it as a series.\\ \end{keys} @@ -1036,8 +1036,8 @@ \quad \B{l}ifetime: t)emporary, p)ermanent, i)mmediate. If you type the second letter in uppercase, the remaining two are assumed - to be s)ubstring and t)emporary. - If you type the third letter in uppercase, the last one is assumed to be + to be s)ubstring and t)emporary. + If you type the third letter in uppercase, the last one is assumed to be t)emporary. \quad Extra keys for manual editing of a score file:\\* @@ -1057,7 +1057,7 @@ archives, they are expanded and gathered in a new group.\\* \begin{keys}{X p} X b & Un-{\bf binhex} these series. [p/p]\\ - X o & Simply {\bf output} these series (no decoding). [p/p]\\ + X o & Simply {\bf output} these series (no decoding). [p/p]\\ X p & Unpack these {\bf postscript} series. [p/p]\\ X s & Un-{\bf shar} these series. [p/p]\\ X u & {\bf Uudecode} these series. [p/p]\\ @@ -1259,7 +1259,7 @@ } } -% end {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % +% end {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % % % o some things might not be updated: scoring and server modes, maybe more @@ -1333,7 +1333,7 @@ \SortSummary \subsection*{Score (Value) Commands} \Scoring - + \ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection*{Output Articles} \OutputArticles @@ -1343,7 +1343,7 @@ \subsection*{MIME operations from the Summary-Buffer} \MIMESummary - + \ifthenelse{\isundefined{\booklettrue}}{}{% ifbooklet %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \subsection*{Extract Series (Uudecode etc)} \ExtractSeries @@ -1354,7 +1354,7 @@ % \subsection*{Post, Followup, Reply, Forward, Cancel} \PostReplyetc - + \ifthenelse{\isundefined{\booklettrue}}{\newpage}{}% newpage ifcard \subsection*{Message Composition} diff --git a/leim/quail/py-punct.el b/leim/quail/py-punct.el index 8691912801..947f54c76f 100644 --- a/leim/quail/py-punct.el +++ b/leim/quail/py-punct.el @@ -8,7 +8,7 @@ ;; Author: Ken'ichi HANDA -;; Keywords: multilingual, input method, Chienese +;; Keywords: multilingual, input method, Chinese ;; This file is part of GNU Emacs. diff --git a/leim/quail/pypunct-b5.el b/leim/quail/pypunct-b5.el index cc1f4f535e..37c12659cc 100644 --- a/leim/quail/pypunct-b5.el +++ b/leim/quail/pypunct-b5.el @@ -7,7 +7,7 @@ ;; Author: Ken'ichi HANDA -;; Keywords: multilingual, input method, Chienese +;; Keywords: multilingual, input method, Chinese ;; This file is part of GNU Emacs. diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15 index 04133f1736..e9bd06afae 100644 --- a/lisp/ChangeLog.15 +++ b/lisp/ChangeLog.15 @@ -2818,7 +2818,7 @@ * tool-bar.el (tool-bar-setup): Remove :enable conditions, which are handled by the menu-bar entries. As before, don't use - :visibile to avoid changing the tool-bar. + :visible to avoid changing the tool-bar. 2010-12-27 Michael Albinus diff --git a/lisp/ChangeLog.6 b/lisp/ChangeLog.6 index 42c9df8487..fb6090b358 100644 --- a/lisp/ChangeLog.6 +++ b/lisp/ChangeLog.6 @@ -5716,7 +5716,7 @@ (vip-read-string-with-history, vip-search): Won't pause inside macros any more. * viper-mous.el (vip-surrounding-word): Modified to understand - tripple clicks. + triple clicks. * viper-util.el (vip-leave-region-active): New function. * viper-ex.el (ex-write): Uses better defaults. * viper-macs.el (vip-record-kbd-macro): Correctly escapes `.' and @@ -6689,7 +6689,7 @@ Harnessed view-minor-mode. Added (vip-leave-region-active) to all simple movement commands. * viper-mous.el (vip-surrounding-word): Modified to understand - tripple clicks. + triple clicks. * viper-util.el (vip-leave-region-active): New function. 1995-08-19 Richard Stallman diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7 index cb606cd084..a59f1abb2a 100644 --- a/lisp/ChangeLog.7 +++ b/lisp/ChangeLog.7 @@ -1230,7 +1230,7 @@ indicator regex, Fix line positioning. (speedbar-add-indicator): Handles obj indicators now. (speedbar-check-objects, speedbar-check-obj-this-line): New functions. - (speedbar-double-click): Fix tripple click error. + (speedbar-double-click): Fix triple click error. (speedbar-line-file, speedbar-goto-this-file): Handle indicator regex. (speedbar-line-path): Only try to get a file when in "files" display. (speedbar-line-depth): Handle indicator regex. @@ -2018,7 +2018,7 @@ 1998-06-19 Karl Heuer * emacs-lisp/checkdoc.el (checkdoc-eval-defun): Doc fix. - (checkdoc-continue, checkdoc-tripple-semi-comment-check-flag): Ditto. + (checkdoc-continue, checkdoc-triple-semi-comment-check-flag): Ditto. (checkdoc-common-verbs-wrong-voice): Use dotted pairs. 1998-06-19 Richard Stallman diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9 index 538f3f1d40..7419ccc124 100644 --- a/lisp/ChangeLog.9 +++ b/lisp/ChangeLog.9 @@ -8319,7 +8319,7 @@ * frame.el (show-cursor-in-non-selected-windows): Doc fix. * hi-lock.el (hi-lock-refontify): Don't call non-existent - jit-lock-fontify-buffer; it should anyway be unneccessary to + jit-lock-fontify-buffer; it should anyway be unnecessary to do anything special when jit-lock is active. (hi-yellow, hi-pink, hi-green, hi-blue): Fix defface specs. diff --git a/lisp/allout.el b/lisp/allout.el index e701d9685a..e699c85c7b 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -3100,7 +3100,7 @@ Return the start point of the new topic if successful, nil otherwise. Costs more than regular `allout-next-sibling' for short traversals: - - we have to check the prior (next, if travelling backwards) + - we have to check the prior (next, if traveling backwards) item to confirm connectivity with the prior topic, and - if confirmed, we have to reestablish the allout-recent-* settings with some extra navigation diff --git a/lisp/calc/calc-nlfit.el b/lisp/calc/calc-nlfit.el index 37e6f66c1b..bd162866c3 100644 --- a/lisp/calc/calc-nlfit.el +++ b/lisp/calc/calc-nlfit.el @@ -22,7 +22,7 @@ ;;; Commentary: ;; This code uses the Levenberg-Marquardt method, as described in -;; _Numerical Analysis_ by H. R. Schwarz, to fit data to +;; _Numerical Analysis_ by H. R. Schwarz, to fit data to ;; nonlinear curves. Currently, the only the following curves are ;; supported: ;; The logistic S curve, y=a/(1+exp(b*(t-c))) @@ -33,14 +33,14 @@ ;; The logistic bell curve, y=A*exp(B*(t-C))/(1+exp(B*(t-C)))^2 ;; Note that this is the derivative of the formula for the S curve. -;; We get A=-a*b, B=b and C=c. Here, y is interpreted as the rate -;; of growth of a population at time t. So we will think of the -;; data as consisting of rates p0, p1, ..., pn and their +;; We get A=-a*b, B=b and C=c. Here, y is interpreted as the rate +;; of growth of a population at time t. So we will think of the +;; data as consisting of rates p0, p1, ..., pn and their ;; respective times t0, t1, ..., tn. ;; The Hubbert Linearization, y/x=A*(1-x/B) ;; Here, y is thought of as the rate of growth of a population -;; and x represents the actual population. This is essentially +;; and x represents the actual population. This is essentially ;; the differential equation describing the actual population. ;; The Levenberg-Marquardt method is an iterative process: it takes @@ -53,7 +53,7 @@ ;; approximations for b and c are found using least squares on the ;; linearization log((a/y)-1) = log(bb) + cc*t of ;; y=a/(1+bb*exp(cc*t)), which is equivalent to the above s curve -;; formula, and then tranlating it to b and c. From this, we can +;; formula, and then translating it to b and c. From this, we can ;; also get approximations for the bell curve parameters. ;;; Code: @@ -68,7 +68,7 @@ (defun math-nlfit-least-squares (xdata ydata &optional sdata sigmas) "Return the parameters A and B for the best least squares fit y=a+bx." (let* ((n (length xdata)) - (s2data (if sdata + (s2data (if sdata (mapcar 'calcFunc-sqr sdata) (make-list n 1))) (S (if sdata 0 n)) @@ -109,11 +109,11 @@ ;;; The methods described by de Sousa require the cumulative data qdata ;;; and the rates pdata. We will assume that we are given either ;;; qdata and the corresponding times tdata, or pdata and the corresponding -;;; tdata. The following two functions will find pdata or qdata, +;;; tdata. The following two functions will find pdata or qdata, ;;; given the other.. -;;; First, given two lists; one of values q0, q1, ..., qn and one of -;;; corresponding times t0, t1, ..., tn; return a list +;;; First, given two lists; one of values q0, q1, ..., qn and one of +;;; corresponding times t0, t1, ..., tn; return a list ;;; p0, p1, ..., pn of the rates of change of the qi with respect to t. ;;; p0 is the right hand derivative (q1 - q0)/(t1 - t0). ;;; pn is the left hand derivative (qn - q(n-1))/(tn - t(n-1)). @@ -122,7 +122,7 @@ (defun math-nlfit-get-rates-from-cumul (tdata qdata) (let ((pdata (list - (math-div + (math-div (math-sub (nth 1 qdata) (nth 0 qdata)) (math-sub (nth 1 tdata) @@ -155,7 +155,7 @@ pdata)) (reverse pdata))) -;;; Next, given two lists -- one of rates p0, p1, ..., pn and one of +;;; Next, given two lists -- one of rates p0, p1, ..., pn and one of ;;; corresponding times t0, t1, ..., tn -- and an initial values q0, ;;; return a list q0, q1, ..., qn of the cumulative values. ;;; q0 is the initial value given. @@ -169,7 +169,7 @@ (cons (math-add (car qdata) (math-mul - (math-mul + (math-mul '(float 5 -1) (math-add (nth 1 pdata) (nth 0 pdata))) (math-sub (nth 1 tdata) @@ -181,13 +181,13 @@ ;;; Given the qdata, pdata and tdata, find the parameters ;;; a, b and c that fit q = a/(1+b*exp(c*t)). -;;; a is found using the method described by de Sousa. +;;; a is found using the method described by de Sousa. ;;; b and c are found using least squares on the linearization ;;; log((a/q)-1) = log(b) + c*t ;;; In some cases (where the logistic curve may well be the wrong ;;; model), the computed a will be less than or equal to the maximum ;;; value of q in qdata; in which case the above linearization won't work. -;;; In this case, a will be replaced by a number slightly above +;;; In this case, a will be replaced by a number slightly above ;;; the maximum value of q. (defun math-nlfit-find-qmax (qdata pdata tdata) @@ -224,7 +224,7 @@ (setq qmh (math-add qmh (math-mul - (math-mul + (math-mul '(float 5 -1) (math-add (nth 1 pdata) (nth 0 pdata))) (math-sub (nth 1 tdata) @@ -239,7 +239,7 @@ (let* ((qhalf (math-nlfit-find-qmaxhalf pdata tdata)) (q0 (math-mul 2 qhalf)) (qdata (math-nlfit-get-cumul-from-rates tdata pdata q0))) - (while (math-lessp (math-nlfit-find-qmax + (while (math-lessp (math-nlfit-find-qmax (mapcar (lambda (q) (math-add q0 q)) qdata) @@ -260,7 +260,7 @@ (i 0)) (while (< i 10) (setq q0 (math-mul '(float 5 -1) (math-add qmin qmax))) - (if (math-lessp + (if (math-lessp (math-nlfit-find-qmax (mapcar (lambda (q) (math-add q0 q)) @@ -272,7 +272,7 @@ (setq i (1+ i))) (math-mul '(float 5 -1) (math-add qmin qmax))))) -;;; To improve the approximations to the parameters, we can use +;;; To improve the approximations to the parameters, we can use ;;; Marquardt method as described in Schwarz's book. ;;; Small numbers used in the Givens algorithm @@ -329,7 +329,7 @@ (let ((cij (math-nlfit-get-matx-elt C i j)) (cjj (math-nlfit-get-matx-elt C j j))) (when (not (math-equal 0 cij)) - (if (math-lessp (calcFunc-abs cjj) + (if (math-lessp (calcFunc-abs cjj) (math-mul math-nlfit-delta (calcFunc-abs cij))) (setq w (math-neg cij) gamma 0 @@ -337,7 +337,7 @@ rho 1) (setq w (math-mul (calcFunc-sign cjj) - (calcFunc-sqrt + (calcFunc-sqrt (math-add (math-mul cjj cjj) (math-mul cij cij)))) @@ -351,10 +351,10 @@ (math-nlfit-set-matx-elt C j j w) (math-nlfit-set-matx-elt C i j rho) (let ((k (1+ j))) - (while (<= k n) + (while (<= k n) (let* ((cjk (math-nlfit-get-matx-elt C j k)) (cik (math-nlfit-get-matx-elt C i k)) - (h (math-sub + (h (math-sub (math-mul gamma cjk) (math-mul sigma cik)))) (setq cik (math-add (math-mul sigma cjk) @@ -386,9 +386,9 @@ (setq s (math-add s (math-mul (math-nlfit-get-matx-elt C i k) (math-nlfit-get-elt x k)))) (setq k (1+ k)))) - (math-nlfit-set-elt x i - (math-neg - (math-div s + (math-nlfit-set-elt x i + (math-neg + (math-div s (math-nlfit-get-matx-elt C i i)))) (setq i (1- i)))) (let ((i (1+ n))) @@ -405,7 +405,7 @@ sigma 1) (if (math-lessp (calcFunc-abs rho) 1) (setq sigma rho - gamma (calcFunc-sqrt + gamma (calcFunc-sqrt (math-sub 1 (math-mul sigma sigma)))) (setq gamma (math-div 1 (calcFunc-abs rho)) sigma (math-mul (calcFunc-sign rho) @@ -429,7 +429,7 @@ (defun math-nlfit-jacobian (grad xlist parms &optional slist) (let ((j nil)) - (while xlist + (while xlist (let ((row (apply grad (car xlist) parms))) (setq j (cons @@ -495,7 +495,7 @@ (setq ydata (cdr ydata)) (setq sdata (cdr sdata))) (reverse d))) - + (defun math-nlfit-make-dtilda (d n) (append d (make-list n 0))) @@ -520,8 +520,8 @@ (newchisq (math-nlfit-chi-sq xlist ylist newparms fn slist))) (if (math-lessp newchisq chisq) (progn - (if (math-lessp - (math-div + (if (math-lessp + (math-div (math-sub chisq newchisq) newchisq) math-nlfit-epsilon) (setq really-done t)) (setq lambda (math-div lambda 10)) @@ -551,7 +551,7 @@ (let ((ex (calcFunc-exp (math-mul c (math-sub x d))))) (math-div (math-mul a ex) - (math-sqr + (math-sqr (math-add 1 ex))))) @@ -582,7 +582,7 @@ (defun math-nlfit-find-covar (grad xlist pparms) (let ((j nil)) - (while xlist + (while xlist (setq j (cons (cons 'vec (apply grad (car xlist) pparms)) j)) (setq xlist (cdr xlist))) (setq j (cons 'vec (reverse j))) @@ -603,7 +603,7 @@ (setq i (1+ i))) (setq sgs (reverse sgs))) (list sgs covar))) - + ;;; Now the Calc functions (defun math-nlfit-s-logistic-params (xdata ydata) @@ -687,15 +687,15 @@ (funcall initparms xdata ydata)) (fit (math-nlfit-fit xdata ydata parmguess fn grad sdata)) (finalparms (nth 1 fit)) - (sigmacovar + (sigmacovar (if sdevv (math-nlfit-get-sigmas grad xdata finalparms (nth 0 fit)))) - (sigmas + (sigmas (if sdevv (nth 0 sigmacovar))) - (finalparms + (finalparms (if sigmas - (math-map-binop + (math-map-binop (lambda (x y) (list 'sdev x y)) finalparms sigmas) finalparms)) (soln (funcall solnexpr finalparms var))) @@ -712,8 +712,8 @@ ((eq sdv 'calcFunc-xfit) (let (sln) (setq sln - (list 'vec - soln + (list 'vec + soln traillist (nth 1 sigmacovar) '(vec) @@ -721,7 +721,7 @@ (let ((n (length xdata)) (m (length finalparms))) (if (and sdata (> n m)) - (calcFunc-utpc (nth 0 fit) + (calcFunc-utpc (nth 0 fit) (- n m)) '(var nan var-nan))))) (math-nlfit-enter-result 1 "xfit" sln))) @@ -787,14 +787,14 @@ (list (nth 1 (nth 0 finalparms)) (nth 1 (nth 1 finalparms))) (lambda (x a b) - (math-mul a + (math-mul a (math-sub 1 (math-div x b)))) sdata))) (setq sln - (list 'vec - soln + (list 'vec + soln traillist (nth 2 parmvals) (list @@ -807,7 +807,7 @@ chisq (let ((n (length qdata))) (if (and sdata (> n 2)) - (calcFunc-utpc + (calcFunc-utpc chisq (- n 2)) '(var nan var-nan))))) @@ -817,4 +817,3 @@ (calc-record traillist "parm"))))) (provide 'calc-nlfit) - diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 626d2462b4..23f955afe7 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -1003,7 +1003,7 @@ Used by `calc-user-invocation'.") (defvar calc-quick-prev-results nil "Previous results from Quick Calc.") (defvar calc-said-hello nil - "Non-nil if the welcomd message has been displayed.") + "Non-nil if the welcome message has been displayed.") (defvar calc-executing-macro nil "Non-nil if a keyboard macro is executing from the \"K\" key.") (defvar calc-any-selections nil diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 3ffb6baee9..3355ed83a9 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el @@ -437,7 +437,7 @@ RETURNONERROR specifies that parsing should stop on the first unmatched syntax encountered. When nil, parsing skips the syntax, adding it to the unmatched syntax cache. -Must return a list of semantic tags wich have been cooked +Must return a list of semantic tags which have been cooked \(repositioned properly) but which DO NOT HAVE OVERLAYS associated with them. When overloading this function, use `semantic--tag-expand' to cook raw tags.") diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el index ae199703c8..c275ba96ee 100644 --- a/lisp/cedet/semantic/analyze.el +++ b/lisp/cedet/semantic/analyze.el @@ -254,7 +254,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error (fname nil) (miniscope (when scope (clone scope))) ) - ;; First order check. Is this wholely contained in the typecache? + ;; First order check. Is this wholly contained in the typecache? (setq tmp (semanticdb-typecache-find sequence)) (if tmp diff --git a/lisp/cedet/semantic/analyze/fcn.el b/lisp/cedet/semantic/analyze/fcn.el index eae6d01340..967e5c59cd 100644 --- a/lisp/cedet/semantic/analyze/fcn.el +++ b/lisp/cedet/semantic/analyze/fcn.el @@ -157,7 +157,7 @@ Almost all searches use the same arguments." ;; (define-overloadable-function semantic-analyze-dereference-metatype (type scope &optional type-declaration) - ;; todo - move into typecahe!! + ;; todo - move into typecache!! "Return a concrete type tag based on input TYPE tag. A concrete type is an actual declaration of a memory description, such as a structure, or class. A meta type is an alias, diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index aaec4cb30f..7e01b88f60 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -1023,7 +1023,7 @@ Output must be in semanticdb Find result format." (defmethod semantic-collector-try-completion-whitespace ((obj semantic-collector-abstract) prefix) - "For OBJ, do whatepsace completion based on PREFIX. + "For OBJ, do whitespace completion based on PREFIX. This implies that if there are two completions, one matching the test \"prefix\\>\", and one not, the one matching the full word version of PREFIX will be chosen, and that text returned. diff --git a/lisp/cedet/semantic/ia-sb.el b/lisp/cedet/semantic/ia-sb.el index 95a68673b8..edd62cc5ca 100644 --- a/lisp/cedet/semantic/ia-sb.el +++ b/lisp/cedet/semantic/ia-sb.el @@ -348,7 +348,7 @@ TEXT TAG and INDENT are the details." (insert (semantic-tag-name tag)) (if movepoint (setq movepoint (point))) ;; I'd like to use this to add fancy () or what not at the end - ;; but we need the parent file whih requires an upgrade to the + ;; but we need the parent file which requires an upgrade to the ;; analysis tool. ;;(semantic-insert-foreign-tag tag ??)) ) diff --git a/lisp/cedet/semantic/lex-spp.el b/lisp/cedet/semantic/lex-spp.el index 03a3f1b0cb..9cbea4430e 100644 --- a/lisp/cedet/semantic/lex-spp.el +++ b/lisp/cedet/semantic/lex-spp.el @@ -452,7 +452,7 @@ continue processing recursively." ;; If val is nil, that's probably wrong. ;; Found a system header case where this was true. ((null val) "") - ;; Debug wierd stuff. + ;; Debug weird stuff. (t (debug))) )) ((stringp txt) diff --git a/lisp/cedet/semantic/sort.el b/lisp/cedet/semantic/sort.el index c3d8b26810..a4126e1384 100644 --- a/lisp/cedet/semantic/sort.el +++ b/lisp/cedet/semantic/sort.el @@ -229,7 +229,7 @@ unmodified as components of their parent tags." (mapc (lambda (tag) (let ((components (semantic-tag-components tag))) (if (and components - ;; unpositined tags can be hazardous to + ;; unpositioned tags can be hazardous to ;; completion. Do we need any type of tag ;; here? - EL (semantic-tag-with-position-p (car components))) diff --git a/lisp/cedet/semantic/symref.el b/lisp/cedet/semantic/symref.el index 61006802c0..cbae9f8557 100644 --- a/lisp/cedet/semantic/symref.el +++ b/lisp/cedet/semantic/symref.el @@ -324,7 +324,7 @@ Use the `semantic-symref-hit-tags' method to get this list.") (setq ans (list (car files)) files (cdr files)) (dolist (F files) - ;; This algorithm for uniqing the file list depends on the + ;; This algorithm for uniquifying the file list depends on the ;; tool in question providing all the hits in the same file ;; grouped together. (when (not (string= F (car ans))) diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el index ce3500f83e..53422541c4 100644 --- a/lisp/cedet/semantic/symref/list.el +++ b/lisp/cedet/semantic/symref/list.el @@ -401,7 +401,7 @@ BUTTON is the button that was clicked." ;;; UTILS ;; -;; List mode utils for understadning the current line +;; List mode utils for understanding the current line (defun semantic-symref-list-on-hit-p () "Return the line number if the cursor is on a buffer line with a hit. diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el index acfc248671..df90f6c464 100644 --- a/lisp/cedet/srecode/texi.el +++ b/lisp/cedet/srecode/texi.el @@ -244,7 +244,7 @@ that class. `function' => @dfn{function} `variable' => @code{variable} `class' => @code{class} @xref{class} - `unknown' => @code{unknonwn} + `unknown' => @code{unknown} \"text\" => ``text'' 'quoteme => @code{quoteme} non-nil => non-@code{nil} diff --git a/lisp/doc-view.el b/lisp/doc-view.el index d16d8c6f62..7e4329234e 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el @@ -124,7 +124,7 @@ ;; (except the tooltip) if the next match is on the same page. ;; And it's much slower than the current search facility, because -;; isearch really searches for each step forward or backward wheras +;; isearch really searches for each step forward or backward whereas ;; the current approach searches once and then it knows to which ;; pages to jump. diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 5e29a85d38..db3236afc1 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -992,7 +992,7 @@ if default value is nil." ;; EML - Note: the only reason to override a class bound slot ;; is to change the default, so allow unbound in. - ;; If we have a repeat, only update the vlaue... + ;; If we have a repeat, only update the value... (eieio-perform-slot-validation-for-default a tp value skipnil) (setcar dp value)) diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el index ba04a27021..ce6f8348a6 100644 --- a/lisp/emacs-lisp/elint.el +++ b/lisp/emacs-lisp/elint.el @@ -1098,7 +1098,7 @@ optional prefix argument REINIT is non-nil." ;; This includes all the built-in and dumped things with documentation. (defun elint-scan-doc-file () "Scan the DOC file for function and variables. -Marks the function wih their arguments, and returns a list of variables." +Marks the function with their arguments, and returns a list of variables." ;; Cribbed from help-fns.el. (let ((docbuf " *DOC*") vars sym args) diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el index 8f991575ed..a5a6f71d79 100644 --- a/lisp/emacs-lisp/testcover.el +++ b/lisp/emacs-lisp/testcover.el @@ -220,7 +220,7 @@ non-nil, byte-compiles each function after instrumenting." (defun testcover-reinstrument (form) "Reinstruments FORM to use testcover instead of edebug. This function modifies the list that FORM points to. Result is nil if -FORM should return multiple vlues, t if should always return same +FORM should return multiple values, t if should always return same value, 'maybe if either is acceptable." (let ((fun (car-safe form)) id val) diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index df37157f7a..ce3cc3c9a2 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -3715,7 +3715,7 @@ Although this function is bound to \\[viper-toggle-search-style], the most convenient way to use it is to bind `//' to the macro `1 M-x viper-toggle-search-style' and `///' to `2 M-x viper-toggle-search-style'. In this way, hitting `//' quickly will -toggle case-fold-search and hitting `/' three times witth toggle regexp +toggle case-fold-search and hitting `/' three times with toggle regexp search. Macros are more convenient in this case because they don't affect the Emacs binding of `/'." (interactive "P") diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index b0c37ed28e..2d221d5fa0 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el @@ -593,7 +593,7 @@ to a new place after repeating previous Vi command." ;; The reason this is needed is because dabbrev-expand (and possibly ;; others) may jump to before the insertion point, delete something and ;; then reinsert a bigger piece. For instance: bla^blo -;; If dabbrev-expand is called after `blo' and ^ undicates viper-insert-point, +;; If dabbrev-expand is called after `blo' and ^ indicates viper-insert-point, ;; then point jumps to the beginning of `blo'. If expansion is found, `blablo' ;; is deleted, and we have |^, where | denotes point. Next, dabbrev-expand ;; will insert the expansion, and we get: blablo^ diff --git a/lisp/emulation/viper-mous.el b/lisp/emulation/viper-mous.el index a2e289df5e..a99ffdea55 100644 --- a/lisp/emulation/viper-mous.el +++ b/lisp/emulation/viper-mous.el @@ -66,7 +66,7 @@ "*Function that determines what constitutes a word for clicking events. Takes two parameters: a COUNT, indicating how many words to return, and CLICK-COUNT, telling whether this is the first click, a double-click, -or a tripple-click." +or a triple-click." :type 'symbol :group 'viper-mouse) diff --git a/lisp/epg.el b/lisp/epg.el index 00c00f9c9d..133e76da96 100644 --- a/lisp/epg.el +++ b/lisp/epg.el @@ -82,7 +82,7 @@ (defconst epg-invalid-recipients-reason-alist '((0 . "No specific reason given") (1 . "Not Found") - (2 . "Ambigious specification") + (2 . "Ambiguous specification") (3 . "Wrong key usage") (4 . "Key revoked") (5 . "Key expired") @@ -95,7 +95,7 @@ (defconst epg-delete-problem-reason-alist '((1 . "No such key") (2 . "Must delete secret key first") - (3 . "Ambigious specification"))) + (3 . "Ambiguous specification"))) (defconst epg-import-ok-reason-alist '((0 . "Not actually changed") diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index a218dd1255..0eff33f1e7 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -2626,7 +2626,7 @@ VALUE is computed by evaluating the rest of LINE in Lisp." (defun erc-cmd-default (line) "Fallback command. -Commands for which no erc-cmd-xxx exists, are tunnelled through +Commands for which no erc-cmd-xxx exists, are tunneled through this function. LINE is sent to the server verbatim, and therefore has to contain the command itself as well." (erc-log (format "cmd: DEFAULT: %s" line)) diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1 index 86c4eea59a..8d4b1a086d 100644 --- a/lisp/gnus/ChangeLog.1 +++ b/lisp/gnus/ChangeLog.1 @@ -2346,7 +2346,7 @@ * nnmh.el: Don't call nnmail-activate. - * gnus.el: User-variabelize all custom vars. + * gnus.el: User-variablize all custom vars. 1998-02-13 Lars Magne Ingebrigtsen diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 7cea88e7f5..b3f85cf936 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -11913,7 +11913,7 @@ will not be marked as saved." ;; This is a pseudo-article. (if (assq 'name header) (gnus-copy-file (cdr (assq 'name header))) - (gnus-message 1 "Article %d is unsaveable" article)) + (gnus-message 1 "Article %d is unsavable" article)) ;; This is a real article. (save-window-excursion (gnus-summary-select-article decode decode nil article) diff --git a/lisp/info.el b/lisp/info.el index 4f2f33d017..02f84a54af 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -3240,7 +3240,7 @@ search results." (Info-index topic) (push (cons (cons Info-current-file topic) Info-index-alternatives) Info-virtual-index-nodes) - ;; Clean up unneccessary side-effects of `Info-index'. + ;; Clean up unnecessary side-effects of `Info-index'. (setq Info-history-list ohist-list) (Info-goto-node orignode) (message ""))) diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index a23645bae1..c80b22c696 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el @@ -424,7 +424,7 @@ )) ;;; alist for Tibetan composite vowels (long i, vocalic r, etc.) -;;; New varialble. created by Tomabechi 2000/06/08 +;;; New variable. created by Tomabechi 2000/06/08 (defconst tibetan-composite-vowel-alist '(;; LONG A ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B)) @@ -604,7 +604,7 @@ This also matches some punctuation characters which need conversion.") (defvar tibetan-decomposed-temp nil) ;; For automatic composition. -(set-char-table-range +(set-char-table-range composition-function-table '(#xF00 . #xFD1) (list (vector tibetan-composable-pattern 0 'font-shape-gstring))) diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 7f595db481..f1d25158ce 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -8944,7 +8944,7 @@ system. Return non-nil if logging is enabled for BUFFER. If BUFFER is nil, the value of `current-buffer' is used. Logging is enabled if `erc-log-channels-directory' is non-nil, the directory -is writeable (it will be created as necessary) and +is writable (it will be created as necessary) and `erc-enable-logging' returns a non-nil value. \(fn &optional BUFFER)" nil nil) diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index 7167fa567d..7e3d983a76 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -2026,7 +2026,7 @@ backup file names and the like)." (if (looking-at ".*\r\n.*\r\n") (while (search-forward "\r\n" nil t) (replace-match "\n" nil t))) -;; ;; work around text-vs-binary wierdness +;; ;; work around text-vs-binary weirdness ;; ;; if we don't find the normal M-H-S, try reading the file a different way ;; (if (not (feedmail-find-eoh t)) ;; (let ((file-name-buffer-file-type-alist nil) (default-buffer-file-type nil)) diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index d35d7d4c67..15eb1cbaed 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 @@ -9150,7 +9150,7 @@ %number(msg). (mh-scan-msg-format-string): Format to be used with the current maximum width of message number for the folder in the - `mh-upate-scan-format' function. + `mh-update-scan-format' function. (mh-update-scan-format): Use `mh-scan-msg-format-regexp' for greater flexibility. The message number is no longer anchored to the beginning of the `mh-scan-format-nmh' or `mh-scan-format-mh' format diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el index ea4a887898..907c99a7e8 100644 --- a/lisp/net/xesam.el +++ b/lisp/net/xesam.el @@ -196,7 +196,7 @@ be different at least in one face property not set in that face." (defconst xesam-all-fields '("xesam:35mmEquivalent" "xesam:aimContactMedium" "xesam:aperture" "xesam:aspectRatio" "xesam:attachmentEncoding" "xesam:attendee" - "xesam:audioBirate" "xesam:audioChannels" "xesam:audioCodec" + "xesam:audioBitrate" "xesam:audioChannels" "xesam:audioCodec" "xesam:audioCodecType" "xesam:audioSampleFormat" "xesam:audioSampleRate" "xesam:author" "xesam:bcc" "xesam:birthDate" "xesam:blogContactURL" "xesam:cameraManufacturer" "xesam:cameraModel" "xesam:cc" "xesam:ccdWidth" @@ -240,7 +240,8 @@ be different at least in one face property not set in that face." "xesam:subject" "xesam:supercedes" "xesam:title" "xesam:to" "xesam:totalSpace" "xesam:totalUncompressedSize" "xesam:url" "xesam:usageIntensity" "xesam:userComment" "xesam:userKeyword" - "xesam:uuid" "xesam:version" "xesam:verticalResolution" "xesam:videoBirate" + "xesam:uuid" "xesam:version" "xesam:verticalResolution" + "xesam:videoBitrate" "xesam:videoCodec" "xesam:videoCodecType" "xesam:whiteBalance" "xesam:width" "xesam:wordCount" "xesam:workEmailAddress" "xesam:workPhoneNumber" "xesam:workPostalAddress" diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 1cdb0a6f57..aa96fa1a4d 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -15461,7 +15461,7 @@ * org.el (org-enforce-todo-checkbox-dependencies): New option. (org-block-todo-from-checkboxes): New function. - (org-todo): Make tripple prefix arg circumvent blocking. + (org-todo): Make triple prefix arg circumvent blocking. 2009-01-30 Glenn Morris diff --git a/lisp/org/org-bibtex.el b/lisp/org/org-bibtex.el index 138d99a36d..3607458a41 100644 --- a/lisp/org/org-bibtex.el +++ b/lisp/org/org-bibtex.el @@ -215,7 +215,7 @@ "List to hold parsed bibtex entries.") (defcustom org-bibtex-autogen-keys nil - "Set to a truthy value to use `bibtex-generate-autokey' to generate keys." + "Set to a truth value to use `bibtex-generate-autokey' to generate keys." :group 'org-bibtex :type 'boolean) diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index 6279ed3df0..6d82d4529b 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -1919,7 +1919,7 @@ the returned times will be formatted strings." shiftedm (- 13 (* 3 (nth 1 tmp))) shiftedq (- 5 (nth 1 tmp)))) (setq d 1 h 0 m 0 d1 1 month shiftedm month1 (+ 3 shiftedm) h1 0 m1 0 y shiftedy)) - ((> (+ q shift) 0) ; shift is whitin this year + ((> (+ q shift) 0) ; shift is within this year (setq shiftedq (+ q shift)) (setq shiftedy y) (setq d 1 h 0 m 0 d1 1 month (+ 1 (* 3 (- (+ q shift) 1))) month1 (+ 4 (* 3 (- (+ q shift) 1))) h1 0 m1 0)))) diff --git a/lisp/org/org-colview.el b/lisp/org/org-colview.el index 05df6bb752..0f6fc0bed6 100644 --- a/lisp/org/org-colview.el +++ b/lisp/org/org-colview.el @@ -474,7 +474,7 @@ Where possible, use the standard interface for changing this line." ((equal major-mode 'org-agenda-mode) (org-columns-eval eval) ;; The following let preserves the current format, and makes sure - ;; that in only a single file things need to be upated. + ;; that in only a single file things need to be updated. (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) (buffer (marker-buffer pom)) (org-agenda-contributing-files @@ -605,7 +605,7 @@ an integer, select that value." ((equal major-mode 'org-agenda-mode) (org-columns-eval '(org-entry-put pom key nval)) ;; The following let preserves the current format, and makes sure - ;; that in only a single file things need to be upated. + ;; that in only a single file things need to be updated. (let* ((org-agenda-overriding-columns-format org-columns-current-fmt) (buffer (marker-buffer pom)) (org-agenda-contributing-files diff --git a/lisp/org/org-freemind.el b/lisp/org/org-freemind.el index 91a1e5e59c..b01f6d9fa6 100644 --- a/lisp/org/org-freemind.el +++ b/lisp/org/org-freemind.el @@ -660,7 +660,7 @@ Otherwise give an error say the file exists." (with-current-buffer mm-buffer (erase-buffer) (setq buffer-file-coding-system 'utf-8) - ;; Fix-me: Currentl Freemind (ver 0.9.0 RC9) does not support this: + ;; Fix-me: Currently Freemind (ver 0.9.0 RC9) does not support this: ;;(insert "\n") (insert "\n") (insert "\n")) diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index b8bf62d90b..ad5d5def88 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -1694,7 +1694,7 @@ ARG is ignored, and is there for compatibility with `capitalize-word' only." (defun ada-no-auto-case (&optional _arg) "Do nothing. ARG is ignored. This function can be used for the auto-casing variables in Ada mode, to -adapt to unusal auto-casing schemes. Since it does nothing, you can for +adapt to unusual auto-casing schemes. Since it does nothing, you can for instance use it for `ada-case-identifier' if you don't want any special auto-casing for identifiers, whereas keywords have to be lower-cased. See also `ada-auto-case' to disable auto casing altogether." diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index c794cad65d..9544c4f872 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -6467,7 +6467,7 @@ comment at the start of cc-engine.el for more info." (when (c-keyword-member kwd-sym 'c-typeless-decl-kwds) (setq maybe-typeless t)) - ;; Haven't matched a type so it's an umambiguous + ;; Haven't matched a type so it's an unambiguous ;; specifier keyword and we know we're in a ;; declaration. (setq at-decl-or-cast t) diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 0e649480dd..9352725384 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -1811,7 +1811,7 @@ or as help on variables `cperl-tips', `cperl-problems', (funcall f)) (make-local-variable 'compilation-error-regexp-alist) (push 'cperl compilation-error-regexp-alist))) - ((boundp 'compilation-error-regexp-alist);; xmeacs 19.x + ((boundp 'compilation-error-regexp-alist);; xemacs 19.x (make-local-variable 'compilation-error-regexp-alist) (set 'compilation-error-regexp-alist (append cperl-compilation-error-regexp-alist diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index ca8be01d4a..9cbc1dc6d3 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el @@ -194,9 +194,9 @@ ;; Unfortunately, these workarounds do not restore hideshow state. ;; If someone figures out a better way, please let me know. -;; * Correspondance +;; * Correspondence ;; -;; Correspondance welcome; please indicate version number. Send bug +;; Correspondence welcome; please indicate version number. Send bug ;; reports and inquiries to . ;; * Thanks diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index faccbb1f0c..c35562a9c5 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -1844,7 +1844,7 @@ file name." (cond ((file-regular-p file2) file2) ((file-regular-p file1) file1) - ;; If we cannot veryfy the existence of the file, we return the shorter + ;; If we cannot verify the existence of the file, we return the shorter ;; name. The idea behind this is that this may be a relative file name ;; and our idea about the current working directory may be wrong. ;; If it is a relative file name, it hopefully is short. diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 8b4798e1c1..121ce8e043 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -164,7 +164,7 @@ ;; with the original form). My code on the matter was improved ;; considerably by Markus Triska. ;; o Fixed `prolog-insert-spaces-after-paren' (which used an -;; unitialized variable). +;; uninitialized variable). ;; o Minor changes to clean up the code and avoid some implicit ;; package requirements. ;; Version 1.13: @@ -691,7 +691,7 @@ nil means send actual operating system end of file." (defcustom prolog-use-standard-consult-compile-method-flag t "*Non-nil means use the standard compilation method. Otherwise the new compilation method will be used. This -utilises a special compilation buffer with the associated +utilizes a special compilation buffer with the associated features such as parsing of error messages and automatically jumping to the source code responsible for the error. diff --git a/lisp/ps-mule.el b/lisp/ps-mule.el index 65cdb600d7..c8bdc271f5 100644 --- a/lisp/ps-mule.el +++ b/lisp/ps-mule.el @@ -366,7 +366,7 @@ See also `ps-mule-font-info-database-bdf'.") ;; character is printed by which FONT-SPEC. It has one extra slot ;; whose value is an alist of the form: ;; (CHARSET . FONT-SPEC) -;; FONT-SPEC is a vecotr of the form: +;; FONT-SPEC is a vector of the form: ;; (ID FONT-SRC FONT-NAME ENCODING EXTRA) (defvar ps-mule-font-spec-tables nil) diff --git a/lisp/repeat.el b/lisp/repeat.el index 8ddc8d4142..13b6a1d231 100644 --- a/lisp/repeat.el +++ b/lisp/repeat.el @@ -363,7 +363,7 @@ recently executed command not bound to an input event\"." ;; OK, there's one situation left where that doesn't work correctly: when the ;; most recent self-insertion provoked an auto-fill. The problem is that -;; unravelling the undo information after an auto-fill is too hard, since all +;; unraveling the undo information after an auto-fill is too hard, since all ;; kinds of stuff can get in there as a result of comment prefixes etc. It'd ;; be possible to advise do-auto-fill to record the most recent ;; self-insertion before it does its thing, but that's a performance hit on diff --git a/lisp/ses.el b/lisp/ses.el index cdc58e12d0..6c9d0a7a50 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -1143,7 +1143,7 @@ preceding cell has spilled over." (setq x (concat text (if (< maxcol ses--numcols) " " "\n"))) ;; We use set-text-properties to prevent a wacky print function from ;; inserting rogue properties, and to ensure that the keymap property is - ;; inherited (is it a bug that only unpropertied strings actually + ;; inherited (is it a bug that only unpropertized strings actually ;; inherit from surrounding text?) (set-text-properties 0 (length x) nil x) (insert-and-inherit x) @@ -1371,7 +1371,7 @@ first reference is found." result-so-far) (defsubst ses-relocate-symbol (sym rowcol startrow startcol rowincr colincr) - "Relocate one symbol SYM, whichs corresponds to ROWCOL (a cons of ROW and + "Relocate one symbol SYM, which corresponds to ROWCOL (a cons of ROW and COL). Cells starting at (STARTROW,STARTCOL) are being shifted by (ROWINCR,COLINCR)." (let ((row (car rowcol)) diff --git a/lisp/subr.el b/lisp/subr.el index 6d652f55b2..36937e8f37 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -3792,7 +3792,7 @@ The properties used on SYMBOL are `composefunc', `sendfunc', ;; MIN-CHANGE ;; MIN-TIME]) ;; -;; This weirdeness is for optimization reasons: we want +;; This weirdness is for optimization reasons: we want ;; `progress-reporter-update' to be as fast as possible, so ;; `(car reporter)' is better than `(aref reporter 0)'. ;; diff --git a/lisp/term.el b/lisp/term.el index dc5ae29ffd..aa76e41f59 100644 --- a/lisp/term.el +++ b/lisp/term.el @@ -43,7 +43,7 @@ ;; Important caveat, when deciding the cursor/'grey keys' keycodes I had to ;; make a choice: on my Linux box this choice allows me to run all the ;; ncurses applications without problems but make these keys -;; uncomprehensible to all the cursesX programs. Your mileage may vary so +;; incomprehensible to all the cursesX programs. Your mileage may vary so ;; you may consider changing the default 'emulation'. Just search for this ;; piece of code and modify it as you like: ;; diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 10c1c19e0c..b639af7cda 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -492,7 +492,7 @@ unless the current buffer is a scratch buffer." command-line-default-directory))) (file (find-file-noselect f)) (bufwin1 (get-buffer-window file 'visible)) - (bufwin2 (get-buffer-window "*scratch*" 'visibile))) + (bufwin2 (get-buffer-window "*scratch*" 'visible))) (cond (bufwin1 (select-frame (window-frame bufwin1)) diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index 232d42efc9..0efabc2135 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -3215,7 +3215,7 @@ X1, Y1. An endpoint is a cons pair, (ENDPOINT-X . ENDPOINT-Y)." ;; 2| | ;; 3+-----+ ;; -;; We will then pop (0,0) and remove the left-most vertival line while +;; We will then pop (0,0) and remove the left-most vertical line while ;; pushing the lower left corner (0,3) on the stack, and so on until ;; the entire rectangle is vaporized. ;; diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el index 52f6e5b488..b8614b16f8 100644 --- a/lisp/textmodes/fill.el +++ b/lisp/textmodes/fill.el @@ -469,7 +469,7 @@ Point is moved to just past the fill prefix on the first line." (goto-char from) (if enable-multibyte-characters - ;; Delete unnecessay newlines surrounded by words. The + ;; Delete unnecessary newlines surrounded by words. The ;; character category `|' means that we can break a line at the ;; character. And, char-table ;; `fill-nospace-between-words-table' tells how to concatenate diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el index 5d7d245142..30df073df1 100644 --- a/lisp/vc/ediff-util.el +++ b/lisp/vc/ediff-util.el @@ -2635,7 +2635,7 @@ delete this buffer in another session as well." )) ;; Kill the variant buffer, according to user directives (ask, kill -;; unconditionaly, keep) +;; unconditionally, keep) ;; BUFF is the buffer, BUFF-TYPE is either 'A, or 'B, 'C, 'Ancestor (defun ediff-dispose-of-variant-according-to-user (buff bufftype ask keep-variants) ;; if this is indirect buffer, kill it and substitute with direct buf diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index ed2bac1721..eea1a99209 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el @@ -181,7 +181,7 @@ ;; * working-revision (file) ;; ;; Return the working revision of FILE. This is the revision fetched -;; by the last checkout or upate, not necessarily the same thing as the +;; by the last checkout or update, not necessarily the same thing as the ;; head or tip revision. Should return "0" for a file added but not yet ;; committed. ;; diff --git a/oldXMenu/Activate.c b/oldXMenu/Activate.c index fef8a3b6b2..2f1c85aa1a 100644 --- a/oldXMenu/Activate.c +++ b/oldXMenu/Activate.c @@ -78,7 +78,7 @@ along with this program. If not, see . */ * * 3) The application has enabled asynchronous event * queuing mode. In this mode all foreign events - * will be queued up untill XMenuActivate + * will be queued up until XMenuActivate * terminates; at which time they will be * returned to the X event queue. As long as * AEQ mode is enabled any asynchronous event diff --git a/src/ChangeLog b/src/ChangeLog index d26b893ced..1dca686498 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -7089,7 +7089,7 @@ 2011-04-08 T.V. Raman (tiny change) - * xml.c (parse_region): Avoid creating spurious whiespace nodes. + * xml.c (parse_region): Avoid creating spurious whitespace nodes. 2011-04-08 Chong Yidong diff --git a/src/ChangeLog.10 b/src/ChangeLog.10 index 99ab02577d..ada5e0f78e 100644 --- a/src/ChangeLog.10 +++ b/src/ChangeLog.10 @@ -5084,7 +5084,7 @@ 2006-02-26 Chong Yidong - * xterm.h, xterm.c (x_uncatch_errors): Delete unneccessary argument. + * xterm.h, xterm.c (x_uncatch_errors): Delete unnecessary argument. * xterm.c (x_load_font, x_term_init, XTmouse_position) (handle_one_xevent, x_connection_closed, x_list_fonts): diff --git a/src/ChangeLog.11 b/src/ChangeLog.11 index 07d4f4ec11..72871475b6 100644 --- a/src/ChangeLog.11 +++ b/src/ChangeLog.11 @@ -11805,7 +11805,7 @@ * coding.c (encode_coding_utf_16): Fix checking of a Unicode character. - * cmds.c (Fself_insert_command): Avoid unnecessay + * cmds.c (Fself_insert_command): Avoid unnecessary unibyte->multibyte conversion. (Bug#4240) (Bug#4037) 2009-08-26 Dan Nicolaescu diff --git a/src/ChangeLog.3 b/src/ChangeLog.3 index cbf867829c..493e8e1ab0 100644 --- a/src/ChangeLog.3 +++ b/src/ChangeLog.3 @@ -14880,7 +14880,7 @@ 1989-08-09 Joseph Arceneaux (jla@spiff) - * ../oldXMenu/Makefile: Removed all the unneccessary X stuff. + * ../oldXMenu/Makefile: Removed all the unnecessary X stuff. 1989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu) diff --git a/src/ChangeLog.9 b/src/ChangeLog.9 index 6f007992be..6e3a8d8ab3 100644 --- a/src/ChangeLog.9 +++ b/src/ChangeLog.9 @@ -3479,7 +3479,7 @@ a workaround for SunOS 4's cc. (CCL_CALL_FOR_MAP_INSTRUCTION): Use "if (1)..." not "do {...". (CCL_SUCCESS, CCL_SUSPEND, CCL_INVALID_CMD): Likewise. - (ccl_driver) : Remove unnecessay "do" + (ccl_driver) : Remove unnecessary "do" statement. 2001-01-23 Gerd Moellmann diff --git a/src/fileio.c b/src/fileio.c index 7e75e6285f..5f7a8ad397 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -1553,7 +1553,7 @@ those `/' is discarded. */) if (p) /* Start over with the new string, so we check the file-name-handler again. Important with filenames like "/home/foo//:/hello///there" - which whould substitute to "/:/hello///there" rather than "/there". */ + which would substitute to "/:/hello///there" rather than "/there". */ return Fsubstitute_in_file_name (make_specified_string (p, -1, endp - p, multibyte)); diff --git a/src/fontset.c b/src/fontset.c index 9697f62ea7..7592521cc7 100644 --- a/src/fontset.c +++ b/src/fontset.c @@ -631,7 +631,7 @@ fontset_find_font (Lisp_Object fontset, int c, struct face *face, int id, int fa { /* Something strange happened, perhaps because of a Font-backend problem. Too avoid crashing, record - that this spec is unsable. It may be better to find + that this spec is unusable. It may be better to find another font of the same spec, but currently we don't have such an API. */ RFONT_DEF_SET_FACE (rfont_def, -1); diff --git a/src/fringe.c b/src/fringe.c index 25fecca233..61fd2f2b99 100644 --- a/src/fringe.c +++ b/src/fringe.c @@ -928,7 +928,7 @@ update_window_fringes (struct window *w, int keep_current_p) int top_ind_rn, bot_ind_rn; int top_ind_min_y, bot_ind_max_y; - /* top_ind_rn is set to a nonnegative value whenver + /* top_ind_rn is set to a nonnegative value whenever row->indicate_bob_p is set, so it's OK that top_row_ends_at_zv_p is not initialized here. Similarly for bot_ind_rn, row->indicate_eob_p and bot_row_ends_at_zv_p. */ diff --git a/src/nsgui.h b/src/nsgui.h index 5cc2eee323..99c64cd4cd 100644 --- a/src/nsgui.h +++ b/src/nsgui.h @@ -65,7 +65,7 @@ typedef struct _XCharStruct int descent; } XCharStruct; -/* Fake tructure from Xlib.h to represent two-byte characters. */ +/* Fake structure from Xlib.h to represent two-byte characters. */ #ifndef __OBJC__ typedef unsigned short unichar; #endif @@ -202,4 +202,3 @@ typedef struct _NSRect { NSPoint origin; NSSize size; } NSRect; #define PWinGravity (1L << 9) /* program specified window gravity */ #endif /* __NSGUI_H__ */ - diff --git a/src/nsterm.m b/src/nsterm.m index c5b28d57ac..b02561442e 100644 --- a/src/nsterm.m +++ b/src/nsterm.m @@ -3075,7 +3075,7 @@ ns_dumpglyphs_image (struct glyph_string *s, NSRect r) /* If there is no mask, the background won't be seen, so draw a rectangle on the image for the cursor. - Do this for all images, getting trancparency right is not reliable. */ + Do this for all images, getting transparency right is not reliable. */ if (s->hl == DRAW_CURSOR) { int thickness = abs (s->img->relief); diff --git a/src/w32fns.c b/src/w32fns.c index 434861320a..96b3f69b72 100644 --- a/src/w32fns.c +++ b/src/w32fns.c @@ -3711,7 +3711,7 @@ w32_wnd_proc (HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam) if (w32_system_caret_hwnd == NULL) { /* Use the default caret width, and avoid changing it - unneccesarily, as it confuses screen reader software. */ + unnecessarily, as it confuses screen reader software. */ w32_system_caret_hwnd = hwnd; CreateCaret (hwnd, NULL, 0, w32_system_caret_height); diff --git a/src/w32term.h b/src/w32term.h index 0239213383..6c73daba60 100644 --- a/src/w32term.h +++ b/src/w32term.h @@ -209,7 +209,7 @@ extern int x_display_pixel_width (struct w32_display_info *); the information that is specific to W32 windows. */ /* Put some things in x_output for compatibility. - NTEMACS_TODO: Move all common things here to eliminate unneccesary + NTEMACS_TODO: Move all common things here to eliminate unnecessary diffs between X and w32 code. */ struct x_output { diff --git a/test/cedet/cedet-utests.el b/test/cedet/cedet-utests.el index d161ae68fc..f7eef05dd9 100644 --- a/test/cedet/cedet-utests.el +++ b/test/cedet/cedet-utests.el @@ -96,7 +96,7 @@ "Non-nil when CEDET-utest is running all the tests.") (defun cedet-utest (&optional exit-on-error) - "Run the CEDET unittests. + "Run the CEDET unit tests. EXIT-ON-ERROR causes the test suite to exit on an error, instead of just logging the error." (interactive) diff --git a/test/cedet/semantic-utest.el b/test/cedet/semantic-utest.el index ff62040129..12fbc37a11 100644 --- a/test/cedet/semantic-utest.el +++ b/test/cedet/semantic-utest.el @@ -536,7 +536,7 @@ Pre-fill the buffer with CONTENTS." (defun semantic-utest-generic (testname filename contents name-contents names-removed killme insertme) "Generic unit test according to template. -Should work for languages withouth .h files, python javascript java. +Should work for languages without .h files, python javascript java. TESTNAME is the name of the test. FILENAME is the name of the file to create. CONTENTS is the contents of the file to test. diff --git a/test/indent/octave.m b/test/indent/octave.m index 5ce52ad7a1..4c2fa6c843 100644 --- a/test/indent/octave.m +++ b/test/indent/octave.m @@ -19,7 +19,7 @@ function res = tcomp (fn) pop = x(:,1:10)(:); ## Here and below, we test if the indentation aligns with a previous ## fixindented line. This is important so as to make it easier for the - ## user to verride some indentation somewhere, and also because it + ## user to override some indentation somewhere, and also because it ## reflects the fact that the indentation decision is taken with a minimum ## amount of work (i.e. in the present case, without having to walk back ## until the `function' line).