Spelling fixes.

This commit is contained in:
Paul Eggert 2011-11-14 12:23:26 -08:00
parent 322ad6ec0e
commit 8350f087ef
69 changed files with 125 additions and 137 deletions

View file

@ -8200,7 +8200,7 @@ The command \\[yank] can retrieve it from there. @dots{} "
;; it will be set in an error ;; it will be set in an error
(setq this-command 'kill-region) (setq this-command 'kill-region)
;; Finally, in the then-part, send a message if you may copy ;; Finally, in the then-part, send a message if you may copy
;; the text to the kill ring without signally an error, but ;; the text to the kill ring without signaling an error, but
;; don't if you may not. ;; don't if you may not.
@end group @end group
@group @group

View file

@ -209,7 +209,7 @@ whose extension is @file{.ads}, it will take the first available file
that ends with either @file{.adb}, @file{_b.ada} or that ends with either @file{.adb}, @file{_b.ada} or
@file{.body}. @file{.body}.
Simililarly, if Ada mode is looking for a spec, it will look for Similarly, if Ada mode is looking for a spec, it will look for
@file{.ads} or @file{_s.ada}. @file{.ads} or @file{_s.ada}.
If the filename is not derived from the Ada name following the GNAT If the filename is not derived from the Ada name following the GNAT

View file

@ -389,7 +389,7 @@ This checks that dividing one by zero signals an error of type
@code{arith-error}. The @code{:type} argument to @code{should-error} @code{arith-error}. The @code{:type} argument to @code{should-error}
is optional; if absent, any type of error is accepted. is optional; if absent, any type of error is accepted.
@code{should-error} returns an error description of the error that was @code{should-error} returns an error description of the error that was
signalled, to allow additional checks to be made. The error signaled, to allow additional checks to be made. The error
description has the format @code{(ERROR-SYMBOL . DATA)}. description has the format @code{(ERROR-SYMBOL . DATA)}.
There is no @code{should-not-error} macro since tests that signal an There is no @code{should-not-error} macro since tests that signal an

View file

@ -608,7 +608,7 @@ of parsing. The default is @code{t}.
@node Debugging Idle Time Issues @node Debugging Idle Time Issues
@subsection Debugging Idle Time Issues @subsection Debugging Idle Time Issues
If you see an error signalled during idle time, it could be an If you see an error signaled during idle time, it could be an
indication of a more serious issue elsewhere. It is not enough to indication of a more serious issue elsewhere. It is not enough to
enable @code{debug-on-error}, because the idle scheduler inhibits the enable @code{debug-on-error}, because the idle scheduler inhibits the
debugger. Instead, use the following commands to debug the error: debugger. Instead, use the following commands to debug the error:

View file

@ -197,7 +197,7 @@ Each
Manual's Manual's
Audience is Audience is
Completely Completely
Stupified Stupefied
Emacs Emacs
Means Means
@ -333,7 +333,7 @@ Easily
Mangles, Mangles,
Aborts, Aborts,
Crashes and Crashes and
Stupifies Stupefies
Extraneous Extraneous
Macros Macros

View file

@ -172,7 +172,7 @@ server should listen.
*** New emacsclient argument --frame-parameters can be used to set the *** New emacsclient argument --frame-parameters can be used to set the
frame parameters of a newly-created graphical frame. frame parameters of a newly-created graphical frame.
+++ +++
*** If emacsclient shuts down as a result of Emacs signalling an *** If emacsclient shuts down as a result of Emacs signaling an
error, its exit status is 1. error, its exit status is 1.
+++ +++
*** New emacsclient argument --parent-id ID. *** New emacsclient argument --parent-id ID.
@ -1243,7 +1243,7 @@ argument is supplied (see Trash changes, above).
** `facemenu-read-color' is now an alias for `read-color'. ** `facemenu-read-color' is now an alias for `read-color'.
The command `read-color' now requires a match for a color name or RGB The command `read-color' now requires a match for a color name or RGB
triplet, instead of signalling an error if the user provides a invalid triplet, instead of signaling an error if the user provides a invalid
input. input.
** Tool-bars can display separators. ** Tool-bars can display separators.

View file

@ -1182,7 +1182,7 @@ run processes remotely.
matches a regexp. matches a regexp.
*** The value of comment-style now defaults to `indent'. *** The value of comment-style now defaults to `indent'.
Thefore, comment-start markers are inserted at the current indentation Therefore, comment-start markers are inserted at the current indentation
of the region to comment, rather than the leftmost column. of the region to comment, rather than the leftmost column.
*** The new commands `pp-macroexpand-expression' and *** The new commands `pp-macroexpand-expression' and
@ -2529,4 +2529,3 @@ Local variables:
mode: outline mode: outline
paragraph-separate: "[ ]*$" paragraph-separate: "[ ]*$"
end: end:

View file

@ -1043,7 +1043,7 @@ was an error in the namespace URI.
**** Better recovery from ill-formed XML declarations. **** Better recovery from ill-formed XML declarations.
*** Useability improvements *** Usability improvements
**** Should print a "Parsing..." message during long movements. **** Should print a "Parsing..." message during long movements.
@ -1243,4 +1243,3 @@ GNU General Public License for more details.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

View file

@ -1193,7 +1193,7 @@ handle_sigtstp (int signalnum)
send_to_emacs (emacs_socket, "-suspend \n"); send_to_emacs (emacs_socket, "-suspend \n");
/* Unblock this signal and call the default handler by temporarily /* Unblock this signal and call the default handler by temporarily
changing the handler and resignalling. */ changing the handler and resignaling. */
sigprocmask (SIG_BLOCK, NULL, &set); sigprocmask (SIG_BLOCK, NULL, &set);
sigdelset (&set, signalnum); sigdelset (&set, signalnum);
signal (signalnum, SIG_DFL); signal (signalnum, SIG_DFL);

View file

