Spelling fixes.
This commit is contained in:
parent
322ad6ec0e
commit
8350f087ef
69 changed files with 125 additions and 137 deletions
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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:
|
||||||
|
|
|
@ -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
|
||||||
|
|
4
etc/NEWS
4
etc/NEWS
|
@ -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.
|
||||||
|
|
|
@ -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:
|
||||||
|
|
||||||
|
|
3
etc/TODO
3
etc/TODO
|
@ -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/>.
|
||||||
|
|
||||||
|
|
|
@ -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);
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
||||||
|
|
|
@ -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>
|
||||||
|
|
|
@ -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/>.
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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/>.
|
||||||
|
|
||||||
|
|
|
@ -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>
|
||||||
|
|
|
@ -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/>.
|
||||||
|
|
||||||
|
|
|
@ -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.
|
||||||
|
|
||||||
|
|
|
@ -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"
|
||||||
|
|
|
@ -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"])
|
||||||
|
|
|
@ -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))))
|
||||||
|
|
|
@ -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")
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)))
|
||||||
))
|
))
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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.
|
||||||
|
|
|
@ -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-
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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.
|
||||||
;;
|
;;
|
||||||
|
|
|
@ -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:
|
||||||
|
|
||||||
|
|
|
@ -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:
|
||||||
|
|
||||||
|
|
|
@ -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))))
|
||||||
|
|
|
@ -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 "_")))))
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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"
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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:
|
||||||
|
|
|
@ -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."
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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))
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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/>.
|
||||||
|
|
||||||
|
|
|
@ -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.
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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.
|
||||||
|
|
|
@ -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.
|
||||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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.
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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/>.
|
||||||
|
|
||||||
|
|
|
@ -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/>.
|
||||||
|
|
||||||
|
|
|
@ -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>
|
||||||
|
|
||||||
|
|
|
@ -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/>.
|
||||||
|
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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.
|
||||||
|
|
||||||
|
|
|
@ -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;
|
||||||
|
|
|
@ -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;
|
||||||
|
|
|
@ -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)
|
||||||
|
|
|
@ -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. */
|
||||||
|
|
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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);
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue