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
tildes
time's
to'
-towars
+towards
transportable
txt
types'
undefines
underfull
undo's
-undodata
unevaluated'
unexec
unexpand
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:
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.
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}).
(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.)
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
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
@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
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
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
** 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.
%
% 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
\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}}{
}{
\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}
\par\vspace*{\fill}\pagebreak}
}%ifbooklet% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %
+% \input{gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %
%% include file for the Gnus refcard and booklet
\def\progver{5.11} % program version
\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).\\
[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.\\
[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]\\
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}.\\
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.\\
\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}).
A ? & List all groups with dormant articles. [level]\\
\end{keys}
}
-
+
\newcommand{\CreateEditGroups}{%
{\esamepage
The select methods are indicated in parentheses.\\*
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}}
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]\\
{\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]\\
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.\\
%
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]\\
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.\\
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}
}
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.\\
}
}
- \newcommand{\BlankAndWhitespace}{%
+ \newcommand{\BlankAndWhitespace}{%
{\esamepage
\begin{keys}{W E w}
W E l & Strip blank {\bf lines} from the beginning of the article.\\
}
}
- \newcommand{\Picons}{%
+ \newcommand{\Picons}{%
{\esamepage
\begin{keys}{W D D}
W D s & (W g) Display {\bf smilies}.\\
}
}
- \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}).\\
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}
}
}
{\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.\\
}
\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.\\*
%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.\\
%
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}
\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:\\*
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]\\
}
}
-% end {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %
+% end {gnusref} % % % % % % % % % % % % % % % % % % % % % % % % % %
% o some things might not be updated: scoring and server modes, maybe more
\SortSummary
\subsection*{Score (Value) Commands}
\Scoring
-
+
\ifthenelse{\isundefined{\booklettrue}}{% ifcard %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection*{Output Articles}
\OutputArticles
\subsection*{MIME operations from the Summary-Buffer}
\MIMESummary
-
+
\ifthenelse{\isundefined{\booklettrue}}{}{% ifbooklet %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\subsection*{Extract Series (Uudecode etc)}
\ExtractSeries
%
\subsection*{Post, Followup, Reply, Forward, Cancel}
\PostReplyetc
-
+
\ifthenelse{\isundefined{\booklettrue}}{\newpage}{}% newpage ifcard
\subsection*{Message Composition}
;; Author: Ken'ichi HANDA <handa@etl.go.jp>
-;; Keywords: multilingual, input method, Chienese
+;; Keywords: multilingual, input method, Chinese
;; This file is part of GNU Emacs.
;; Author: Ken'ichi HANDA <handa@etl.go.jp>
-;; Keywords: multilingual, input method, Chienese
+;; Keywords: multilingual, input method, Chinese
;; This file is part of GNU Emacs.
* 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 <michael.albinus@gmx.de>
(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
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 <rms@mole.gnu.ai.mit.edu>
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.
1998-06-19 Karl Heuer <kwzh@gnu.org>
* 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 <rms@gnu.org>
* 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.
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
;;; 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)))
;; 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
;; 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:
(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))
;;; 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)).
(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)
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.
(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)
;;; 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)
(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)
(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)
(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))
(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
(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
rho 1)
(setq w (math-mul
(calcFunc-sign cjj)
- (calcFunc-sqrt
+ (calcFunc-sqrt
(math-add
(math-mul cjj cjj)
(math-mul cij cij))))
(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)
(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)))
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)
(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
(setq ydata (cdr ydata))
(setq sdata (cdr sdata)))
(reverse d)))
-
+
(defun math-nlfit-make-dtilda (d n)
(append d (make-list n 0)))
(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))
(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)))))
(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)))
(setq i (1+ i)))
(setq sgs (reverse sgs)))
(list sgs covar)))
-
+
;;; Now the Calc functions
(defun math-nlfit-s-logistic-params (xdata ydata)
(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)))
((eq sdv 'calcFunc-xfit)
(let (sln)
(setq sln
- (list 'vec
- soln
+ (list 'vec
+ soln
traillist
(nth 1 sigmacovar)
'(vec)
(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)))
(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
chisq
(let ((n (length qdata)))
(if (and sdata (> n 2))
- (calcFunc-utpc
+ (calcFunc-utpc
chisq
(- n 2))
'(var nan var-nan)))))
(calc-record traillist "parm")))))
(provide 'calc-nlfit)
-
(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
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.")
(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
;;
(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,
(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.
(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 ??))
)
;; 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)
(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)))
(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)))
;;; 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.
`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}
;; (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.
;; 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))
;; 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)
(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)
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")
;; 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^
"*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)
(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")
(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")
(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))
* 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 <larsi@menja.ifi.uio.no>
;; 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)
(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 "")))
))
;;; 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
;; ("\e$(7"R\e(B" . ((bc . tc) ?\e$(7"R\e(B))
(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)))
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)
(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))
%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
(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"
"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"
* 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 <rgm@gnu.org>
"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)
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))))
((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
((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
(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 "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n")
(insert "<map version=\"0.9.0\">\n")
(insert "<!-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net -->\n"))
(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."
(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)
(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
;; 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 <ttn@gnu.org>.
;; * Thanks
(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.
;; 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:
(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.
;; 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)
;; 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
(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)
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))
;; 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)'.
;;
;; 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:
;;
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))
;; 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.
;;
(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
))
;; 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
;; * 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.
;;
*
* 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
2011-04-08 T.V. Raman <tv.raman.tv@gmail.com> (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 <cyd@stupidchicken.com>
2006-02-26 Chong Yidong <cyd@stupidchicken.com>
- * 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):
* 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 <dann@ics.uci.edu>
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)
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) <CCL_ReadMultibyteChar2>: Remove unnecessay "do"
+ (ccl_driver) <CCL_ReadMultibyteChar2>: Remove unnecessary "do"
statement.
2001-01-23 Gerd Moellmann <gerd@gnu.org>
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));
{
/* 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);
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. */
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
#define PWinGravity (1L << 9) /* program specified window gravity */
#endif /* __NSGUI_H__ */
-
/* 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);
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);
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
{
"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)
(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.
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).