@ -3876,7 +3876,7 @@
for list)" (bug#6475). for list)" (bug#6475).
* files.el (file-expand-wildcards): Ignore non-readable * files.el (file-expand-wildcards): Ignore non-readable
sub-directories while trying to find matches instead of signalling sub-directories while trying to find matches instead of signaling
an error (bug#6297). an error (bug#6297).
* man.el (Man-reference-regexp): Allow matching possible * man.el (Man-reference-regexp): Allow matching possible

View file

@ -1947,7 +1947,7 @@
elements of command-history are expressions. elements of command-history are expressions.
* simple.el (error): * simple.el (error):
Just keep signalling if user tries to continue. Just keep signaling if user tries to continue.
1985-09-07 Richard M. Stallman (rms@mit-prep) 1985-09-07 Richard M. Stallman (rms@mit-prep)

View file

@ -3516,7 +3516,7 @@
2003-04-23 Stefan Monnier <monnier@cs.yale.edu> 2003-04-23 Stefan Monnier <monnier@cs.yale.edu>
* newcomment.el (comment-normalize-vars): Prompt the user for * newcomment.el (comment-normalize-vars): Prompt the user for
the comment-start to use rather than signalling an error. Fix regexp. the comment-start to use rather than signaling an error. Fix regexp.
(uncomment-region): Don't leave half-removed comment markers. (uncomment-region): Don't leave half-removed comment markers.
2003-04-23 Richard M. Stallman <rms@gnu.org> 2003-04-23 Richard M. Stallman <rms@gnu.org>

View file

@ -7561,7 +7561,7 @@
* pcvs-util.el (cvs-get-buffer-create): Obey `noreuse' even if `name' * pcvs-util.el (cvs-get-buffer-create): Obey `noreuse' even if `name'
doesn't look like a file name. doesn't look like a file name.
* complete.el (PC-expand-many-files): Avoid signalling an error when * complete.el (PC-expand-many-files): Avoid signaling an error when
the current directory doesn't exist. Reported by Michaël Cadilhac. the current directory doesn't exist. Reported by Michaël Cadilhac.
2006-08-02 Andreas Schwab <schwab@suse.de> 2006-08-02 Andreas Schwab <schwab@suse.de>
@ -33362,4 +33362,3 @@ See ChangeLog.11 for earlier changes.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

View file

@ -1673,7 +1673,7 @@
x-resolve-font-name. x-resolve-font-name.
(x-complement-fontset-spec): Never prepend an ASCII font. (x-complement-fontset-spec): Never prepend an ASCII font.
(create-fontset-from-fontset-spec): If a fontset of the same name (create-fontset-from-fontset-spec): If a fontset of the same name
already exists, override it instead of signalling an error. Don't already exists, override it instead of signaling an error. Don't
turn `ascii' into `latin'. Don't update fontset-alias-alist here. turn `ascii' into `latin'. Don't update fontset-alias-alist here.
* international/mule-conf.el (unicode-bmp): Delete duplicated * international/mule-conf.el (unicode-bmp): Delete duplicated

View file

@ -7913,7 +7913,7 @@
ignored while matching, replace the entire filename with completion. ignored while matching, replace the entire filename with completion.
* textmodes/flyspell.el (flyspell-check-pre-word-p): Make sure * textmodes/flyspell.el (flyspell-check-pre-word-p): Make sure
flyspell-pre-point is valid to avoid signalling an error in flyspell-pre-point is valid to avoid signaling an error in
post-command-hook. post-command-hook.
2008-08-26 Johan Bockgård <bojohan@gnu.org> 2008-08-26 Johan Bockgård <bojohan@gnu.org>
@ -20567,4 +20567,3 @@ See ChangeLog.13 for earlier changes.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

View file

@ -11215,7 +11215,7 @@
* bindings.el (complete-symbol): Move into minibuffer.el. * bindings.el (complete-symbol): Move into minibuffer.el.
* minibuffer.el (complete-tag): Move from etags.el. If tags * minibuffer.el (complete-tag): Move from etags.el. If tags
completion cannot be performed, return nil instead of signalling completion cannot be performed, return nil instead of signaling
an error. an error.
(completion-at-point): Make it an alias for complete-symbol. (completion-at-point): Make it an alias for complete-symbol.
(complete-symbol): Move from bindings.el, and replace with the (complete-symbol): Move from bindings.el, and replace with the
@ -13311,7 +13311,7 @@
2010-01-29 Chong Yidong <cyd@stupidchicken.com> 2010-01-29 Chong Yidong <cyd@stupidchicken.com>
* dirtrack.el (dirtrack): Warn instead of signalling error if the * dirtrack.el (dirtrack): Warn instead of signaling error if the
regexp is incorrect (Bug#5476). regexp is incorrect (Bug#5476).
2010-01-29 Michael Albinus <michael.albinus@gmx.de> 2010-01-29 Michael Albinus <michael.albinus@gmx.de>

View file

@ -8317,7 +8317,7 @@
1998-11-11 Sam Steingold <sds@goems.com> 1998-11-11 Sam Steingold <sds@goems.com>
* inf-lisp.el (switch-to-lisp): If no inferior lisp present, call * inf-lisp.el (switch-to-lisp): If no inferior lisp present, call
`run-lisp' instead of signalling an error. `run-lisp' instead of signaling an error.
1998-11-11 Karl Heuer <kwzh@gnu.org> 1998-11-11 Karl Heuer <kwzh@gnu.org>
@ -10009,4 +10009,3 @@ See ChangeLog.7 for earlier changes.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

View file

@ -135,7 +135,7 @@
* net/ange-ftp.el (ange-ftp-raw-send-cmd, ange-ftp-wait-not-busy): * net/ange-ftp.el (ange-ftp-raw-send-cmd, ange-ftp-wait-not-busy):
Use with-current-buffer. Use with-current-buffer.
(ange-ftp-cd): New arg `noerror' to prevent signalling an error. (ange-ftp-cd): New arg `noerror' to prevent signaling an error.
(ange-ftp-send-cmd): If a `cd' is used (because of a space in the (ange-ftp-send-cmd): If a `cd' is used (because of a space in the
filename), catch any error that occurs in `ange-ftp-cd'. filename), catch any error that occurs in `ange-ftp-cd'.
If an error happened, don't bother sending `cmd' at all. If an error happened, don't bother sending `cmd' at all.
@ -12638,7 +12638,7 @@
(vc-rcs-diff): Only pass `2' to vc-do-command if necessary and (vc-rcs-diff): Only pass `2' to vc-do-command if necessary and
just do a recursive call if we need to retry. just do a recursive call if we need to retry.
(vc-rcs-checkout): Handle the case where rcs is missing by making (vc-rcs-checkout): Handle the case where rcs is missing by making
the buffer read-write if requested and re-signalling the error. the buffer read-write if requested and re-signaling the error.
* vc-cvs.el (vc-cvs-diff): Remove unused and unsupported argument CMP. * vc-cvs.el (vc-cvs-diff): Remove unused and unsupported argument CMP.

View file

@ -683,7 +683,7 @@ C-w Describe how there is no warranty for Calc."
(calc-do-prefix-help (calc-do-prefix-help
'("Pack, Unpack, Identity, Diagonal, indeX, Build" '("Pack, Unpack, Identity, Diagonal, indeX, Build"
"Row, Column, Subvector; Length; Find; Mask, Expand" "Row, Column, Subvector; Length; Find; Mask, Expand"
"Tranpose, Arrange, reVerse; Head, Kons; rNorm" "Transpose, Arrange, reVerse; Head, Kons; rNorm"
"SHIFT + Det, & (inverse), LUD, Trace, conJtrn, Cross" "SHIFT + Det, & (inverse), LUD, Trace, conJtrn, Cross"
"SHIFT + Sort, Grade, Histogram; cNorm" "SHIFT + Sort, Grade, Histogram; cNorm"
"SHIFT + Apply, Map, Reduce, accUm, Inner-, Outer-prod" "SHIFT + Apply, Map, Reduce, accUm, Inner-, Outer-prod"

View file

@ -234,7 +234,7 @@ code for the event, and your personal domain name."
"Enable icalendar debug messages.") "Enable icalendar debug messages.")
;; ====================================================================== ;; ======================================================================
;; NO USER SERVICABLE PARTS BELOW THIS LINE ;; NO USER SERVICEABLE PARTS BELOW THIS LINE
;; ====================================================================== ;; ======================================================================
(defconst icalendar--weekday-array ["SU" "MO" "TU" "WE" "TH" "FR" "SA"]) (defconst icalendar--weekday-array ["SU" "MO" "TU" "WE" "TH" "FR" "SA"])

View file

@ -149,7 +149,7 @@ don't do it. A value of nil means to just do it.")
)))) ))))
(defmethod ede-proj-configure-recreate ((this ede-proj-project)) (defmethod ede-proj-configure-recreate ((this ede-proj-project))
"Delete project THISes configure script and start over." "Delete project THIS's configure script and start over."
(if (not (ede-proj-configure-file this)) (if (not (ede-proj-configure-file this))
(error "Could not determine configure.ac for %S" (object-name this))) (error "Could not determine configure.ac for %S" (object-name this)))
(let ((b (get-file-buffer (ede-proj-configure-file this)))) (let ((b (get-file-buffer (ede-proj-configure-file this))))

View file

@ -656,7 +656,7 @@ SYMBOL is a function that can be overridden."
table) table)
;; Print symbols by type ;; Print symbols by type
(when us (when us
(princ "\n !! Unpecified symbols\n") (princ "\n !! Unspecified symbols\n")
(mapc 'mode-local-print-binding us)) (mapc 'mode-local-print-binding us))
(when mc (when mc
(princ "\n ** Mode local constants\n") (princ "\n ** Mode local constants\n")

View file

@ -240,7 +240,7 @@ Return the defined symbol as a special spp lex token."
(goto-char (match-end 0)) (goto-char (match-end 0))
(looking-at "("))) (looking-at "(")))
(semantic-lex-spp-replacements-enabled nil) (semantic-lex-spp-replacements-enabled nil)
;; Temporarilly override the lexer to include ;; Temporarily override the lexer to include
;; special items needed inside a macro ;; special items needed inside a macro
(semantic-lex-analyzer #'semantic-cpp-lexer) (semantic-lex-analyzer #'semantic-cpp-lexer)
(raw-stream (raw-stream

View file

@ -534,9 +534,9 @@ Optional argument NOSNARF is ignored."
(t (t
(setq d (documentation-property (setq d (documentation-property
sym 'variable-documentation))))) sym 'variable-documentation)))))
;; Label it as system doc.. perhaps just for debugging ;; Label it as system doc. perhaps just for debugging
;; purposes. ;; purposes.
(if d (setq d (concat "Sytem Doc: \n" d))) (if d (setq d (concat "System Doc: \n" d)))
)) ))
) )

View file

@ -436,7 +436,7 @@ The root dictionary is usually for a current or active insertion."
;;; COMPOUND VALUE METHODS ;;; COMPOUND VALUE METHODS
;; ;;
;; Compound values must provide at least the toStriong method ;; Compound values must provide at least the toString method
;; for use in converting the compound value into sometehing insertable. ;; for use in converting the compound value into sometehing insertable.
(defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value) (defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value)

View file

@ -54,7 +54,7 @@ not been set, use values from the parent."
(defmethod slot-unbound ((object eieio-instance-inheritor) class slot-name fn) (defmethod slot-unbound ((object eieio-instance-inheritor) class slot-name fn)
"If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal. "If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal.
SLOT-NAME is the offending slot. FN is the function signalling the error." SLOT-NAME is the offending slot. FN is the function signaling the error."
(if (slot-boundp object 'parent-instance) (if (slot-boundp object 'parent-instance)
;; It may not look like it, but this line recurses back into this ;; It may not look like it, but this line recurses back into this
;; method if the parent instance's slot is unbound. ;; method if the parent instance's slot is unbound.

View file

@ -395,7 +395,7 @@ It creates an autoload function for CNAME's constructor."
(aset newc class-parent (cons SC (aref newc class-parent))) (aset newc class-parent (cons SC (aref newc class-parent)))
) )
;; turn this into a useable self-pointing symbol ;; turn this into a usable self-pointing symbol
(set cname cname) (set cname cname)
;; Store the new class vector definition into the symbol. We need to ;; Store the new class vector definition into the symbol. We need to
@ -509,7 +509,7 @@ See `defclass' for more information."
;; save parent in child ;; save parent in child
(aset newc class-parent (list eieio-default-superclass)))) (aset newc class-parent (list eieio-default-superclass))))
;; turn this into a useable self-pointing symbol ;; turn this into a usable self-pointing symbol
(set cname cname) (set cname cname)
;; These two tests must be created right away so we can have self- ;; These two tests must be created right away so we can have self-

View file

@ -248,7 +248,7 @@ Emacs bug 6581 at URL `http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6581'."
;; We disallow nil since `ert-test-at-point' and related functions ;; We disallow nil since `ert-test-at-point' and related functions
;; want to return a test name, but also need an out-of-band value ;; want to return a test name, but also need an out-of-band value
;; on failure. Nil is the most natural out-of-band value; using 0 ;; on failure. Nil is the most natural out-of-band value; using 0
;; or "" or signalling an error would be too awkward. ;; or "" or signaling an error would be too awkward.
;; ;;
;; Note that nil is still a valid value for the `name' slot in ;; Note that nil is still a valid value for the `name' slot in
;; ert-test objects. It designates an anonymous test. ;; ert-test objects. It designates an anonymous test.
@ -448,7 +448,7 @@ arguments: INNER-FORM and FORM-DESCRIPTION-FORM, where INNER-FORM
is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is
an expression that returns a description of FORM. INNER-EXPANDER an expression that returns a description of FORM. INNER-EXPANDER
should return code that calls INNER-FORM and performs the checks should return code that calls INNER-FORM and performs the checks
and error signalling specific to the particular variant of and error signaling specific to the particular variant of
`should'. The code that INNER-EXPANDER returns must not call `should'. The code that INNER-EXPANDER returns must not call
FORM-DESCRIPTION-FORM before it has called INNER-FORM." FORM-DESCRIPTION-FORM before it has called INNER-FORM."
(lexical-let ((inner-expander inner-expander)) (lexical-let ((inner-expander inner-expander))
@ -489,17 +489,17 @@ Returns nil."
Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES, Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES,
and aborts the current test as failed if it doesn't." and aborts the current test as failed if it doesn't."
(let ((signalled-conditions (get (car condition) 'error-conditions)) (let ((signaled-conditions (get (car condition) 'error-conditions))
(handled-conditions (etypecase type (handled-conditions (etypecase type
(list type) (list type)
(symbol (list type))))) (symbol (list type)))))
(assert signalled-conditions) (assert signaled-conditions)
(unless (ert--intersection signalled-conditions handled-conditions) (unless (ert--intersection signaled-conditions handled-conditions)
(ert-fail (append (ert-fail (append
(funcall form-description-fn) (funcall form-description-fn)
(list (list
:condition condition :condition condition
:fail-reason (concat "the error signalled did not" :fail-reason (concat "the error signaled did not"
" have the expected type"))))) " have the expected type")))))
(when exclude-subtypes (when exclude-subtypes
(unless (member (car condition) handled-conditions) (unless (member (car condition) handled-conditions)
@ -507,7 +507,7 @@ and aborts the current test as failed if it doesn't."
(funcall form-description-fn) (funcall form-description-fn)
(list (list
:condition condition :condition condition
:fail-reason (concat "the error signalled was a subtype" :fail-reason (concat "the error signaled was a subtype"
" of the expected type")))))))) " of the expected type"))))))))
;; FIXME: The expansion will evaluate the keyword args (if any) in ;; FIXME: The expansion will evaluate the keyword args (if any) in
@ -515,7 +515,7 @@ and aborts the current test as failed if it doesn't."
(defmacro* should-error (form &rest keys &key type exclude-subtypes) (defmacro* should-error (form &rest keys &key type exclude-subtypes)
"Evaluate FORM and check that it signals an error. "Evaluate FORM and check that it signals an error.
The error signalled needs to match TYPE. TYPE should be a list The error signaled needs to match TYPE. TYPE should be a list
of condition names. (It can also be a non-nil symbol, which is of condition names. (It can also be a non-nil symbol, which is
equivalent to a singleton list containing that symbol.) If equivalent to a singleton list containing that symbol.) If
EXCLUDE-SUBTYPES is nil, the error matches TYPE if one of its EXCLUDE-SUBTYPES is nil, the error matches TYPE if one of its
@ -523,7 +523,7 @@ condition names is an element of TYPE. If EXCLUDE-SUBTYPES is
non-nil, the error matches TYPE if it is an element of TYPE. non-nil, the error matches TYPE if it is an element of TYPE.
If the error matches, returns (ERROR-SYMBOL . DATA) from the If the error matches, returns (ERROR-SYMBOL . DATA) from the
error. If not, or if no error was signalled, abort the test as error. If not, or if no error was signaled, abort the test as
failed." failed."
(unless type (setq type ''error)) (unless type (setq type ''error))
(ert--expand-should (ert--expand-should
@ -2120,7 +2120,7 @@ To be used in the ERT results buffer."
EWOC-FN specifies the direction and should be either `ewoc-prev' EWOC-FN specifies the direction and should be either `ewoc-prev'
or `ewoc-next'. If there are no more nodes in that direction, an or `ewoc-next'. If there are no more nodes in that direction, an
error is signalled with the message ERROR-MESSAGE." error is signaled with the message ERROR-MESSAGE."
(loop (loop
(setq node (funcall ewoc-fn ert--results-ewoc node)) (setq node (funcall ewoc-fn ert--results-ewoc node))
(when (null node) (when (null node)

View file

@ -1112,7 +1112,7 @@ Otherwise return the normal value."
lis))) lis)))
;; Smoothes out the difference between Emacs' unread-command-events ;; Smooths out the difference between Emacs' unread-command-events
;; and XEmacs unread-command-event. Arg is a character, an event, a list of ;; and XEmacs unread-command-event. Arg is a character, an event, a list of
;; events or a sequence of keys. ;; events or a sequence of keys.
;; ;;

View file

@ -666,7 +666,7 @@
* erc.el: * erc.el:
* Changed erc-insert-hook to get two arguments, START and END of the region * Changed erc-insert-hook to get two arguments, START and END of the region
which got inserted. CAREFUL! This could break stuff, but it makes the hook which got inserted. CAREFUL! This could break stuff, but it makes the hook
much more useable. much more usable.
* erc.el: * erc.el:
* Made erc-smiley a new option, currently set to t to showoff this feature. :) * Made erc-smiley a new option, currently set to t to showoff this feature. :)
@ -1055,4 +1055,3 @@
;; Local Variables: ;; Local Variables:
;; coding: utf-8 ;; coding: utf-8
;; End: ;; End:

View file

@ -1985,7 +1985,7 @@
(erc-server-PRIVMSG-or-NOTICE): Capitalized first word in message to user. (erc-server-PRIVMSG-or-NOTICE): Capitalized first word in message to user.
* erc.el(erc-scroll-to-bottom): * erc.el(erc-scroll-to-bottom):
Temporarilly bind resize-mini-windows to nil so that Temporarily bind resize-mini-windows to nil so that
users who have it set to a non-nil value will not suffer from premature users who have it set to a non-nil value will not suffer from premature
minibuffer shrinkage due to the below recenter call. I have no idea why minibuffer shrinkage due to the below recenter call. I have no idea why
this works, but it solves the problem, and has no negative side effects. this works, but it solves the problem, and has no negative side effects.
@ -2160,4 +2160,3 @@ See ChangeLog.02 for earlier changes.
;; Local Variables: ;; Local Variables:
;; coding: utf-8 ;; coding: utf-8
;; End: ;; End:

View file

@ -609,7 +609,7 @@ See also `eshell-read-history'."
history)))) history))))
(setq index (1- index))) (setq index (1- index)))
(let ((fhist (list t))) (let ((fhist (list t)))
;; uniqify the list, but preserve the order ;; uniquify the list, but preserve the order
(while history (while history
(unless (member (car history) fhist) (unless (member (car history) fhist)
(nconc fhist (list (car history)))) (nconc fhist (list (car history))))

View file

@ -2603,7 +2603,7 @@ we don't actually set it to the same mode the buffer already has."
(if (looking-at auto-mode-interpreter-regexp) (if (looking-at auto-mode-interpreter-regexp)
(match-string 2) (match-string 2)
"")) ""))
;; Map interpreter name to a mode, signalling we're done at the ;; Map interpreter name to a mode, signaling we're done at the
;; same time. ;; same time.
done (assoc (file-name-nondirectory mode) done (assoc (file-name-nondirectory mode)
interpreter-mode-alist)) interpreter-mode-alist))
@ -6500,7 +6500,7 @@ Otherwise, trash FILENAME using the freedesktop.org conventions,
(setq tries 0 success t)) (setq tries 0 success t))
(file-already-exists nil)) (file-already-exists nil))
(setq tries (1- tries)) (setq tries (1- tries))
;; Uniqify new-fn. (Some file managers do not ;; Uniquify new-fn. (Some file managers do not
;; like Emacs-style backup file names---e.g. bug ;; like Emacs-style backup file names---e.g. bug
;; 170956 in Konqueror bug tracker.) ;; 170956 in Konqueror bug tracker.)
(setq new-fn (make-temp-name (concat base-fn "_"))))) (setq new-fn (make-temp-name (concat base-fn "_")))))

View file

@ -41,7 +41,7 @@
:group 'gnus) :group 'gnus)
(defgroup gnus-extract-view nil (defgroup gnus-extract-view nil
"Viewwing extracted files." "Viewing extracted files."
:group 'gnus-extract) :group 'gnus-extract)
(defgroup gnus-extract-archive nil (defgroup gnus-extract-archive nil

View file

@ -54,7 +54,7 @@
:type 'boolean) :type 'boolean)
(defcustom gnus-use-frames-on-any-display nil (defcustom gnus-use-frames-on-any-display nil
"*If non-nil, frames on all displays will be considered useable by Gnus. "*If non-nil, frames on all displays will be considered usable by Gnus.
When nil, only frames on the same display as the selected frame will be When nil, only frames on the same display as the selected frame will be
used to display Gnus windows." used to display Gnus windows."
:version "22.1" :version "22.1"

View file

@ -3328,7 +3328,7 @@ Return a list of matches where each element is in the format
(Info-directory) (Info-directory)
;; current-node and current-file are nil when they invoke info-apropos ;; current-node and current-file are nil when they invoke info-apropos
;; as the first Info command, i.e. info-apropos loads info.el. In that ;; as the first Info command, i.e. info-apropos loads info.el. In that
;; case, we use (DIR)Top instead, to avoid signalling an error after ;; case, we use (DIR)Top instead, to avoid signaling an error after
;; the search is complete. ;; the search is complete.
(when (null current-node) (when (null current-node)
(setq current-file Info-current-file) (setq current-file Info-current-file)

View file

@ -28,7 +28,7 @@
;;; Commentary: ;;; Commentary:
;; For Vietnames, the character sets VISCII, VSCII and TCVN-5712 are ;; For Vietnamese, the character sets VISCII, VSCII and TCVN-5712 are
;; supported. ;; supported.
;;; Code: ;;; Code:

View file

@ -2071,7 +2071,7 @@ Call with point at the end of the message."
(defun rmail-add-mbox-headers () (defun rmail-add-mbox-headers ()
"Validate the RFC2822 format for the new messages. "Validate the RFC2822 format for the new messages.
Point should be at the first new message. Point should be at the first new message.
An error is signalled if the new messages are not RFC2822 An error is signaled if the new messages are not RFC2822
compliant. compliant.
Unless an Rmail attribute header already exists, add it to the Unless an Rmail attribute header already exists, add it to the
new messages. Return the number of new messages." new messages. Return the number of new messages."

View file

@ -882,7 +882,7 @@ The other arguments are the same as `rmail-mime-multipart-handler'."
;; We're handling what's left of a truncated message. ;; We're handling what's left of a truncated message.
(setq next (point-max-marker))) (setq next (point-max-marker)))
(t (t
;; The original code signalled an error as below, but ;; The original code signaled an error as below, but
;; this line may be a boundary of nested multipart. So, ;; this line may be a boundary of nested multipart. So,
;; we just set `next' to nil to skip this line ;; we just set `next' to nil to skip this line
;; (rmail-mm-get-boundary-error-message ;; (rmail-mm-get-boundary-error-message

View file

@ -2358,7 +2358,7 @@ This is used so that they can be compared with `eq', which is needed for
(let* ((currenttime (float-time)) (let* ((currenttime (float-time))
(last-time (- currenttime (car mpc-last-seek-time)))) (last-time (- currenttime (car mpc-last-seek-time))))
(if (< last-time (* 0.9 repeat-delay)) (if (< last-time (* 0.9 repeat-delay))
nil ;; Trottle nil ;; Throttle
(let* ((status (if (< last-time 1.0) (let* ((status (if (< last-time 1.0)
mpc-status (mpc-cmd-status))) mpc-status (mpc-cmd-status)))
(songid (cdr (assq 'songid status))) (songid (cdr (assq 'songid status)))

View file

@ -676,7 +676,7 @@ controls whether case is significant."
;; v2 SMI TEXTUAL-CONVENTION macro template ;; v2 SMI TEXTUAL-CONVENTION macro template
;; ;;
(tempo-define-template "snmpv2-textual-convention" (tempo-define-template "snmpv2-textual-convention"
'(> (P "Texual Convention Type: ") " ::= TEXTUAL-CONVENTION" n> '(> (P "Textual Convention Type: ") " ::= TEXTUAL-CONVENTION" n>
"STATUS " "STATUS "
(if tempo-interactive (if tempo-interactive
(snmp-completing-read "Status: " snmp-mode-status-list nil t) (snmp-completing-read "Status: " snmp-mode-status-list nil t)

View file

@ -373,7 +373,7 @@ binding) but the same name."
(defstruct (soap-sequence-type (:include soap-element)) (defstruct (soap-sequence-type (:include soap-element))
parent ; OPTIONAL WSDL-TYPE name parent ; OPTIONAL WSDL-TYPE name
elements ; LIST of SOAP-SEQUCENCE-ELEMENT elements ; LIST of SOAP-SEQUENCE-ELEMENT
) )
(defstruct (soap-array-type (:include soap-element)) (defstruct (soap-array-type (:include soap-element))

View file

@ -409,7 +409,7 @@ If there is no registered search engine at all, the function returns `nil'."
(setq vendor-id (xesam-get-property engine "vendor.id") (setq vendor-id (xesam-get-property engine "vendor.id")
hit-fields (xesam-get-property engine "hit.fields")) hit-fields (xesam-get-property engine "hit.fields"))
;; Ususally, `hit.fields' shall describe supported fields. ;; Usually, `hit.fields' shall describe supported fields.
;; That is not the case now, so we set it ourselves. ;; That is not the case now, so we set it ourselves.
;; Hopefully, this will change later. ;; Hopefully, this will change later.
(setq hit-fields (setq hit-fields

View file

@ -486,7 +486,7 @@ TYPE. The resulting list has the format
(nth 9 (zeroconf-resolve-service service))) (nth 9 (zeroconf-resolve-service service)))
;;; Services signalling. ;;; Services signaling.
;; Register for the service type browser. Service registrations will ;; Register for the service type browser. Service registrations will
;; happen in `zeroconf-service-type-browser-handler', when there is an ;; happen in `zeroconf-service-type-browser-handler', when there is an

View file

@ -5020,7 +5020,7 @@
with code implementing the writing of graohical output to file. with code implementing the writing of graohical output to file.
(org-babel-execute:R): Use `org-babel-R-graphical-output-file' to (org-babel-execute:R): Use `org-babel-R-graphical-output-file' to
determine whether R is taking responsibility for writing output to determine whether R is taking responsibility for writing output to
file; if so, this is signalled to ob.el by returning a nil result. file; if so, this is signaled to ob.el by returning a nil result.
2011-07-28 Dan Davison <dandavison7@gmail.com> 2011-07-28 Dan Davison <dandavison7@gmail.com>
@ -18037,4 +18037,3 @@
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

View file

@ -2642,7 +2642,7 @@ If a region is active, all items inside will be moved."
(defvar org-tab-ind-state) (defvar org-tab-ind-state)
(defun org-cycle-item-indentation () (defun org-cycle-item-indentation ()
"Cycle levels of indentation of an empty item. "Cycle levels of indentation of an empty item.
The first run indents the item, if applicable. Subsequents runs The first run indents the item, if applicable. Subsequent runs
outdent it at meaningful levels in the list. When done, item is outdent it at meaningful levels in the list. When done, item is
put back at its original position with its original bullet. put back at its original position with its original bullet.

View file

@ -2681,7 +2681,7 @@ When this variable is set to t, the date/time prompt will not let
you specify dates outside the 1970-2037 range, so it is certain that you specify dates outside the 1970-2037 range, so it is certain that
these dates will work in whatever version of Emacs you are these dates will work in whatever version of Emacs you are
running, and also that you can move a file from one Emacs implementation running, and also that you can move a file from one Emacs implementation
to another. WHenever Org is forcing the year for you, it will display to another. Whenever Org is forcing the year for you, it will display
a message and beep. a message and beep.
When this variable is nil, Org will check if the date is When this variable is nil, Org will check if the date is

View file

@ -2969,7 +2969,7 @@ A prefix argument acts as a repeat count. With a negative argument,
move backward across a preprocessor conditional. move backward across a preprocessor conditional.
If there aren't enough conditionals after \(or before) point, an If there aren't enough conditionals after \(or before) point, an
error is signalled. error is signaled.
\"#elif\" is treated like \"#else\" followed by \"#if\", except that \"#elif\" is treated like \"#else\" followed by \"#if\", except that
the nesting level isn't changed when tracking subconditionals. the nesting level isn't changed when tracking subconditionals.

View file

@ -555,7 +555,7 @@ certain situations."
`(c-forward-sexp ,(if (numberp count) (- count) `(- ,count)))) `(c-forward-sexp ,(if (numberp count) (- count) `(- ,count))))
(defmacro c-safe-scan-lists (from count depth &optional limit) (defmacro c-safe-scan-lists (from count depth &optional limit)
"Like `scan-lists' but returns nil instead of signalling errors "Like `scan-lists' but returns nil instead of signaling errors
for unbalanced parens. for unbalanced parens.
A limit for the search may be given. FROM is assumed to be on the A limit for the search may be given. FROM is assumed to be on the
@ -760,7 +760,7 @@ be after it."
;; non-nil if point (or the optional parameter POS) is at a VS, nil otherwise. ;; non-nil if point (or the optional parameter POS) is at a VS, nil otherwise.
;; ;;
;; The language specific function might well do extensive analysis of the ;; The language specific function might well do extensive analysis of the
;; source text, and may use a cacheing scheme to speed up repeated calls. ;; source text, and may use a caching scheme to speed up repeated calls.
;; ;;
;; The "virtual semicolon" lies just after the last non-ws token on the line. ;; The "virtual semicolon" lies just after the last non-ws token on the line.
;; Like POINT, it is considered to lie between two characters. For example, ;; Like POINT, it is considered to lie between two characters. For example,
@ -784,7 +784,7 @@ be after it."
;; `c-beginning-of-statement-1'. `c-vsemi-status-unknown-p' may not itself ;; `c-beginning-of-statement-1'. `c-vsemi-status-unknown-p' may not itself
;; call `c-beginning-of-statement-1'. ;; call `c-beginning-of-statement-1'.
;; ;;
;; The macro `c-vsemi-status-unknown-p' will typically check the cacheing ;; The macro `c-vsemi-status-unknown-p' will typically check the caching
;; scheme used by the `c-at-vsemi-p-fn', hence the name - the status is ;; scheme used by the `c-at-vsemi-p-fn', hence the name - the status is
;; "unknown" if there is no cache entry current for the line. ;; "unknown" if there is no cache entry current for the line.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

View file

@ -350,7 +350,7 @@ automatically.
This setting is used in non-stop mode only. In all-stop mode, This setting is used in non-stop mode only. In all-stop mode,
Emacs always switches to the thread which caused the stop." Emacs always switches to the thread which caused the stop."
;; exited, exited-normally and exited-signalled are not ;; exited, exited-normally and exited-signaled are not
;; thread-specific stop reasons and therefore are not included in ;; thread-specific stop reasons and therefore are not included in
;; this list ;; this list
:type '(choice :type '(choice

View file

@ -7206,7 +7206,7 @@ If these don't exist, a letter in the string is automatically selected."
;;---------------------------------------------------------------------- ;;----------------------------------------------------------------------
;;; ------------------------------------------------------------------------ ;;; ------------------------------------------------------------------------
;;; Stucture parsing code, and code to manage class info ;;; Structure parsing code, and code to manage class info
;; ;;
;; - Go again over the documentation how to write a completion ;; - Go again over the documentation how to write a completion

View file

@ -2709,7 +2709,7 @@ either is ok to parse as a non-comment, or `verilog-insert' was used."
(remove-text-properties (point-min) (point-max) '(v-cmt nil)) (remove-text-properties (point-min) (point-max) '(v-cmt nil))
(verilog-scan-region (point-min) (point-max)) (verilog-scan-region (point-min) (point-max))
(setq verilog-scan-cache-tick (buffer-chars-modified-tick)) (setq verilog-scan-cache-tick (buffer-chars-modified-tick))
(when verilog-debug (message "Scaning... done")))))) (when verilog-debug (message "Scanning... done"))))))
(defun verilog-inside-comment-p () (defun verilog-inside-comment-p ()
"Check if point inside a comment. "Check if point inside a comment.
@ -11958,7 +11958,7 @@ Files are checked based on `verilog-library-flags'."
(mouse-set-point event) (mouse-set-point event)
(verilog-load-file-at-point t))) (verilog-load-file-at-point t)))
;; ffap isn't useable for Verilog mode. It uses library paths. ;; ffap isn't usable for Verilog mode. It uses library paths.
;; so define this function to do more or less the same as ffap ;; so define this function to do more or less the same as ffap
;; but first resolve filename... ;; but first resolve filename...
(defun verilog-load-file-at-point (&optional warn) (defun verilog-load-file-at-point (&optional warn)

View file

@ -925,7 +925,7 @@ for highlighting the match that is found."
(defun view-search (times regexp) (defun view-search (times regexp)
;; This function does the job for all the View-search- commands. ;; This function does the job for all the View-search- commands.
;; Search for the TIMESt match for REGEXP. If TIMES is negative ;; Search for the TIMESth match for REGEXP. If TIMES is negative
;; search backwards. If REGEXP is nil use `view-last-regexp'. ;; search backwards. If REGEXP is nil use `view-last-regexp'.
;; Characters "!" and "@" have a special meaning at the beginning of ;; Characters "!" and "@" have a special meaning at the beginning of
;; REGEXP and are removed from REGEXP before the search "!" means ;; REGEXP and are removed from REGEXP before the search "!" means

View file

@ -5409,7 +5409,7 @@ by `recenter-positions'."
;;; of buffer). ;;; of buffer).
(defcustom scroll-error-top-bottom nil (defcustom scroll-error-top-bottom nil
"Move point to top/bottom of buffer before signalling a scrolling error. "Move point to top/bottom of buffer before signaling a scrolling error.
A value of nil means just signal an error if no more scrolling possible. A value of nil means just signal an error if no more scrolling possible.
A value of t means point moves to the beginning or the end of the buffer A value of t means point moves to the beginning or the end of the buffer
\(depending on scrolling direction) when no more scrolling possible. \(depending on scrolling direction) when no more scrolling possible.

View file

@ -1439,7 +1439,7 @@ The cdr of each alist element is the path-index / filename."
(push (woman-topic-all-completions-1 dir path-index) (push (woman-topic-all-completions-1 dir path-index)
files)) files))
(setq path-index (1+ path-index))) (setq path-index (1+ path-index)))
;; Uniquefy topics: ;; Uniquify topics:
;; Concatenate all lists with a single nconc call to ;; Concatenate all lists with a single nconc call to
;; avoid retraversing the first lists repeatedly -- dak ;; avoid retraversing the first lists repeatedly -- dak
(woman-topic-all-completions-merge (woman-topic-all-completions-merge

View file

@ -2375,7 +2375,7 @@
Often, just return what it returned. Often, just return what it returned.
`error' still never returns to its caller. `error' still never returns to its caller.
* Signalling Qargs_out_of_range: * Signaling Qargs_out_of_range:
Use new functions args_out_of_range and args_out_of_range_3 Use new functions args_out_of_range and args_out_of_range_3
(in data.c) to do this. (in data.c) to do this.
@ -3537,4 +3537,3 @@
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

View file

@ -5133,7 +5133,7 @@
it can be called in a signal handler. it can be called in a signal handler.
(x_catch_errors_unwind): Function deleted. (x_catch_errors_unwind): Function deleted.
(x_uncatch_errors): Deallocate last x_error_message_stack struct. (x_uncatch_errors): Deallocate last x_error_message_stack struct.
(x_check_errors): Call x_uncatch_errors before signalling error. (x_check_errors): Call x_uncatch_errors before signaling error.
(x_load_font, x_term_init, XTmouse_position, handle_one_xevent) (x_load_font, x_term_init, XTmouse_position, handle_one_xevent)
(x_connection_closed, x_list_fonts): Use new versions of (x_connection_closed, x_list_fonts): Use new versions of
@ -27928,4 +27928,3 @@ See ChangeLog.9 for earlier changes.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

View file

@ -11972,7 +11972,7 @@
* image.c (xbm_read_bitmap_data): New arg inhibit_image_error. * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
(xbm_load_image): Caller changed. (xbm_load_image): Caller changed.
(xbm_file_p): Avoid signalling an image_error (Bug#4107). (xbm_file_p): Avoid signaling an image_error (Bug#4107).
2009-08-13 Nick Roberts <nickrob@snap.net.nz> 2009-08-13 Nick Roberts <nickrob@snap.net.nz>
@ -16658,7 +16658,7 @@
2008-08-20 Chong Yidong <cyd@stupidchicken.com> 2008-08-20 Chong Yidong <cyd@stupidchicken.com>
* xselect.c (x_get_foreign_selection): Return nil if desired * xselect.c (x_get_foreign_selection): Return nil if desired
selection could not be obtained, instead of signalling an error. selection could not be obtained, instead of signaling an error.
2008-08-20 David Reitter <david.reitter@gmail.com> 2008-08-20 David Reitter <david.reitter@gmail.com>

View file

@ -1222,7 +1222,7 @@
1987-07-10 Chris Hanson (cph@prep) 1987-07-10 Chris Hanson (cph@prep)
* xterm.h: Define macros to abstract control of input signals. * xterm.h: Define macros to abstract control of input signals.
Alternate set of macros for hp-ux does no signalling. Alternate set of macros for hp-ux does no signaling.
* xterm.c: * xterm.c:
* xfns.c: * xfns.c:
@ -4787,4 +4787,3 @@ See ChangeLog.1 for earlier changes.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

View file

@ -900,9 +900,9 @@
invalid overlay. invalid overlay.
(syms_of_buffer): defsubr Soverlayp; initialize Qoverlayp. (syms_of_buffer): defsubr Soverlayp; initialize Qoverlayp.
(Fdelete_overlay): Set the overlay's markers to point nowhere. (Fdelete_overlay): Set the overlay's markers to point nowhere.
Use CHECK_OVERLAY instead of signalling a special error. Use CHECK_OVERLAY instead of signaling a special error.
(Fmove_overlay, Foverlay_put): Use CHECK_OVERLAY instead of (Fmove_overlay, Foverlay_put): Use CHECK_OVERLAY instead of
signalling a special error. signaling a special error.
(Foverlay_get): Use CHECK_OVERLAY. (Foverlay_get): Use CHECK_OVERLAY.
* fns.c (internal_equal): Define this for overlays. * fns.c (internal_equal): Define this for overlays.
* buffer.h (OVERLAY_VALID): Define in terms of OVERLAYP. * buffer.h (OVERLAY_VALID): Define in terms of OVERLAYP.
@ -5549,7 +5549,7 @@
h->poll_suppress_count. h->poll_suppress_count.
* eval.c (Fsignal): It's okay for the debugger to return to the * eval.c (Fsignal): It's okay for the debugger to return to the
caller if the caller was signalling a quit. caller if the caller was signaling a quit.
* eval.c (unbind_catch): Restore the polling suppression count * eval.c (unbind_catch): Restore the polling suppression count
here, instead of in Fsignal and Fthrow. here, instead of in Fsignal and Fthrow.
@ -10592,7 +10592,7 @@
(init_x_parm_symbols, x_set_screen_param): Use x_screen_parms (init_x_parm_symbols, x_set_screen_param): Use x_screen_parms
instead of a large switch statement. instead of a large switch statement.
(x_figure_window_size): Make the default case of the switch call (x_figure_window_size): Make the default case of the switch call
abort instead of signalling an error, since window_prompting's abort instead of signaling an error, since window_prompting's
value is internally generated. value is internally generated.
1991-05-01 Jim Blandy (jimb@churchy.gnu.ai.mit.edu) 1991-05-01 Jim Blandy (jimb@churchy.gnu.ai.mit.edu)
@ -14884,7 +14884,7 @@
1989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu) 1989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu)
* fileio.c (barf_or_query_if_file_exists): When signalling, * fileio.c (barf_or_query_if_file_exists): When signaling,
provide the expected args for a file-error. provide the expected args for a file-error.
1989-08-06 Richard Stallman (rms@sugar-bombs.ai.mit.edu) 1989-08-06 Richard Stallman (rms@sugar-bombs.ai.mit.edu)

View file

@ -919,7 +919,7 @@
1999-11-28 Eli Zaretskii <eliz@is.elta.co.il> 1999-11-28 Eli Zaretskii <eliz@is.elta.co.il>
* charset.c (Fmake_char_internal): Print the charset ID when * charset.c (Fmake_char_internal): Print the charset ID when
signalling an error. signaling an error.
* emacs.c (synchronize_locale): Avoid compiler warnings about * emacs.c (synchronize_locale): Avoid compiler warnings about
pointer type mismatch. pointer type mismatch.
@ -7367,7 +7367,7 @@
* xfaces.c (free_font): Removed. * xfaces.c (free_font): Removed.
(load_face_font_or_fontset): Renamed from load_font. (load_face_font_or_fontset): Renamed from load_font.
(load_face_font_or_fontset): Use message2 instead of signalling. (load_face_font_or_fontset): Use message2 instead of signaling.
(load_color): Likewise. (load_color): Likewise.
(load_pixmap): Likewise. (load_pixmap): Likewise.

View file

@ -271,7 +271,7 @@ struct byte_stack
/* A list of currently active byte-code execution value stacks. /* A list of currently active byte-code execution value stacks.
Fbyte_code adds an entry to the head of this list before it starts Fbyte_code adds an entry to the head of this list before it starts
processing byte-code, and it removed the entry again when it is processing byte-code, and it removed the entry again when it is
done. Signalling an error truncates the list analoguous to done. Signaling an error truncates the list analoguous to
gcprolist. */ gcprolist. */
struct byte_stack *byte_stack_list; struct byte_stack *byte_stack_list;

View file

@ -969,7 +969,7 @@ character is a target to get a byte value. In this case, POSITION, if
non-nil, is an index of a target character in the string. non-nil, is an index of a target character in the string.
If the current buffer (or STRING) is multibyte, and the target If the current buffer (or STRING) is multibyte, and the target
character is not ASCII nor 8-bit character, an error is signalled. */) character is not ASCII nor 8-bit character, an error is signaled. */)
(Lisp_Object position, Lisp_Object string) (Lisp_Object position, Lisp_Object string)
{ {
int c; int c;

View file

@ -2028,7 +2028,7 @@ DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0,
If OBJECT is not a symbol, just return it. Otherwise, follow all If OBJECT is not a symbol, just return it. Otherwise, follow all
function indirections to find the final function binding and return it. function indirections to find the final function binding and return it.
If the final symbol in the chain is unbound, signal a void-function error. If the final symbol in the chain is unbound, signal a void-function error.
Optional arg NOERROR non-nil means to return nil instead of signalling. Optional arg NOERROR non-nil means to return nil instead of signaling.
Signal a cyclic-function-indirection error if there is a loop in the Signal a cyclic-function-indirection error if there is a loop in the
function chain of symbols. */) function chain of symbols. */)
(register Lisp_Object object, Lisp_Object noerror) (register Lisp_Object object, Lisp_Object noerror)

View file

@ -415,7 +415,7 @@ struct re_pattern_buffer
typedef struct re_pattern_buffer regex_t; typedef struct re_pattern_buffer regex_t;
/* Type for byte offsets within the string. POSIX mandates this to be an int, /* Type for byte offsets within the string. POSIX mandates this to be an int,
but the Open Group has signalled its intention to change the requirement to but the Open Group has signaled its intention to change the requirement to
be that regoff_t be at least as wide as ptrdiff_t and ssize_t. Current be that regoff_t be at least as wide as ptrdiff_t and ssize_t. Current
gnulib sources also use ssize_t, and we need this for supporting buffers and gnulib sources also use ssize_t, and we need this for supporting buffers and
strings > 2GB on 64-bit hosts. */ strings > 2GB on 64-bit hosts. */

View file

@ -119,7 +119,7 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */
#ifdef HAVE_X_WINDOWS #ifdef HAVE_X_WINDOWS
/* We need a little extra space, see ../../lisp/loadup.el and the /* We need a little extra space, see ../../lisp/loadup.el and the
commentary below, in the non-X branch. The 140KB number was commentary below, in the non-X branch. The 140KB number was
measured on GNU/Linux and on MS-WIndows. */ measured on GNU/Linux and on MS-Windows. */
#define SYSTEM_PURESIZE_EXTRA (-170000+140000) #define SYSTEM_PURESIZE_EXTRA (-170000+140000)
#else #else
/* We need a little extra space, see ../../lisp/loadup.el. /* We need a little extra space, see ../../lisp/loadup.el.
@ -138,4 +138,3 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */
registers relevant for conservative garbage collection in the jmp_buf. */ registers relevant for conservative garbage collection in the jmp_buf. */
#define GC_SETJMP_WORKS 1 #define GC_SETJMP_WORKS 1
#define GC_MARK_STACK GC_MAKE_GCPROS_NOOPS #define GC_MARK_STACK GC_MAKE_GCPROS_NOOPS

View file

@ -2344,7 +2344,7 @@ Anything else means consider all windows on WINDOW's frame and no
others. others.
If WINDOW is not on the list of windows returned, some other window will If WINDOW is not on the list of windows returned, some other window will
be listed first but no error is signalled. */) be listed first but no error is signaled. */)
(Lisp_Object window, Lisp_Object minibuf, Lisp_Object all_frames) (Lisp_Object window, Lisp_Object minibuf, Lisp_Object all_frames)
{ {
return window_list_1 (window, minibuf, all_frames); return window_list_1 (window, minibuf, all_frames);

View file

@ -23627,7 +23627,7 @@ produce_stretch_glyph (struct it *it)
{ {
width = it->last_visible_x - it->current_x; width = it->last_visible_x - it->current_x;
#ifdef HAVE_WINDOW_SYSTEM #ifdef HAVE_WINDOW_SYSTEM
/* Subtact one more pixel from the stretch width, but only on /* Subtract one more pixel from the stretch width, but only on
GUI frames, since on a TTY each glyph is one "pixel" wide. */ GUI frames, since on a TTY each glyph is one "pixel" wide. */
width -= FRAME_WINDOW_P (it->f); width -= FRAME_WINDOW_P (it->f);
#endif #endif

View file

@ -228,7 +228,7 @@ failed or if there was a problem."
:form (error "Foo") :form (error "Foo")
:condition (error "Foo") :condition (error "Foo")
:fail-reason :fail-reason
"the error signalled did not have the expected type")))))) "the error signaled did not have the expected type"))))))
;; Error of the expected type. ;; Error of the expected type.
(let* ((error nil) (let* ((error nil)
(test (make-ert-test (test (make-ert-test
@ -258,7 +258,7 @@ failed or if there was a problem."
:form (signal arith-error nil) :form (signal arith-error nil)
:condition (arith-error) :condition (arith-error)
:fail-reason :fail-reason
"the error signalled did not have the expected type")))))) "the error signaled did not have the expected type"))))))
(let ((test (make-ert-test (let ((test (make-ert-test
:body (lambda () :body (lambda ()
(should-error (signal 'arith-error nil) (should-error (signal 'arith-error nil)
@ -275,7 +275,7 @@ failed or if there was a problem."
:form (signal arith-error nil) :form (signal arith-error nil)
:condition (arith-error) :condition (arith-error)
:fail-reason :fail-reason
"the error signalled did not have the expected type")))))) "the error signaled did not have the expected type"))))))
(let ((test (make-ert-test (let ((test (make-ert-test
:body (lambda () :body (lambda ()
(should-error (signal 'singularity-error nil) (should-error (signal 'singularity-error nil)
@ -292,7 +292,7 @@ failed or if there was a problem."
:form (signal singularity-error nil) :form (signal singularity-error nil)
:condition (singularity-error) :condition (singularity-error)
:fail-reason :fail-reason
"the error signalled was a subtype of the expected type"))))) "the error signaled was a subtype of the expected type")))))
)) ))
(defmacro ert--test-my-list (&rest args) (defmacro ert--test-my-list (&rest args)