aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2011-11-14 12:23:26 -0800
committerPaul Eggert2011-11-14 12:23:26 -0800
commit8350f087efe62e2ce0ded434534629a56cdc4e8c (patch)
tree9976cec81196a0465269f8669f2a85328570dfd4
parent322ad6ec0e773dffefad12df88c98041ca35b427 (diff)
downloademacs-8350f087efe62e2ce0ded434534629a56cdc4e8c.tar.gz
emacs-8350f087efe62e2ce0ded434534629a56cdc4e8c.zip
Spelling fixes.
-rw-r--r--doc/lispintro/emacs-lisp-intro.texi2
-rw-r--r--doc/misc/ada-mode.texi2
-rw-r--r--doc/misc/ert.texi2
-rw-r--r--doc/misc/sem-user.texi2
-rw-r--r--etc/JOKES4
-rw-r--r--etc/NEWS4
-rw-r--r--etc/NEWS.233
-rw-r--r--etc/TODO5
-rw-r--r--lib-src/emacsclient.c2
-rw-r--r--lisp/ChangeLog2
-rw-r--r--lisp/ChangeLog.12
-rw-r--r--lisp/ChangeLog.102
-rw-r--r--lisp/ChangeLog.123
-rw-r--r--lisp/ChangeLog.132
-rw-r--r--lisp/ChangeLog.143
-rw-r--r--lisp/ChangeLog.154
-rw-r--r--lisp/ChangeLog.83
-rw-r--r--lisp/ChangeLog.94
-rw-r--r--lisp/calc/calc-help.el2
-rw-r--r--lisp/calendar/icalendar.el12
-rw-r--r--lisp/cedet/ede/pconf.el2
-rw-r--r--lisp/cedet/mode-local.el2
-rw-r--r--lisp/cedet/semantic/bovine/c.el2
-rw-r--r--lisp/cedet/semantic/bovine/el.el4
-rw-r--r--lisp/cedet/srecode/dictionary.el2
-rw-r--r--lisp/emacs-lisp/eieio-base.el2
-rw-r--r--lisp/emacs-lisp/eieio.el4
-rw-r--r--lisp/emacs-lisp/ert.el20
-rw-r--r--lisp/emulation/viper-util.el2
-rw-r--r--lisp/erc/ChangeLog.0129
-rw-r--r--lisp/erc/ChangeLog.0315
-rw-r--r--lisp/eshell/em-hist.el2
-rw-r--r--lisp/files.el4
-rw-r--r--lisp/gnus/gnus-uu.el2
-rw-r--r--lisp/gnus/gnus-win.el2
-rw-r--r--lisp/info.el2
-rw-r--r--lisp/language/vietnamese.el2
-rw-r--r--lisp/mail/rmail.el6
-rw-r--r--lisp/mail/rmailmm.el2
-rw-r--r--lisp/mpc.el2
-rw-r--r--lisp/net/snmp-mode.el2
-rw-r--r--lisp/net/soap-client.el2
-rw-r--r--lisp/net/xesam.el2
-rw-r--r--lisp/net/zeroconf.el2
-rw-r--r--lisp/org/ChangeLog3
-rw-r--r--lisp/org/org-list.el2
-rw-r--r--lisp/org/org.el2
-rw-r--r--lisp/progmodes/cc-cmds.el4
-rw-r--r--lisp/progmodes/cc-defs.el6
-rw-r--r--lisp/progmodes/gdb-mi.el2
-rw-r--r--lisp/progmodes/idlwave.el2
-rw-r--r--lisp/progmodes/verilog-mode.el4
-rw-r--r--lisp/view.el2
-rw-r--r--lisp/window.el2
-rw-r--r--lisp/woman.el2
-rw-r--r--src/ChangeLog.13
-rw-r--r--src/ChangeLog.103
-rw-r--r--src/ChangeLog.114
-rw-r--r--src/ChangeLog.23
-rw-r--r--src/ChangeLog.310
-rw-r--r--src/ChangeLog.84
-rw-r--r--src/bytecode.c2
-rw-r--r--src/character.c2
-rw-r--r--src/data.c2
-rw-r--r--src/regex.h2
-rw-r--r--src/s/msdos.h3
-rw-r--r--src/window.c2
-rw-r--r--src/xdisp.c2
-rw-r--r--test/automated/ert-tests.el8
69 files changed, 125 insertions, 137 deletions
diff --git a/doc/lispintro/emacs-lisp-intro.texi b/doc/lispintro/emacs-lisp-intro.texi
index 841bf8a0c95..db431df3137 100644
--- a/doc/lispintro/emacs-lisp-intro.texi
+++ b/doc/lispintro/emacs-lisp-intro.texi
@@ -8200,7 +8200,7 @@ The command \\[yank] can retrieve it from there. @dots{} "
8200 ;; it will be set in an error 8200 ;; it will be set in an error
8201 (setq this-command 'kill-region) 8201 (setq this-command 'kill-region)
8202 ;; Finally, in the then-part, send a message if you may copy 8202 ;; Finally, in the then-part, send a message if you may copy
8203 ;; the text to the kill ring without signally an error, but 8203 ;; the text to the kill ring without signaling an error, but
8204 ;; don't if you may not. 8204 ;; don't if you may not.
8205@end group 8205@end group
8206@group 8206@group
diff --git a/doc/misc/ada-mode.texi b/doc/misc/ada-mode.texi
index 66cdb200111..1f4f1d5d05d 100644
--- a/doc/misc/ada-mode.texi
+++ b/doc/misc/ada-mode.texi
@@ -209,7 +209,7 @@ whose extension is @file{.ads}, it will take the first available file
209that ends with either @file{.adb}, @file{_b.ada} or 209that ends with either @file{.adb}, @file{_b.ada} or
210@file{.body}. 210@file{.body}.
211 211
212Simililarly, if Ada mode is looking for a spec, it will look for 212Similarly, if Ada mode is looking for a spec, it will look for
213@file{.ads} or @file{_s.ada}. 213@file{.ads} or @file{_s.ada}.
214 214
215If the filename is not derived from the Ada name following the GNAT 215If the filename is not derived from the Ada name following the GNAT
diff --git a/doc/misc/ert.texi b/doc/misc/ert.texi
index d802e4259f5..00755262075 100644
--- a/doc/misc/ert.texi
+++ b/doc/misc/ert.texi
@@ -389,7 +389,7 @@ This checks that dividing one by zero signals an error of type
389@code{arith-error}. The @code{:type} argument to @code{should-error} 389@code{arith-error}. The @code{:type} argument to @code{should-error}
390is optional; if absent, any type of error is accepted. 390is optional; if absent, any type of error is accepted.
391@code{should-error} returns an error description of the error that was 391@code{should-error} returns an error description of the error that was
392signalled, to allow additional checks to be made. The error 392signaled, to allow additional checks to be made. The error
393description has the format @code{(ERROR-SYMBOL . DATA)}. 393description has the format @code{(ERROR-SYMBOL . DATA)}.
394 394
395There is no @code{should-not-error} macro since tests that signal an 395There is no @code{should-not-error} macro since tests that signal an
diff --git a/doc/misc/sem-user.texi b/doc/misc/sem-user.texi
index b17f1ab7e93..463276f9fd0 100644
--- a/doc/misc/sem-user.texi
+++ b/doc/misc/sem-user.texi
@@ -608,7 +608,7 @@ of parsing. The default is @code{t}.
608@node Debugging Idle Time Issues 608@node Debugging Idle Time Issues
609@subsection Debugging Idle Time Issues 609@subsection Debugging Idle Time Issues
610 610
611If you see an error signalled during idle time, it could be an 611If you see an error signaled during idle time, it could be an
612indication of a more serious issue elsewhere. It is not enough to 612indication of a more serious issue elsewhere. It is not enough to
613enable @code{debug-on-error}, because the idle scheduler inhibits the 613enable @code{debug-on-error}, because the idle scheduler inhibits the
614debugger. Instead, use the following commands to debug the error: 614debugger. Instead, use the following commands to debug the error:
diff --git a/etc/JOKES b/etc/JOKES
index 9cbba845111..af304e778da 100644
--- a/etc/JOKES
+++ b/etc/JOKES
@@ -197,7 +197,7 @@ Each
197Manual's 197Manual's
198Audience is 198Audience is
199Completely 199Completely
200Stupified 200Stupefied
201 201
202Emacs 202Emacs
203Means 203Means
@@ -333,7 +333,7 @@ Easily
333Mangles, 333Mangles,
334Aborts, 334Aborts,
335Crashes and 335Crashes and
336Stupifies 336Stupefies
337 337
338Extraneous 338Extraneous
339Macros 339Macros
diff --git a/etc/NEWS b/etc/NEWS
index 59fab6d9107..b9e65a8b7d3 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -172,7 +172,7 @@ server should listen.
172*** New emacsclient argument --frame-parameters can be used to set the 172*** New emacsclient argument --frame-parameters can be used to set the
173frame parameters of a newly-created graphical frame. 173frame parameters of a newly-created graphical frame.
174+++ 174+++
175*** If emacsclient shuts down as a result of Emacs signalling an 175*** If emacsclient shuts down as a result of Emacs signaling an
176error, its exit status is 1. 176error, its exit status is 1.
177+++ 177+++
178*** New emacsclient argument --parent-id ID. 178*** New emacsclient argument --parent-id ID.
@@ -1243,7 +1243,7 @@ argument is supplied (see Trash changes, above).
1243 1243
1244** `facemenu-read-color' is now an alias for `read-color'. 1244** `facemenu-read-color' is now an alias for `read-color'.
1245The command `read-color' now requires a match for a color name or RGB 1245The command `read-color' now requires a match for a color name or RGB
1246triplet, instead of signalling an error if the user provides a invalid 1246triplet, instead of signaling an error if the user provides a invalid
1247input. 1247input.
1248 1248
1249** Tool-bars can display separators. 1249** Tool-bars can display separators.
diff --git a/etc/NEWS.23 b/etc/NEWS.23
index 5b170231bbd..182a8a4a008 100644
--- a/etc/NEWS.23
+++ b/etc/NEWS.23
@@ -1182,7 +1182,7 @@ run processes remotely.
1182matches a regexp. 1182matches a regexp.
1183 1183
1184*** The value of comment-style now defaults to `indent'. 1184*** The value of comment-style now defaults to `indent'.
1185Thefore, comment-start markers are inserted at the current indentation 1185Therefore, comment-start markers are inserted at the current indentation
1186of the region to comment, rather than the leftmost column. 1186of the region to comment, rather than the leftmost column.
1187 1187
1188*** The new commands `pp-macroexpand-expression' and 1188*** The new commands `pp-macroexpand-expression' and
@@ -2529,4 +2529,3 @@ Local variables:
2529mode: outline 2529mode: outline
2530paragraph-separate: "[ ]*$" 2530paragraph-separate: "[ ]*$"
2531end: 2531end:
2532
diff --git a/etc/TODO b/etc/TODO
index c38b04a681d..3a35e6f4f84 100644
--- a/etc/TODO
+++ b/etc/TODO
@@ -165,7 +165,7 @@ Change them to use report-emacs-bug.
165like make-backup-file-name-function for non-numeric backup files. 165like make-backup-file-name-function for non-numeric backup files.
166 166
167** `dired-mode' should specify the semantics of `buffer-modified-p' for 167** `dired-mode' should specify the semantics of `buffer-modified-p' for
168dired buffers and DTRT WRT `auto-revert-mode'. 168dired buffers and DTRT WRT `auto-revert-mode'.
169 169
170** Check uses of prin1 for error-handling. 170** Check uses of prin1 for error-handling.
171http://lists.gnu.org/archive/html/emacs-devel/2008-08/msg00456.html 171http://lists.gnu.org/archive/html/emacs-devel/2008-08/msg00456.html
@@ -1043,7 +1043,7 @@ was an error in the namespace URI.
1043 1043
1044**** Better recovery from ill-formed XML declarations. 1044**** Better recovery from ill-formed XML declarations.
1045 1045
1046*** Useability improvements 1046*** Usability improvements
1047 1047
1048**** Should print a "Parsing..." message during long movements. 1048**** Should print a "Parsing..." message during long movements.
1049 1049
@@ -1243,4 +1243,3 @@ GNU General Public License for more details.
1243 1243
1244You should have received a copy of the GNU General Public License 1244You should have received a copy of the GNU General Public License
1245along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 1245along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
1246
diff --git a/lib-src/emacsclient.c b/lib-src/emacsclient.c
index 76aa21884de..56e17c100be 100644
--- a/lib-src/emacsclient.c
+++ b/lib-src/emacsclient.c
@@ -1193,7 +1193,7 @@ handle_sigtstp (int signalnum)
1193 send_to_emacs (emacs_socket, "-suspend \n"); 1193 send_to_emacs (emacs_socket, "-suspend \n");
1194 1194
1195 /* Unblock this signal and call the default handler by temporarily 1195 /* Unblock this signal and call the default handler by temporarily
1196 changing the handler and resignalling. */ 1196 changing the handler and resignaling. */
1197 sigprocmask (SIG_BLOCK, NULL, &set); 1197 sigprocmask (SIG_BLOCK, NULL, &set);
1198 sigdelset (&set, signalnum); 1198 sigdelset (&set, signalnum);
1199 signal (signalnum, SIG_DFL); 1199 signal (signalnum, SIG_DFL);
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37b13a7acd8..b84a7b9ded7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3876,7 +3876,7 @@
3876 for list)" (bug#6475). 3876 for list)" (bug#6475).
3877 3877
3878 * files.el (file-expand-wildcards): Ignore non-readable 3878 * files.el (file-expand-wildcards): Ignore non-readable
3879 sub-directories while trying to find matches instead of signalling 3879 sub-directories while trying to find matches instead of signaling
3880 an error (bug#6297). 3880 an error (bug#6297).
3881 3881
3882 * man.el (Man-reference-regexp): Allow matching possible 3882 * man.el (Man-reference-regexp): Allow matching possible
diff --git a/lisp/ChangeLog.1 b/lisp/ChangeLog.1
index f1c931589d1..aac6e998a88 100644
--- a/lisp/ChangeLog.1
+++ b/lisp/ChangeLog.1
@@ -1947,7 +1947,7 @@
1947 elements of command-history are expressions. 1947 elements of command-history are expressions.
1948 1948
1949 * simple.el (error): 1949 * simple.el (error):
1950 Just keep signalling if user tries to continue. 1950 Just keep signaling if user tries to continue.
1951 1951
19521985-09-07 Richard M. Stallman (rms@mit-prep) 19521985-09-07 Richard M. Stallman (rms@mit-prep)
1953 1953
diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10
index a1cba0a9cd9..e0846012697 100644
--- a/lisp/ChangeLog.10
+++ b/lisp/ChangeLog.10
@@ -3516,7 +3516,7 @@
35162003-04-23 Stefan Monnier <monnier@cs.yale.edu> 35162003-04-23 Stefan Monnier <monnier@cs.yale.edu>
3517 3517
3518 * newcomment.el (comment-normalize-vars): Prompt the user for 3518 * newcomment.el (comment-normalize-vars): Prompt the user for
3519 the comment-start to use rather than signalling an error. Fix regexp. 3519 the comment-start to use rather than signaling an error. Fix regexp.
3520 (uncomment-region): Don't leave half-removed comment markers. 3520 (uncomment-region): Don't leave half-removed comment markers.
3521 3521
35222003-04-23 Richard M. Stallman <rms@gnu.org> 35222003-04-23 Richard M. Stallman <rms@gnu.org>
diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12
index 1e7ed845b49..2cb3d27d694 100644
--- a/lisp/ChangeLog.12
+++ b/lisp/ChangeLog.12
@@ -7561,7 +7561,7 @@
7561 * pcvs-util.el (cvs-get-buffer-create): Obey `noreuse' even if `name' 7561 * pcvs-util.el (cvs-get-buffer-create): Obey `noreuse' even if `name'
7562 doesn't look like a file name. 7562 doesn't look like a file name.
7563 7563
7564 * complete.el (PC-expand-many-files): Avoid signalling an error when 7564 * complete.el (PC-expand-many-files): Avoid signaling an error when
7565 the current directory doesn't exist. Reported by Michaël Cadilhac. 7565 the current directory doesn't exist. Reported by Michaël Cadilhac.
7566 7566
75672006-08-02 Andreas Schwab <schwab@suse.de> 75672006-08-02 Andreas Schwab <schwab@suse.de>
@@ -33362,4 +33362,3 @@ See ChangeLog.11 for earlier changes.
33362 33362
33363 You should have received a copy of the GNU General Public License 33363 You should have received a copy of the GNU General Public License
33364 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 33364 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
33365
diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13
index 993c51163cb..d1cc345e158 100644
--- a/lisp/ChangeLog.13
+++ b/lisp/ChangeLog.13
@@ -1673,7 +1673,7 @@
1673 x-resolve-font-name. 1673 x-resolve-font-name.
1674 (x-complement-fontset-spec): Never prepend an ASCII font. 1674 (x-complement-fontset-spec): Never prepend an ASCII font.
1675 (create-fontset-from-fontset-spec): If a fontset of the same name 1675 (create-fontset-from-fontset-spec): If a fontset of the same name
1676 already exists, override it instead of signalling an error. Don't 1676 already exists, override it instead of signaling an error. Don't
1677 turn `ascii' into `latin'. Don't update fontset-alias-alist here. 1677 turn `ascii' into `latin'. Don't update fontset-alias-alist here.
1678 1678
1679 * international/mule-conf.el (unicode-bmp): Delete duplicated 1679 * international/mule-conf.el (unicode-bmp): Delete duplicated
diff --git a/lisp/ChangeLog.14 b/lisp/ChangeLog.14
index c30f0e749ce..e904c1f64b9 100644
--- a/lisp/ChangeLog.14
+++ b/lisp/ChangeLog.14
@@ -7913,7 +7913,7 @@
7913 ignored while matching, replace the entire filename with completion. 7913 ignored while matching, replace the entire filename with completion.
7914 7914
7915 * textmodes/flyspell.el (flyspell-check-pre-word-p): Make sure 7915 * textmodes/flyspell.el (flyspell-check-pre-word-p): Make sure
7916 flyspell-pre-point is valid to avoid signalling an error in 7916 flyspell-pre-point is valid to avoid signaling an error in
7917 post-command-hook. 7917 post-command-hook.
7918 7918
79192008-08-26 Johan Bockgård <bojohan@gnu.org> 79192008-08-26 Johan Bockgård <bojohan@gnu.org>
@@ -20567,4 +20567,3 @@ See ChangeLog.13 for earlier changes.
20567 20567
20568 You should have received a copy of the GNU General Public License 20568 You should have received a copy of the GNU General Public License
20569 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 20569 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
20570
diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15
index ed70075754c..aa9c9066dc1 100644
--- a/lisp/ChangeLog.15
+++ b/lisp/ChangeLog.15
@@ -11215,7 +11215,7 @@
11215 * bindings.el (complete-symbol): Move into minibuffer.el. 11215 * bindings.el (complete-symbol): Move into minibuffer.el.
11216 11216
11217 * minibuffer.el (complete-tag): Move from etags.el. If tags 11217 * minibuffer.el (complete-tag): Move from etags.el. If tags
11218 completion cannot be performed, return nil instead of signalling 11218 completion cannot be performed, return nil instead of signaling
11219 an error. 11219 an error.
11220 (completion-at-point): Make it an alias for complete-symbol. 11220 (completion-at-point): Make it an alias for complete-symbol.
11221 (complete-symbol): Move from bindings.el, and replace with the 11221 (complete-symbol): Move from bindings.el, and replace with the
@@ -13311,7 +13311,7 @@
13311 13311
133122010-01-29 Chong Yidong <cyd@stupidchicken.com> 133122010-01-29 Chong Yidong <cyd@stupidchicken.com>
13313 13313
13314 * dirtrack.el (dirtrack): Warn instead of signalling error if the 13314 * dirtrack.el (dirtrack): Warn instead of signaling error if the
13315 regexp is incorrect (Bug#5476). 13315 regexp is incorrect (Bug#5476).
13316 13316
133172010-01-29 Michael Albinus <michael.albinus@gmx.de> 133172010-01-29 Michael Albinus <michael.albinus@gmx.de>
diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8
index ada6d98ce3d..33970b95558 100644
--- a/lisp/ChangeLog.8
+++ b/lisp/ChangeLog.8
@@ -8317,7 +8317,7 @@
83171998-11-11 Sam Steingold <sds@goems.com> 83171998-11-11 Sam Steingold <sds@goems.com>
8318 8318
8319 * inf-lisp.el (switch-to-lisp): If no inferior lisp present, call 8319 * inf-lisp.el (switch-to-lisp): If no inferior lisp present, call
8320 `run-lisp' instead of signalling an error. 8320 `run-lisp' instead of signaling an error.
8321 8321
83221998-11-11 Karl Heuer <kwzh@gnu.org> 83221998-11-11 Karl Heuer <kwzh@gnu.org>
8323 8323
@@ -10009,4 +10009,3 @@ See ChangeLog.7 for earlier changes.
10009 10009
10010 You should have received a copy of the GNU General Public License 10010 You should have received a copy of the GNU General Public License
10011 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 10011 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
10012
diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index d2d6409cdd3..d25556ce173 100644
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -135,7 +135,7 @@
135 135
136 * net/ange-ftp.el (ange-ftp-raw-send-cmd, ange-ftp-wait-not-busy): 136 * net/ange-ftp.el (ange-ftp-raw-send-cmd, ange-ftp-wait-not-busy):
137 Use with-current-buffer. 137 Use with-current-buffer.
138 (ange-ftp-cd): New arg `noerror' to prevent signalling an error. 138 (ange-ftp-cd): New arg `noerror' to prevent signaling an error.
139 (ange-ftp-send-cmd): If a `cd' is used (because of a space in the 139 (ange-ftp-send-cmd): If a `cd' is used (because of a space in the
140 filename), catch any error that occurs in `ange-ftp-cd'. 140 filename), catch any error that occurs in `ange-ftp-cd'.
141 If an error happened, don't bother sending `cmd' at all. 141 If an error happened, don't bother sending `cmd' at all.
@@ -12638,7 +12638,7 @@
12638 (vc-rcs-diff): Only pass `2' to vc-do-command if necessary and 12638 (vc-rcs-diff): Only pass `2' to vc-do-command if necessary and
12639 just do a recursive call if we need to retry. 12639 just do a recursive call if we need to retry.
12640 (vc-rcs-checkout): Handle the case where rcs is missing by making 12640 (vc-rcs-checkout): Handle the case where rcs is missing by making
12641 the buffer read-write if requested and re-signalling the error. 12641 the buffer read-write if requested and re-signaling the error.
12642 12642
12643 * vc-cvs.el (vc-cvs-diff): Remove unused and unsupported argument CMP. 12643 * vc-cvs.el (vc-cvs-diff): Remove unused and unsupported argument CMP.
12644 12644
diff --git a/lisp/calc/calc-help.el b/lisp/calc/calc-help.el
index 427cf6ba233..66e9c002a47 100644
--- a/lisp/calc/calc-help.el
+++ b/lisp/calc/calc-help.el
@@ -683,7 +683,7 @@ C-w Describe how there is no warranty for Calc."
683 (calc-do-prefix-help 683 (calc-do-prefix-help
684 '("Pack, Unpack, Identity, Diagonal, indeX, Build" 684 '("Pack, Unpack, Identity, Diagonal, indeX, Build"
685 "Row, Column, Subvector; Length; Find; Mask, Expand" 685 "Row, Column, Subvector; Length; Find; Mask, Expand"
686 "Tranpose, Arrange, reVerse; Head, Kons; rNorm" 686 "Transpose, Arrange, reVerse; Head, Kons; rNorm"
687 "SHIFT + Det, & (inverse), LUD, Trace, conJtrn, Cross" 687 "SHIFT + Det, & (inverse), LUD, Trace, conJtrn, Cross"
688 "SHIFT + Sort, Grade, Histogram; cNorm" 688 "SHIFT + Sort, Grade, Histogram; cNorm"
689 "SHIFT + Apply, Map, Reduce, accUm, Inner-, Outer-prod" 689 "SHIFT + Apply, Map, Reduce, accUm, Inner-, Outer-prod"
diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 3ffd55db18d..511592d2205 100644
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -234,7 +234,7 @@ code for the event, and your personal domain name."
234 "Enable icalendar debug messages.") 234 "Enable icalendar debug messages.")
235 235
236;; ====================================================================== 236;; ======================================================================
237;; NO USER SERVICABLE PARTS BELOW THIS LINE 237;; NO USER SERVICEABLE PARTS BELOW THIS LINE
238;; ====================================================================== 238;; ======================================================================
239 239
240(defconst icalendar--weekday-array ["SU" "MO" "TU" "WE" "TH" "FR" "SA"]) 240(defconst icalendar--weekday-array ["SU" "MO" "TU" "WE" "TH" "FR" "SA"])
@@ -915,7 +915,7 @@ would be \"pm\"."
915 "Export diary file to iCalendar format. 915 "Export diary file to iCalendar format.
916All diary entries in the file DIARY-FILENAME are converted to iCalendar 916All diary entries in the file DIARY-FILENAME are converted to iCalendar
917format. The result is appended to the file ICAL-FILENAME." 917format. The result is appended to the file ICAL-FILENAME."
918 (interactive "FExport diary data from file: 918 (interactive "FExport diary data from file:
919Finto iCalendar file: ") 919Finto iCalendar file: ")
920 (save-current-buffer 920 (save-current-buffer
921 (set-buffer (find-file diary-filename)) 921 (set-buffer (find-file diary-filename))
@@ -1557,9 +1557,9 @@ entries. ENTRY-MAIN is the first line of the diary entry."
1557 1557
1558(defun icalendar--convert-float-to-ical (nonmarker entry-main) 1558(defun icalendar--convert-float-to-ical (nonmarker entry-main)
1559 "Convert float diary entry to icalendar format -- partially unsupported! 1559 "Convert float diary entry to icalendar format -- partially unsupported!
1560 1560
1561 FIXME! DAY from diary-float yet unimplemented. 1561 FIXME! DAY from diary-float yet unimplemented.
1562 1562
1563 NONMARKER is a regular expression matching the start of non-marking 1563 NONMARKER is a regular expression matching the start of non-marking
1564 entries. ENTRY-MAIN is the first line of the diary entry." 1564 entries. ENTRY-MAIN is the first line of the diary entry."
1565 (if (string-match (concat nonmarker "%%\\((diary-float .+\\) ?$") entry-main) 1565 (if (string-match (concat nonmarker "%%\\((diary-float .+\\) ?$") entry-main)
@@ -1794,8 +1794,8 @@ Argument ICAL-FILENAME output iCalendar file.
1794Argument DIARY-FILENAME input `diary-file'. 1794Argument DIARY-FILENAME input `diary-file'.
1795Optional argument NON-MARKING determines whether events are created as 1795Optional argument NON-MARKING determines whether events are created as
1796non-marking or not." 1796non-marking or not."
1797 (interactive "fImport iCalendar data from file: 1797 (interactive "fImport iCalendar data from file:
1798Finto diary file: 1798Finto diary file:
1799p") 1799p")
1800 ;; clean up the diary file 1800 ;; clean up the diary file
1801 (save-current-buffer 1801 (save-current-buffer
diff --git a/lisp/cedet/ede/pconf.el b/lisp/cedet/ede/pconf.el
index 08fc98728e1..05290158189 100644
--- a/lisp/cedet/ede/pconf.el
+++ b/lisp/cedet/ede/pconf.el
@@ -149,7 +149,7 @@ don't do it. A value of nil means to just do it.")
149 )))) 149 ))))
150 150
151(defmethod ede-proj-configure-recreate ((this ede-proj-project)) 151(defmethod ede-proj-configure-recreate ((this ede-proj-project))
152 "Delete project THISes configure script and start over." 152 "Delete project THIS's configure script and start over."
153 (if (not (ede-proj-configure-file this)) 153 (if (not (ede-proj-configure-file this))
154 (error "Could not determine configure.ac for %S" (object-name this))) 154 (error "Could not determine configure.ac for %S" (object-name this)))
155 (let ((b (get-file-buffer (ede-proj-configure-file this)))) 155 (let ((b (get-file-buffer (ede-proj-configure-file this))))
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el
index d077dd95f3c..52bfaab5d25 100644
--- a/lisp/cedet/mode-local.el
+++ b/lisp/cedet/mode-local.el
@@ -656,7 +656,7 @@ SYMBOL is a function that can be overridden."
656 table) 656 table)
657 ;; Print symbols by type 657 ;; Print symbols by type
658 (when us 658 (when us
659 (princ "\n !! Unpecified symbols\n") 659 (princ "\n !! Unspecified symbols\n")
660 (mapc 'mode-local-print-binding us)) 660 (mapc 'mode-local-print-binding us))
661 (when mc 661 (when mc
662 (princ "\n ** Mode local constants\n") 662 (princ "\n ** Mode local constants\n")
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index af293a10348..49323d24d6a 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -240,7 +240,7 @@ Return the defined symbol as a special spp lex token."
240 (goto-char (match-end 0)) 240 (goto-char (match-end 0))
241 (looking-at "("))) 241 (looking-at "(")))
242 (semantic-lex-spp-replacements-enabled nil) 242 (semantic-lex-spp-replacements-enabled nil)
243 ;; Temporarilly override the lexer to include 243 ;; Temporarily override the lexer to include
244 ;; special items needed inside a macro 244 ;; special items needed inside a macro
245 (semantic-lex-analyzer #'semantic-cpp-lexer) 245 (semantic-lex-analyzer #'semantic-cpp-lexer)
246 (raw-stream 246 (raw-stream
diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el
index cfdd4cf6f6c..666624db929 100644
--- a/lisp/cedet/semantic/bovine/el.el
+++ b/lisp/cedet/semantic/bovine/el.el
@@ -534,9 +534,9 @@ Optional argument NOSNARF is ignored."
534 (t 534 (t
535 (setq d (documentation-property 535 (setq d (documentation-property
536 sym 'variable-documentation))))) 536 sym 'variable-documentation)))))
537 ;; Label it as system doc.. perhaps just for debugging 537 ;; Label it as system doc. perhaps just for debugging
538 ;; purposes. 538 ;; purposes.
539 (if d (setq d (concat "Sytem Doc: \n" d))) 539 (if d (setq d (concat "System Doc: \n" d)))
540 )) 540 ))
541 ) 541 )
542 542
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el
index 521532bed33..272e7693ccd 100644
--- a/lisp/cedet/srecode/dictionary.el
+++ b/lisp/cedet/srecode/dictionary.el
@@ -436,7 +436,7 @@ The root dictionary is usually for a current or active insertion."
436 436
437;;; COMPOUND VALUE METHODS 437;;; COMPOUND VALUE METHODS
438;; 438;;
439;; Compound values must provide at least the toStriong method 439;; Compound values must provide at least the toString method
440;; for use in converting the compound value into sometehing insertable. 440;; for use in converting the compound value into sometehing insertable.
441 441
442(defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value) 442(defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value)
diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el
index 139f5e6a4ce..df57148962f 100644
--- a/lisp/emacs-lisp/eieio-base.el
+++ b/lisp/emacs-lisp/eieio-base.el
@@ -54,7 +54,7 @@ not been set, use values from the parent."
54 54
55(defmethod slot-unbound ((object eieio-instance-inheritor) class slot-name fn) 55(defmethod slot-unbound ((object eieio-instance-inheritor) class slot-name fn)
56 "If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal. 56 "If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal.
57SLOT-NAME is the offending slot. FN is the function signalling the error." 57SLOT-NAME is the offending slot. FN is the function signaling the error."
58 (if (slot-boundp object 'parent-instance) 58 (if (slot-boundp object 'parent-instance)
59 ;; It may not look like it, but this line recurses back into this 59 ;; It may not look like it, but this line recurses back into this
60 ;; method if the parent instance's slot is unbound. 60 ;; method if the parent instance's slot is unbound.
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 352bd245ba4..68a3440b179 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -395,7 +395,7 @@ It creates an autoload function for CNAME's constructor."
395 (aset newc class-parent (cons SC (aref newc class-parent))) 395 (aset newc class-parent (cons SC (aref newc class-parent)))
396 ) 396 )
397 397
398 ;; turn this into a useable self-pointing symbol 398 ;; turn this into a usable self-pointing symbol
399 (set cname cname) 399 (set cname cname)
400 400
401 ;; Store the new class vector definition into the symbol. We need to 401 ;; Store the new class vector definition into the symbol. We need to
@@ -509,7 +509,7 @@ See `defclass' for more information."
509 ;; save parent in child 509 ;; save parent in child
510 (aset newc class-parent (list eieio-default-superclass)))) 510 (aset newc class-parent (list eieio-default-superclass))))
511 511
512 ;; turn this into a useable self-pointing symbol 512 ;; turn this into a usable self-pointing symbol
513 (set cname cname) 513 (set cname cname)
514 514
515 ;; These two tests must be created right away so we can have self- 515 ;; These two tests must be created right away so we can have self-
diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 2afe42dc070..8b64cd84bb1 100644
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -248,7 +248,7 @@ Emacs bug 6581 at URL `http://debbugs.gnu.org/cgi/bugreport.cgi?bug=6581'."
248 ;; We disallow nil since `ert-test-at-point' and related functions 248 ;; We disallow nil since `ert-test-at-point' and related functions
249 ;; want to return a test name, but also need an out-of-band value 249 ;; want to return a test name, but also need an out-of-band value
250 ;; on failure. Nil is the most natural out-of-band value; using 0 250 ;; on failure. Nil is the most natural out-of-band value; using 0
251 ;; or "" or signalling an error would be too awkward. 251 ;; or "" or signaling an error would be too awkward.
252 ;; 252 ;;
253 ;; Note that nil is still a valid value for the `name' slot in 253 ;; Note that nil is still a valid value for the `name' slot in
254 ;; ert-test objects. It designates an anonymous test. 254 ;; ert-test objects. It designates an anonymous test.
@@ -448,7 +448,7 @@ arguments: INNER-FORM and FORM-DESCRIPTION-FORM, where INNER-FORM
448is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is 448is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is
449an expression that returns a description of FORM. INNER-EXPANDER 449an expression that returns a description of FORM. INNER-EXPANDER
450should return code that calls INNER-FORM and performs the checks 450should return code that calls INNER-FORM and performs the checks
451and error signalling specific to the particular variant of 451and error signaling specific to the particular variant of
452`should'. The code that INNER-EXPANDER returns must not call 452`should'. The code that INNER-EXPANDER returns must not call
453FORM-DESCRIPTION-FORM before it has called INNER-FORM." 453FORM-DESCRIPTION-FORM before it has called INNER-FORM."
454 (lexical-let ((inner-expander inner-expander)) 454 (lexical-let ((inner-expander inner-expander))
@@ -489,17 +489,17 @@ Returns nil."
489 489
490Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES, 490Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES,
491and aborts the current test as failed if it doesn't." 491and aborts the current test as failed if it doesn't."
492 (let ((signalled-conditions (get (car condition) 'error-conditions)) 492 (let ((signaled-conditions (get (car condition) 'error-conditions))
493 (handled-conditions (etypecase type 493 (handled-conditions (etypecase type
494 (list type) 494 (list type)
495 (symbol (list type))))) 495 (symbol (list type)))))
496 (assert signalled-conditions) 496 (assert signaled-conditions)
497 (unless (ert--intersection signalled-conditions handled-conditions) 497 (unless (ert--intersection signaled-conditions handled-conditions)
498 (ert-fail (append 498 (ert-fail (append
499 (funcall form-description-fn) 499 (funcall form-description-fn)
500 (list 500 (list
501 :condition condition 501 :condition condition
502 :fail-reason (concat "the error signalled did not" 502 :fail-reason (concat "the error signaled did not"
503 " have the expected type"))))) 503 " have the expected type")))))
504 (when exclude-subtypes 504 (when exclude-subtypes
505 (unless (member (car condition) handled-conditions) 505 (unless (member (car condition) handled-conditions)
@@ -507,7 +507,7 @@ and aborts the current test as failed if it doesn't."
507 (funcall form-description-fn) 507 (funcall form-description-fn)
508 (list 508 (list
509 :condition condition 509 :condition condition
510 :fail-reason (concat "the error signalled was a subtype" 510 :fail-reason (concat "the error signaled was a subtype"
511 " of the expected type")))))))) 511 " of the expected type"))))))))
512 512
513;; FIXME: The expansion will evaluate the keyword args (if any) in 513;; 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."
515(defmacro* should-error (form &rest keys &key type exclude-subtypes) 515(defmacro* should-error (form &rest keys &key type exclude-subtypes)
516 "Evaluate FORM and check that it signals an error. 516 "Evaluate FORM and check that it signals an error.
517 517
518The error signalled needs to match TYPE. TYPE should be a list 518The error signaled needs to match TYPE. TYPE should be a list
519of condition names. (It can also be a non-nil symbol, which is 519of condition names. (It can also be a non-nil symbol, which is
520equivalent to a singleton list containing that symbol.) If 520equivalent to a singleton list containing that symbol.) If
521EXCLUDE-SUBTYPES is nil, the error matches TYPE if one of its 521EXCLUDE-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
523non-nil, the error matches TYPE if it is an element of TYPE. 523non-nil, the error matches TYPE if it is an element of TYPE.
524 524
525If the error matches, returns (ERROR-SYMBOL . DATA) from the 525If the error matches, returns (ERROR-SYMBOL . DATA) from the
526error. If not, or if no error was signalled, abort the test as 526error. If not, or if no error was signaled, abort the test as
527failed." 527failed."
528 (unless type (setq type ''error)) 528 (unless type (setq type ''error))
529 (ert--expand-should 529 (ert--expand-should
@@ -2120,7 +2120,7 @@ To be used in the ERT results buffer."
2120 2120
2121EWOC-FN specifies the direction and should be either `ewoc-prev' 2121EWOC-FN specifies the direction and should be either `ewoc-prev'
2122or `ewoc-next'. If there are no more nodes in that direction, an 2122or `ewoc-next'. If there are no more nodes in that direction, an
2123error is signalled with the message ERROR-MESSAGE." 2123error is signaled with the message ERROR-MESSAGE."
2124 (loop 2124 (loop
2125 (setq node (funcall ewoc-fn ert--results-ewoc node)) 2125 (setq node (funcall ewoc-fn ert--results-ewoc node))
2126 (when (null node) 2126 (when (null node)
diff --git a/lisp/emulation/viper-util.el b/lisp/emulation/viper-util.el
index 24a38236176..c80dd31a8f0 100644
--- a/lisp/emulation/viper-util.el
+++ b/lisp/emulation/viper-util.el
@@ -1112,7 +1112,7 @@ Otherwise return the normal value."
1112 lis))) 1112 lis)))
1113 1113
1114 1114
1115;; Smoothes out the difference between Emacs' unread-command-events 1115;; Smooths out the difference between Emacs' unread-command-events
1116;; and XEmacs unread-command-event. Arg is a character, an event, a list of 1116;; and XEmacs unread-command-event. Arg is a character, an event, a list of
1117;; events or a sequence of keys. 1117;; events or a sequence of keys.
1118;; 1118;;
diff --git a/lisp/erc/ChangeLog.01 b/lisp/erc/ChangeLog.01
index 4016586abc7..e189ce26e1d 100644
--- a/lisp/erc/ChangeLog.01
+++ b/lisp/erc/ChangeLog.01
@@ -160,9 +160,9 @@
160 160
161 * debian/control: integrated erc-speak back into erc 161 * debian/control: integrated erc-speak back into erc
162 162
163 * debian/maint/conffiles, debian/maint/conffiles.in, debian/maint/postinst, 163 * debian/maint/conffiles, debian/maint/conffiles.in, debian/maint/postinst,
164 debian/maint/postinst.in, debian/maint/prerm, debian/maint/prerm.in, 164 debian/maint/postinst.in, debian/maint/prerm, debian/maint/prerm.in,
165 debian/scripts/install, debian/scripts/install.in, debian/scripts/remove, 165 debian/scripts/install, debian/scripts/install.in, debian/scripts/remove,
166 debian/scripts/remove.in, debian/scripts/startup.erc-speak: 166 debian/scripts/remove.in, debian/scripts/startup.erc-speak:
167 since erc-speak is gone, resurrect the static files, and update them to support the latest erc 167 since erc-speak is gone, resurrect the static files, and update them to support the latest erc
168 168
@@ -220,7 +220,7 @@
220 * erc.el: 220 * erc.el:
221 * Applied antifuchs/mhp patches, the latest on erc-help, unmodified 221 * Applied antifuchs/mhp patches, the latest on erc-help, unmodified
222 * New variable: erc-reuse-buffers default to t. 222 * New variable: erc-reuse-buffers default to t.
223 * Modified erc-generate-new-buffer-name to use it. it checks if server and port are the same, 223 * Modified erc-generate-new-buffer-name to use it. it checks if server and port are the same,
224 then one can assume thats the same channel/query target again. 224 then one can assume thats the same channel/query target again.
225 225
2262001-11-23 Mario Lang <mlang@delysid.org> 2262001-11-23 Mario Lang <mlang@delysid.org>
@@ -238,7 +238,7 @@
238 238
239 * erc.el: * New local variable, erc-announced-server-name 239 * erc.el: * New local variable, erc-announced-server-name
240 * erc-mode-line-format supports a new symbol, target-and/or-server 240 * erc-mode-line-format supports a new symbol, target-and/or-server
241 * The mode-line displays the announced server name now (for autojoin later..., 241 * The mode-line displays the announced server name now (for autojoin later...,
242 greets Adam) 242 greets Adam)
243 * New macro, erc-server-hook-list for a nice way to define the defcustoms of the erc-server-*-hook's 243 * New macro, erc-server-hook-list for a nice way to define the defcustoms of the erc-server-*-hook's
244 Thanks go to the guy from #emacs who helped with that 244 Thanks go to the guy from #emacs who helped with that
@@ -603,11 +603,11 @@
603 603
604 * debian/control: added the new erc-speak package 604 * debian/control: added the new erc-speak package
605 605
606 * debian/README.erc-speak, debian/maint/postinst.in, debian/maint/prerm.in, 606 * debian/README.erc-speak, debian/maint/postinst.in, debian/maint/prerm.in,
607 debian/scripts/install.in, debian/scripts/remove.in: 607 debian/scripts/install.in, debian/scripts/remove.in:
608 new file 608 new file
609 609
610 * debian/maint/postinst, debian/maint/prerm, debian/scripts/install, 610 * debian/maint/postinst, debian/maint/prerm, debian/scripts/install,
611 debian/scripts/remove: 611 debian/scripts/remove:
612 removed, superseded by its .in counterpart 612 removed, superseded by its .in counterpart
613 613
@@ -625,7 +625,7 @@
6252001-10-23 Mario Lang <mlang@delysid.org> 6252001-10-23 Mario Lang <mlang@delysid.org>
626 626
627 * erc-speak.el: 627 * erc-speak.el:
628 * Added a new personality for channel name announcement, This makes streams of flooded channels much easier to listen to, 628 * Added a new personality for channel name announcement, This makes streams of flooded channels much easier to listen to,
629 especially if you are on more than one channel simultaneously. 629 especially if you are on more than one channel simultaneously.
630 630
631 * erc.el: 631 * erc.el:
@@ -643,7 +643,7 @@
643 * Removed now really obsolete code. Package size reduced by 50% 643 * Removed now really obsolete code. Package size reduced by 50%
644 644
645 * erc-speak.el: 645 * erc-speak.el:
646 * Very important fix! Now erc-speak is really complete. Messages don't get cut anymore. Be sure to use auditory icons, 646 * Very important fix! Now erc-speak is really complete. Messages don't get cut anymore. Be sure to use auditory icons,
647 it's reallllly cool now!!! 647 it's reallllly cool now!!!
648 648
649 * erc-speak.el: *** empty log message *** 649 * erc-speak.el: *** empty log message ***
@@ -655,9 +655,9 @@
655 655
656 * debian/changelog: oops, silly typo 656 * debian/changelog: oops, silly typo
657 657
658 * debian/changelog, debian/control, debian/copyright, 658 * debian/changelog, debian/control, debian/copyright,
659 debian/maint/conffiles, debian/maint/postinst, debian/maint/prerm, 659 debian/maint/conffiles, debian/maint/postinst, debian/maint/prerm,
660 debian/rules, debian/scripts/install, debian/scripts/remove, 660 debian/rules, debian/scripts/install, debian/scripts/remove,
661 debian/scripts/startup: 661 debian/scripts/startup:
662 initial check-in 662 initial check-in
663 663
@@ -666,7 +666,7 @@
666 * erc.el: 666 * erc.el:
667 * Changed erc-insert-hook to get two arguments, START and END of the region 667 * Changed erc-insert-hook to get two arguments, START and END of the region
668 which got inserted. CAREFUL! This could break stuff, but it makes the hook 668 which got inserted. CAREFUL! This could break stuff, but it makes the hook
669 much more useable. 669 much more usable.
670 670
671 * erc.el: 671 * erc.el:
672 * Made erc-smiley a new option, currently set to t to showoff this feature. :) 672 * Made erc-smiley a new option, currently set to t to showoff this feature. :)
@@ -830,7 +830,7 @@
830 * Fix for custom problem with :must-match on XEmacs (thanks shapr) 830 * Fix for custom problem with :must-match on XEmacs (thanks shapr)
831 * Added /COUNTRY command using (what-domain) from package mail-extr (shapr) 831 * Added /COUNTRY command using (what-domain) from package mail-extr (shapr)
832 * Fix for case-sensitivity problem with pals (they are now all downcased) 832 * Fix for case-sensitivity problem with pals (they are now all downcased)
833 * Different (erc-version) function which now can take prefix argument to insert the version information into the current buffer, 833 * Different (erc-version) function which now can take prefix argument to insert the version information into the current buffer,
834 instead of just displaying it in the minibuffer. 834 instead of just displaying it in the minibuffer.
835 835
8362001-09-10 Mario Lang <mlang@delysid.org> 8362001-09-10 Mario Lang <mlang@delysid.org>
@@ -1055,4 +1055,3 @@
1055;; Local Variables: 1055;; Local Variables:
1056;; coding: utf-8 1056;; coding: utf-8
1057;; End: 1057;; End:
1058
diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03
index 7f82a9bcbe2..74f2ab442b9 100644
--- a/lisp/erc/ChangeLog.03
+++ b/lisp/erc/ChangeLog.03
@@ -323,7 +323,7 @@
323 323
324 * erc.el(erc-modules): Add some more symbols to the set 324 * erc.el(erc-modules): Add some more symbols to the set
325 325
326 * erc.el(erc-modules): * erc.el(erc-modules): Add :greedy t to the set in 326 * erc.el(erc-modules): * erc.el(erc-modules): Add :greedy t to the set in
327 327
328 * erc-dcc.el: 328 * erc-dcc.el:
329 More autoloads which make dcc autoload upon ctcp dcc query received. 329 More autoloads which make dcc autoload upon ctcp dcc query received.
@@ -744,7 +744,7 @@
744 744
7452003-04-27 Damien Elmes <erc@repose.cx> 7452003-04-27 Damien Elmes <erc@repose.cx>
746 746
747 * erc.el: * erc.el: erc-modules: added 747 * erc.el: * erc.el: erc-modules: added
748 748
7492003-04-27 Alex Schroeder <alex@gnu.org> 7492003-04-27 Alex Schroeder <alex@gnu.org>
750 750
@@ -1232,7 +1232,7 @@
1232 1232
12332003-01-19 Mario Lang <mlang@delysid.org> 12332003-01-19 Mario Lang <mlang@delysid.org>
1234 1234
1235 * debian/README.Debian, debian/changelog, debian/scripts/install, 1235 * debian/README.Debian, debian/changelog, debian/scripts/install,
1236 debian/scripts/startup.erc, Makefile: 1236 debian/scripts/startup.erc, Makefile:
1237 Prepare for 20030119 debian package 1237 Prepare for 20030119 debian package
1238 1238
@@ -1609,7 +1609,7 @@
1609 POS in any case, otherwise, linewrap occurs. 1609 POS in any case, otherwise, linewrap occurs.
1610 1610
1611 * erc-dcc.el: 1611 * erc-dcc.el:
1612 * Fixed the unibyte-multibyte problem (now a dcc get buffer is (set-buffer-multibyte nil), 1612 * Fixed the unibyte-multibyte problem (now a dcc get buffer is (set-buffer-multibyte nil),
1613 and saves correctly (tried with 21.3.50). Thanks to Eli for suggesting it! 1613 and saves correctly (tried with 21.3.50). Thanks to Eli for suggesting it!
1614 * Added :start-time plist property/value to GET handling so that we can calculate elapsed-time. 1614 * Added :start-time plist property/value to GET handling so that we can calculate elapsed-time.
1615 * Some (unwind-protect (progn (set-buffer ...) ...)) constructs replaced with (with-current-buffer ...) 1615 * Some (unwind-protect (progn (set-buffer ...) ...)) constructs replaced with (with-current-buffer ...)
@@ -1691,12 +1691,12 @@
1691 1691
16922003-01-11 Mario Lang <mlang@delysid.org> 16922003-01-11 Mario Lang <mlang@delysid.org>
1693 1693
1694 * erc-dcc.el: * erc-dcc.el: * (erc-dcc-do-LIST-command): Fix 1694 * erc-dcc.el: * erc-dcc.el: * (erc-dcc-do-LIST-command): Fix
1695 1695
1696 * erc-dcc.el: 1696 * erc-dcc.el:
1697 * buffer-local variables erc-dcc-sent-marker and erc-dcc-send-confirmed marker removed 1697 * buffer-local variables erc-dcc-sent-marker and erc-dcc-send-confirmed marker removed
1698 Keep This info in erc-dcc-member :sent and :confirmed plist values 1698 Keep This info in erc-dcc-member :sent and :confirmed plist values
1699 * : * :buffer plist for :type 'SEND removed, since we can get this with (marker-buffer 1699 * : * :buffer plist for :type 'SEND removed, since we can get this with (marker-buffer
1700 * erc-dcc-send-connect-hook: New hook, defaults to erc-dcc-send-block and erc-dcc-send-connected, which now prints a msg... 1700 * erc-dcc-send-connect-hook: New hook, defaults to erc-dcc-send-block and erc-dcc-send-connected, which now prints a msg...
1701 1701
1702 * erc-dcc.el: 1702 * erc-dcc.el:
@@ -1985,7 +1985,7 @@
1985 (erc-server-PRIVMSG-or-NOTICE): Capitalized first word in message to user. 1985 (erc-server-PRIVMSG-or-NOTICE): Capitalized first word in message to user.
1986 1986
1987 * erc.el(erc-scroll-to-bottom): 1987 * erc.el(erc-scroll-to-bottom):
1988 Temporarilly bind resize-mini-windows to nil so that 1988 Temporarily bind resize-mini-windows to nil so that
1989 users who have it set to a non-nil value will not suffer from premature 1989 users who have it set to a non-nil value will not suffer from premature
1990 minibuffer shrinkage due to the below recenter call. I have no idea why 1990 minibuffer shrinkage due to the below recenter call. I have no idea why
1991 this works, but it solves the problem, and has no negative side effects. 1991 this works, but it solves the problem, and has no negative side effects.
@@ -2160,4 +2160,3 @@ See ChangeLog.02 for earlier changes.
2160;; Local Variables: 2160;; Local Variables:
2161;; coding: utf-8 2161;; coding: utf-8
2162;; End: 2162;; End:
2163
diff --git a/lisp/eshell/em-hist.el b/lisp/eshell/em-hist.el
index 993e9d63a94..db5e98062a9 100644
--- a/lisp/eshell/em-hist.el
+++ b/lisp/eshell/em-hist.el
@@ -609,7 +609,7 @@ See also `eshell-read-history'."
609 history)))) 609 history))))
610 (setq index (1- index))) 610 (setq index (1- index)))
611 (let ((fhist (list t))) 611 (let ((fhist (list t)))
612 ;; uniqify the list, but preserve the order 612 ;; uniquify the list, but preserve the order
613 (while history 613 (while history
614 (unless (member (car history) fhist) 614 (unless (member (car history) fhist)
615 (nconc fhist (list (car history)))) 615 (nconc fhist (list (car history))))
diff --git a/lisp/files.el b/lisp/files.el
index aac415c1a96..6cf94a89c92 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2603,7 +2603,7 @@ we don't actually set it to the same mode the buffer already has."
2603 (if (looking-at auto-mode-interpreter-regexp) 2603 (if (looking-at auto-mode-interpreter-regexp)
2604 (match-string 2) 2604 (match-string 2)
2605 "")) 2605 ""))
2606 ;; Map interpreter name to a mode, signalling we're done at the 2606 ;; Map interpreter name to a mode, signaling we're done at the
2607 ;; same time. 2607 ;; same time.
2608 done (assoc (file-name-nondirectory mode) 2608 done (assoc (file-name-nondirectory mode)
2609 interpreter-mode-alist)) 2609 interpreter-mode-alist))
@@ -6500,7 +6500,7 @@ Otherwise, trash FILENAME using the freedesktop.org conventions,
6500 (setq tries 0 success t)) 6500 (setq tries 0 success t))
6501 (file-already-exists nil)) 6501 (file-already-exists nil))
6502 (setq tries (1- tries)) 6502 (setq tries (1- tries))
6503 ;; Uniqify new-fn. (Some file managers do not 6503 ;; Uniquify new-fn. (Some file managers do not
6504 ;; like Emacs-style backup file names---e.g. bug 6504 ;; like Emacs-style backup file names---e.g. bug
6505 ;; 170956 in Konqueror bug tracker.) 6505 ;; 170956 in Konqueror bug tracker.)
6506 (setq new-fn (make-temp-name (concat base-fn "_"))))) 6506 (setq new-fn (make-temp-name (concat base-fn "_")))))
diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el
index 15c3d41bece..743b4580cff 100644
--- a/lisp/gnus/gnus-uu.el
+++ b/lisp/gnus/gnus-uu.el
@@ -41,7 +41,7 @@
41 :group 'gnus) 41 :group 'gnus)
42 42
43(defgroup gnus-extract-view nil 43(defgroup gnus-extract-view nil
44 "Viewwing extracted files." 44 "Viewing extracted files."
45 :group 'gnus-extract) 45 :group 'gnus-extract)
46 46
47(defgroup gnus-extract-archive nil 47(defgroup gnus-extract-archive nil
diff --git a/lisp/gnus/gnus-win.el b/lisp/gnus/gnus-win.el
index a1a8abc3086..ecd5b3b525b 100644
--- a/lisp/gnus/gnus-win.el
+++ b/lisp/gnus/gnus-win.el
@@ -54,7 +54,7 @@
54 :type 'boolean) 54 :type 'boolean)
55 55
56(defcustom gnus-use-frames-on-any-display nil 56(defcustom gnus-use-frames-on-any-display nil
57 "*If non-nil, frames on all displays will be considered useable by Gnus. 57 "*If non-nil, frames on all displays will be considered usable by Gnus.
58When nil, only frames on the same display as the selected frame will be 58When nil, only frames on the same display as the selected frame will be
59used to display Gnus windows." 59used to display Gnus windows."
60 :version "22.1" 60 :version "22.1"
diff --git a/lisp/info.el b/lisp/info.el
index b8deb3c9c7f..b3bdbc5e5be 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -3328,7 +3328,7 @@ Return a list of matches where each element is in the format
3328 (Info-directory) 3328 (Info-directory)
3329 ;; current-node and current-file are nil when they invoke info-apropos 3329 ;; current-node and current-file are nil when they invoke info-apropos
3330 ;; as the first Info command, i.e. info-apropos loads info.el. In that 3330 ;; as the first Info command, i.e. info-apropos loads info.el. In that
3331 ;; case, we use (DIR)Top instead, to avoid signalling an error after 3331 ;; case, we use (DIR)Top instead, to avoid signaling an error after
3332 ;; the search is complete. 3332 ;; the search is complete.
3333 (when (null current-node) 3333 (when (null current-node)
3334 (setq current-file Info-current-file) 3334 (setq current-file Info-current-file)
diff --git a/lisp/language/vietnamese.el b/lisp/language/vietnamese.el
index 97d5037f3c5..e723e154dc1 100644
--- a/lisp/language/vietnamese.el
+++ b/lisp/language/vietnamese.el
@@ -28,7 +28,7 @@
28 28
29;;; Commentary: 29;;; Commentary:
30 30
31;; For Vietnames, the character sets VISCII, VSCII and TCVN-5712 are 31;; For Vietnamese, the character sets VISCII, VSCII and TCVN-5712 are
32;; supported. 32;; supported.
33 33
34;;; Code: 34;;; Code:
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 016fde2bef4..5842f8e741f 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2071,7 +2071,7 @@ Call with point at the end of the message."
2071(defun rmail-add-mbox-headers () 2071(defun rmail-add-mbox-headers ()
2072 "Validate the RFC2822 format for the new messages. 2072 "Validate the RFC2822 format for the new messages.
2073Point should be at the first new message. 2073Point should be at the first new message.
2074An error is signalled if the new messages are not RFC2822 2074An error is signaled if the new messages are not RFC2822
2075compliant. 2075compliant.
2076Unless an Rmail attribute header already exists, add it to the 2076Unless an Rmail attribute header already exists, add it to the
2077new messages. Return the number of new messages." 2077new messages. Return the number of new messages."
@@ -2440,7 +2440,7 @@ Output a helpful message unless NOMSG is non-nil."
2440 ;; the entry for message N+1, which marks 2440 ;; the entry for message N+1, which marks
2441 ;; the end of message N. (N = number of messages). 2441 ;; the end of message N. (N = number of messages).
2442 (setq messages-head (list (point-marker))) 2442 (setq messages-head (list (point-marker)))
2443 (setq messages-after-point 2443 (setq messages-after-point
2444 (or (rmail-set-message-counters-counter (min (point) point-save)) 2444 (or (rmail-set-message-counters-counter (min (point) point-save))
2445 0)) 2445 0))
2446 2446
@@ -3096,7 +3096,7 @@ but probably is garbage."
3096 ;; correspond to the lines in the inbox file. 3096 ;; correspond to the lines in the inbox file.
3097 (goto-char (point-min)) 3097 (goto-char (point-min))
3098 (if header-field 3098 (if header-field
3099 (progn 3099 (progn
3100 (re-search-forward (concat "^" (regexp-quote header-field)) nil t) 3100 (re-search-forward (concat "^" (regexp-quote header-field)) nil t)
3101 (forward-line line-number-within)) 3101 (forward-line line-number-within))
3102 (search-forward "\n\n" nil t) 3102 (search-forward "\n\n" nil t)
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index d3351255583..f9eaa68c85b 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -882,7 +882,7 @@ The other arguments are the same as `rmail-mime-multipart-handler'."
882 ;; We're handling what's left of a truncated message. 882 ;; We're handling what's left of a truncated message.
883 (setq next (point-max-marker))) 883 (setq next (point-max-marker)))
884 (t 884 (t
885 ;; The original code signalled an error as below, but 885 ;; The original code signaled an error as below, but
886 ;; this line may be a boundary of nested multipart. So, 886 ;; this line may be a boundary of nested multipart. So,
887 ;; we just set `next' to nil to skip this line 887 ;; we just set `next' to nil to skip this line
888 ;; (rmail-mm-get-boundary-error-message 888 ;; (rmail-mm-get-boundary-error-message
diff --git a/lisp/mpc.el b/lisp/mpc.el
index 40ccb456400..238e8ad68ae 100644
--- a/lisp/mpc.el
+++ b/lisp/mpc.el
@@ -2358,7 +2358,7 @@ This is used so that they can be compared with `eq', which is needed for
2358 (let* ((currenttime (float-time)) 2358 (let* ((currenttime (float-time))
2359 (last-time (- currenttime (car mpc-last-seek-time)))) 2359 (last-time (- currenttime (car mpc-last-seek-time))))
2360 (if (< last-time (* 0.9 repeat-delay)) 2360 (if (< last-time (* 0.9 repeat-delay))
2361 nil ;; Trottle 2361 nil ;; Throttle
2362 (let* ((status (if (< last-time 1.0) 2362 (let* ((status (if (< last-time 1.0)
2363 mpc-status (mpc-cmd-status))) 2363 mpc-status (mpc-cmd-status)))
2364 (songid (cdr (assq 'songid status))) 2364 (songid (cdr (assq 'songid status)))
diff --git a/lisp/net/snmp-mode.el b/lisp/net/snmp-mode.el
index e9783d46ba8..8112ed5b177 100644
--- a/lisp/net/snmp-mode.el
+++ b/lisp/net/snmp-mode.el
@@ -676,7 +676,7 @@ controls whether case is significant."
676;; v2 SMI TEXTUAL-CONVENTION macro template 676;; v2 SMI TEXTUAL-CONVENTION macro template
677;; 677;;
678(tempo-define-template "snmpv2-textual-convention" 678(tempo-define-template "snmpv2-textual-convention"
679 '(> (P "Texual Convention Type: ") " ::= TEXTUAL-CONVENTION" n> 679 '(> (P "Textual Convention Type: ") " ::= TEXTUAL-CONVENTION" n>
680 "STATUS " 680 "STATUS "
681 (if tempo-interactive 681 (if tempo-interactive
682 (snmp-completing-read "Status: " snmp-mode-status-list nil t) 682 (snmp-completing-read "Status: " snmp-mode-status-list nil t)
diff --git a/lisp/net/soap-client.el b/lisp/net/soap-client.el
index d6949e4d250..74f51d148ef 100644
--- a/lisp/net/soap-client.el
+++ b/lisp/net/soap-client.el
@@ -373,7 +373,7 @@ binding) but the same name."
373 373
374(defstruct (soap-sequence-type (:include soap-element)) 374(defstruct (soap-sequence-type (:include soap-element))
375 parent ; OPTIONAL WSDL-TYPE name 375 parent ; OPTIONAL WSDL-TYPE name
376 elements ; LIST of SOAP-SEQUCENCE-ELEMENT 376 elements ; LIST of SOAP-SEQUENCE-ELEMENT
377 ) 377 )
378 378
379(defstruct (soap-array-type (:include soap-element)) 379(defstruct (soap-array-type (:include soap-element))
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el
index 56e9cb68c61..efb2cdd6166 100644
--- a/lisp/net/xesam.el
+++ b/lisp/net/xesam.el
@@ -409,7 +409,7 @@ If there is no registered search engine at all, the function returns `nil'."
409 (setq vendor-id (xesam-get-property engine "vendor.id") 409 (setq vendor-id (xesam-get-property engine "vendor.id")
410 hit-fields (xesam-get-property engine "hit.fields")) 410 hit-fields (xesam-get-property engine "hit.fields"))
411 411
412 ;; Ususally, `hit.fields' shall describe supported fields. 412 ;; Usually, `hit.fields' shall describe supported fields.
413 ;; That is not the case now, so we set it ourselves. 413 ;; That is not the case now, so we set it ourselves.
414 ;; Hopefully, this will change later. 414 ;; Hopefully, this will change later.
415 (setq hit-fields 415 (setq hit-fields
diff --git a/lisp/net/zeroconf.el b/lisp/net/zeroconf.el
index d801a4c094c..9060e091587 100644
--- a/lisp/net/zeroconf.el
+++ b/lisp/net/zeroconf.el
@@ -486,7 +486,7 @@ TYPE. The resulting list has the format
486 (nth 9 (zeroconf-resolve-service service))) 486 (nth 9 (zeroconf-resolve-service service)))
487 487
488 488
489;;; Services signalling. 489;;; Services signaling.
490 490
491;; Register for the service type browser. Service registrations will 491;; Register for the service type browser. Service registrations will
492;; happen in `zeroconf-service-type-browser-handler', when there is an 492;; happen in `zeroconf-service-type-browser-handler', when there is an
diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index f6bd1ffa2d4..704da5fa68e 100644
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -5020,7 +5020,7 @@
5020 with code implementing the writing of graohical output to file. 5020 with code implementing the writing of graohical output to file.
5021 (org-babel-execute:R): Use `org-babel-R-graphical-output-file' to 5021 (org-babel-execute:R): Use `org-babel-R-graphical-output-file' to
5022 determine whether R is taking responsibility for writing output to 5022 determine whether R is taking responsibility for writing output to
5023 file; if so, this is signalled to ob.el by returning a nil result. 5023 file; if so, this is signaled to ob.el by returning a nil result.
5024 5024
50252011-07-28 Dan Davison <dandavison7@gmail.com> 50252011-07-28 Dan Davison <dandavison7@gmail.com>
5026 5026
@@ -18037,4 +18037,3 @@
18037 18037
18038 You should have received a copy of the GNU General Public License 18038 You should have received a copy of the GNU General Public License
18039 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 18039 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
18040
diff --git a/lisp/org/org-list.el b/lisp/org/org-list.el
index 866176e4e8f..2fe512329ca 100644
--- a/lisp/org/org-list.el
+++ b/lisp/org/org-list.el
@@ -2642,7 +2642,7 @@ If a region is active, all items inside will be moved."
2642(defvar org-tab-ind-state) 2642(defvar org-tab-ind-state)
2643(defun org-cycle-item-indentation () 2643(defun org-cycle-item-indentation ()
2644 "Cycle levels of indentation of an empty item. 2644 "Cycle levels of indentation of an empty item.
2645The first run indents the item, if applicable. Subsequents runs 2645The first run indents the item, if applicable. Subsequent runs
2646outdent it at meaningful levels in the list. When done, item is 2646outdent it at meaningful levels in the list. When done, item is
2647put back at its original position with its original bullet. 2647put back at its original position with its original bullet.
2648 2648
diff --git a/lisp/org/org.el b/lisp/org/org.el
index da39aa189ba..10531b07325 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -2681,7 +2681,7 @@ When this variable is set to t, the date/time prompt will not let
2681you specify dates outside the 1970-2037 range, so it is certain that 2681you specify dates outside the 1970-2037 range, so it is certain that
2682these dates will work in whatever version of Emacs you are 2682these dates will work in whatever version of Emacs you are
2683running, and also that you can move a file from one Emacs implementation 2683running, and also that you can move a file from one Emacs implementation
2684to another. WHenever Org is forcing the year for you, it will display 2684to another. Whenever Org is forcing the year for you, it will display
2685a message and beep. 2685a message and beep.
2686 2686
2687When this variable is nil, Org will check if the date is 2687When this variable is nil, Org will check if the date is
diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index e59fdc16af7..151dbd0c76e 100644
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -2969,7 +2969,7 @@ A prefix argument acts as a repeat count. With a negative argument,
2969move backward across a preprocessor conditional. 2969move backward across a preprocessor conditional.
2970 2970
2971If there aren't enough conditionals after \(or before) point, an 2971If there aren't enough conditionals after \(or before) point, an
2972error is signalled. 2972error is signaled.
2973 2973
2974\"#elif\" is treated like \"#else\" followed by \"#if\", except that 2974\"#elif\" is treated like \"#else\" followed by \"#if\", except that
2975the nesting level isn't changed when tracking subconditionals. 2975the nesting level isn't changed when tracking subconditionals.
@@ -4094,7 +4094,7 @@ command to conveniently insert and align the necessary backslashes."
4094; (or (<= (- (cdr c-lit-limits) 2) (point)) 4094; (or (<= (- (cdr c-lit-limits) 2) (point))
4095; 2010-10-17 Construct removed. 4095; 2010-10-17 Construct removed.
4096; (or (< (- (cdr c-lit-limits) 2) (point)) 4096; (or (< (- (cdr c-lit-limits) 2) (point))
4097 (and 4097 (and
4098 (search-forward-regexp 4098 (search-forward-regexp
4099 (concat "\\=[ \t]*\\(" c-current-comment-prefix "\\)") 4099 (concat "\\=[ \t]*\\(" c-current-comment-prefix "\\)")
4100 (- (cdr c-lit-limits) 2) t) 4100 (- (cdr c-lit-limits) 2) t)
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index 8632807f2b8..fb9fd406ef8 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -555,7 +555,7 @@ certain situations."
555 `(c-forward-sexp ,(if (numberp count) (- count) `(- ,count)))) 555 `(c-forward-sexp ,(if (numberp count) (- count) `(- ,count))))
556 556
557(defmacro c-safe-scan-lists (from count depth &optional limit) 557(defmacro c-safe-scan-lists (from count depth &optional limit)
558 "Like `scan-lists' but returns nil instead of signalling errors 558 "Like `scan-lists' but returns nil instead of signaling errors
559for unbalanced parens. 559for unbalanced parens.
560 560
561A limit for the search may be given. FROM is assumed to be on the 561A limit for the search may be given. FROM is assumed to be on the
@@ -760,7 +760,7 @@ be after it."
760;; non-nil if point (or the optional parameter POS) is at a VS, nil otherwise. 760;; non-nil if point (or the optional parameter POS) is at a VS, nil otherwise.
761;; 761;;
762;; The language specific function might well do extensive analysis of the 762;; The language specific function might well do extensive analysis of the
763;; source text, and may use a cacheing scheme to speed up repeated calls. 763;; source text, and may use a caching scheme to speed up repeated calls.
764;; 764;;
765;; The "virtual semicolon" lies just after the last non-ws token on the line. 765;; The "virtual semicolon" lies just after the last non-ws token on the line.
766;; Like POINT, it is considered to lie between two characters. For example, 766;; Like POINT, it is considered to lie between two characters. For example,
@@ -784,7 +784,7 @@ be after it."
784;; `c-beginning-of-statement-1'. `c-vsemi-status-unknown-p' may not itself 784;; `c-beginning-of-statement-1'. `c-vsemi-status-unknown-p' may not itself
785;; call `c-beginning-of-statement-1'. 785;; call `c-beginning-of-statement-1'.
786;; 786;;
787;; The macro `c-vsemi-status-unknown-p' will typically check the cacheing 787;; The macro `c-vsemi-status-unknown-p' will typically check the caching
788;; scheme used by the `c-at-vsemi-p-fn', hence the name - the status is 788;; scheme used by the `c-at-vsemi-p-fn', hence the name - the status is
789;; "unknown" if there is no cache entry current for the line. 789;; "unknown" if there is no cache entry current for the line.
790;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 790;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index e47ba3c92f3..c88727c721c 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -350,7 +350,7 @@ automatically.
350 350
351This setting is used in non-stop mode only. In all-stop mode, 351This setting is used in non-stop mode only. In all-stop mode,
352Emacs always switches to the thread which caused the stop." 352Emacs always switches to the thread which caused the stop."
353 ;; exited, exited-normally and exited-signalled are not 353 ;; exited, exited-normally and exited-signaled are not
354 ;; thread-specific stop reasons and therefore are not included in 354 ;; thread-specific stop reasons and therefore are not included in
355 ;; this list 355 ;; this list
356 :type '(choice 356 :type '(choice
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index 95f67a6bf66..d3770247c60 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -7206,7 +7206,7 @@ If these don't exist, a letter in the string is automatically selected."
7206;;---------------------------------------------------------------------- 7206;;----------------------------------------------------------------------
7207 7207
7208;;; ------------------------------------------------------------------------ 7208;;; ------------------------------------------------------------------------
7209;;; Stucture parsing code, and code to manage class info 7209;;; Structure parsing code, and code to manage class info
7210 7210
7211;; 7211;;
7212;; - Go again over the documentation how to write a completion 7212;; - Go again over the documentation how to write a completion
diff --git a/lisp/progmodes/verilog-mode.el b/lisp/progmodes/verilog-mode.el
index f7cb1318dc0..9ef7440f8da 100644
--- a/lisp/progmodes/verilog-mode.el
+++ b/lisp/progmodes/verilog-mode.el
@@ -2709,7 +2709,7 @@ either is ok to parse as a non-comment, or `verilog-insert' was used."
2709 (remove-text-properties (point-min) (point-max) '(v-cmt nil)) 2709 (remove-text-properties (point-min) (point-max) '(v-cmt nil))
2710 (verilog-scan-region (point-min) (point-max)) 2710 (verilog-scan-region (point-min) (point-max))
2711 (setq verilog-scan-cache-tick (buffer-chars-modified-tick)) 2711 (setq verilog-scan-cache-tick (buffer-chars-modified-tick))
2712 (when verilog-debug (message "Scaning... done")))))) 2712 (when verilog-debug (message "Scanning... done"))))))
2713 2713
2714(defun verilog-inside-comment-p () 2714(defun verilog-inside-comment-p ()
2715 "Check if point inside a comment. 2715 "Check if point inside a comment.
@@ -11958,7 +11958,7 @@ Files are checked based on `verilog-library-flags'."
11958 (mouse-set-point event) 11958 (mouse-set-point event)
11959 (verilog-load-file-at-point t))) 11959 (verilog-load-file-at-point t)))
11960 11960
11961;; ffap isn't useable for Verilog mode. It uses library paths. 11961;; ffap isn't usable for Verilog mode. It uses library paths.
11962;; so define this function to do more or less the same as ffap 11962;; so define this function to do more or less the same as ffap
11963;; but first resolve filename... 11963;; but first resolve filename...
11964(defun verilog-load-file-at-point (&optional warn) 11964(defun verilog-load-file-at-point (&optional warn)
diff --git a/lisp/view.el b/lisp/view.el
index ef865007332..6955fbdfad8 100644
--- a/lisp/view.el
+++ b/lisp/view.el
@@ -925,7 +925,7 @@ for highlighting the match that is found."
925 925
926(defun view-search (times regexp) 926(defun view-search (times regexp)
927 ;; This function does the job for all the View-search- commands. 927 ;; This function does the job for all the View-search- commands.
928 ;; Search for the TIMESt match for REGEXP. If TIMES is negative 928 ;; Search for the TIMESth match for REGEXP. If TIMES is negative
929 ;; search backwards. If REGEXP is nil use `view-last-regexp'. 929 ;; search backwards. If REGEXP is nil use `view-last-regexp'.
930 ;; Characters "!" and "@" have a special meaning at the beginning of 930 ;; Characters "!" and "@" have a special meaning at the beginning of
931 ;; REGEXP and are removed from REGEXP before the search "!" means 931 ;; REGEXP and are removed from REGEXP before the search "!" means
diff --git a/lisp/window.el b/lisp/window.el
index 7b16d6b886f..ddb29b95856 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -5409,7 +5409,7 @@ by `recenter-positions'."
5409;;; of buffer). 5409;;; of buffer).
5410 5410
5411(defcustom scroll-error-top-bottom nil 5411(defcustom scroll-error-top-bottom nil
5412 "Move point to top/bottom of buffer before signalling a scrolling error. 5412 "Move point to top/bottom of buffer before signaling a scrolling error.
5413A value of nil means just signal an error if no more scrolling possible. 5413A value of nil means just signal an error if no more scrolling possible.
5414A value of t means point moves to the beginning or the end of the buffer 5414A value of t means point moves to the beginning or the end of the buffer
5415\(depending on scrolling direction) when no more scrolling possible. 5415\(depending on scrolling direction) when no more scrolling possible.
diff --git a/lisp/woman.el b/lisp/woman.el
index 078acfc0362..4999a08bb72 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1439,7 +1439,7 @@ The cdr of each alist element is the path-index / filename."
1439 (push (woman-topic-all-completions-1 dir path-index) 1439 (push (woman-topic-all-completions-1 dir path-index)
1440 files)) 1440 files))
1441 (setq path-index (1+ path-index))) 1441 (setq path-index (1+ path-index)))
1442 ;; Uniquefy topics: 1442 ;; Uniquify topics:
1443 ;; Concatenate all lists with a single nconc call to 1443 ;; Concatenate all lists with a single nconc call to
1444 ;; avoid retraversing the first lists repeatedly -- dak 1444 ;; avoid retraversing the first lists repeatedly -- dak
1445 (woman-topic-all-completions-merge 1445 (woman-topic-all-completions-merge
diff --git a/src/ChangeLog.1 b/src/ChangeLog.1
index e32db190cd0..830905cd0b5 100644
--- a/src/ChangeLog.1
+++ b/src/ChangeLog.1
@@ -2375,7 +2375,7 @@
2375 Often, just return what it returned. 2375 Often, just return what it returned.
2376 `error' still never returns to its caller. 2376 `error' still never returns to its caller.
2377 2377
2378 * Signalling Qargs_out_of_range: 2378 * Signaling Qargs_out_of_range:
2379 Use new functions args_out_of_range and args_out_of_range_3 2379 Use new functions args_out_of_range and args_out_of_range_3
2380 (in data.c) to do this. 2380 (in data.c) to do this.
2381 2381
@@ -3537,4 +3537,3 @@
3537 3537
3538 You should have received a copy of the GNU General Public License 3538 You should have received a copy of the GNU General Public License
3539 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 3539 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
3540
diff --git a/src/ChangeLog.10 b/src/ChangeLog.10
index 6152b4c76af..9b61d107059 100644
--- a/src/ChangeLog.10
+++ b/src/ChangeLog.10
@@ -5133,7 +5133,7 @@
5133 it can be called in a signal handler. 5133 it can be called in a signal handler.
5134 (x_catch_errors_unwind): Function deleted. 5134 (x_catch_errors_unwind): Function deleted.
5135 (x_uncatch_errors): Deallocate last x_error_message_stack struct. 5135 (x_uncatch_errors): Deallocate last x_error_message_stack struct.
5136 (x_check_errors): Call x_uncatch_errors before signalling error. 5136 (x_check_errors): Call x_uncatch_errors before signaling error.
5137 5137
5138 (x_load_font, x_term_init, XTmouse_position, handle_one_xevent) 5138 (x_load_font, x_term_init, XTmouse_position, handle_one_xevent)
5139 (x_connection_closed, x_list_fonts): Use new versions of 5139 (x_connection_closed, x_list_fonts): Use new versions of
@@ -27928,4 +27928,3 @@ See ChangeLog.9 for earlier changes.
27928 27928
27929 You should have received a copy of the GNU General Public License 27929 You should have received a copy of the GNU General Public License
27930 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 27930 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
27931
diff --git a/src/ChangeLog.11 b/src/ChangeLog.11
index bd1a6ec5918..49bafda36a0 100644
--- a/src/ChangeLog.11
+++ b/src/ChangeLog.11
@@ -11972,7 +11972,7 @@
11972 11972
11973 * image.c (xbm_read_bitmap_data): New arg inhibit_image_error. 11973 * image.c (xbm_read_bitmap_data): New arg inhibit_image_error.
11974 (xbm_load_image): Caller changed. 11974 (xbm_load_image): Caller changed.
11975 (xbm_file_p): Avoid signalling an image_error (Bug#4107). 11975 (xbm_file_p): Avoid signaling an image_error (Bug#4107).
11976 11976
119772009-08-13 Nick Roberts <nickrob@snap.net.nz> 119772009-08-13 Nick Roberts <nickrob@snap.net.nz>
11978 11978
@@ -16658,7 +16658,7 @@
166582008-08-20 Chong Yidong <cyd@stupidchicken.com> 166582008-08-20 Chong Yidong <cyd@stupidchicken.com>
16659 16659
16660 * xselect.c (x_get_foreign_selection): Return nil if desired 16660 * xselect.c (x_get_foreign_selection): Return nil if desired
16661 selection could not be obtained, instead of signalling an error. 16661 selection could not be obtained, instead of signaling an error.
16662 16662
166632008-08-20 David Reitter <david.reitter@gmail.com> 166632008-08-20 David Reitter <david.reitter@gmail.com>
16664 16664
diff --git a/src/ChangeLog.2 b/src/ChangeLog.2
index ca7feaee9f5..05e448c043c 100644
--- a/src/ChangeLog.2
+++ b/src/ChangeLog.2
@@ -1222,7 +1222,7 @@
12221987-07-10 Chris Hanson (cph@prep) 12221987-07-10 Chris Hanson (cph@prep)
1223 1223
1224 * xterm.h: Define macros to abstract control of input signals. 1224 * xterm.h: Define macros to abstract control of input signals.
1225 Alternate set of macros for hp-ux does no signalling. 1225 Alternate set of macros for hp-ux does no signaling.
1226 1226
1227 * xterm.c: 1227 * xterm.c:
1228 * xfns.c: 1228 * xfns.c:
@@ -4787,4 +4787,3 @@ See ChangeLog.1 for earlier changes.
4787 4787
4788 You should have received a copy of the GNU General Public License 4788 You should have received a copy of the GNU General Public License
4789 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. 4789 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
4790
diff --git a/src/ChangeLog.3 b/src/ChangeLog.3
index 79a580938d7..2b63ed11bcc 100644
--- a/src/ChangeLog.3
+++ b/src/ChangeLog.3
@@ -900,9 +900,9 @@
900 invalid overlay. 900 invalid overlay.
901 (syms_of_buffer): defsubr Soverlayp; initialize Qoverlayp. 901 (syms_of_buffer): defsubr Soverlayp; initialize Qoverlayp.
902 (Fdelete_overlay): Set the overlay's markers to point nowhere. 902 (Fdelete_overlay): Set the overlay's markers to point nowhere.
903 Use CHECK_OVERLAY instead of signalling a special error. 903 Use CHECK_OVERLAY instead of signaling a special error.
904 (Fmove_overlay, Foverlay_put): Use CHECK_OVERLAY instead of 904 (Fmove_overlay, Foverlay_put): Use CHECK_OVERLAY instead of
905 signalling a special error. 905 signaling a special error.
906 (Foverlay_get): Use CHECK_OVERLAY. 906 (Foverlay_get): Use CHECK_OVERLAY.
907 * fns.c (internal_equal): Define this for overlays. 907 * fns.c (internal_equal): Define this for overlays.
908 * buffer.h (OVERLAY_VALID): Define in terms of OVERLAYP. 908 * buffer.h (OVERLAY_VALID): Define in terms of OVERLAYP.
@@ -5549,7 +5549,7 @@
5549 h->poll_suppress_count. 5549 h->poll_suppress_count.
5550 5550
5551 * eval.c (Fsignal): It's okay for the debugger to return to the 5551 * eval.c (Fsignal): It's okay for the debugger to return to the
5552 caller if the caller was signalling a quit. 5552 caller if the caller was signaling a quit.
5553 5553
5554 * eval.c (unbind_catch): Restore the polling suppression count 5554 * eval.c (unbind_catch): Restore the polling suppression count
5555 here, instead of in Fsignal and Fthrow. 5555 here, instead of in Fsignal and Fthrow.
@@ -10592,7 +10592,7 @@
10592 (init_x_parm_symbols, x_set_screen_param): Use x_screen_parms 10592 (init_x_parm_symbols, x_set_screen_param): Use x_screen_parms
10593 instead of a large switch statement. 10593 instead of a large switch statement.
10594 (x_figure_window_size): Make the default case of the switch call 10594 (x_figure_window_size): Make the default case of the switch call
10595 abort instead of signalling an error, since window_prompting's 10595 abort instead of signaling an error, since window_prompting's
10596 value is internally generated. 10596 value is internally generated.
10597 10597
105981991-05-01 Jim Blandy (jimb@churchy.gnu.ai.mit.edu) 105981991-05-01 Jim Blandy (jimb@churchy.gnu.ai.mit.edu)
@@ -14884,7 +14884,7 @@
14884 14884
148851989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu) 148851989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu)
14886 14886
14887 * fileio.c (barf_or_query_if_file_exists): When signalling, 14887 * fileio.c (barf_or_query_if_file_exists): When signaling,
14888 provide the expected args for a file-error. 14888 provide the expected args for a file-error.
14889 14889
148901989-08-06 Richard Stallman (rms@sugar-bombs.ai.mit.edu) 148901989-08-06 Richard Stallman (rms@sugar-bombs.ai.mit.edu)
diff --git a/src/ChangeLog.8 b/src/ChangeLog.8
index 6fd4d5dea27..0bb96b55c30 100644
--- a/src/ChangeLog.8
+++ b/src/ChangeLog.8
@@ -919,7 +919,7 @@
9191999-11-28 Eli Zaretskii <eliz@is.elta.co.il> 9191999-11-28 Eli Zaretskii <eliz@is.elta.co.il>
920 920
921 * charset.c (Fmake_char_internal): Print the charset ID when 921 * charset.c (Fmake_char_internal): Print the charset ID when
922 signalling an error. 922 signaling an error.
923 923
924 * emacs.c (synchronize_locale): Avoid compiler warnings about 924 * emacs.c (synchronize_locale): Avoid compiler warnings about
925 pointer type mismatch. 925 pointer type mismatch.
@@ -7367,7 +7367,7 @@
7367 7367
7368 * xfaces.c (free_font): Removed. 7368 * xfaces.c (free_font): Removed.
7369 (load_face_font_or_fontset): Renamed from load_font. 7369 (load_face_font_or_fontset): Renamed from load_font.
7370 (load_face_font_or_fontset): Use message2 instead of signalling. 7370 (load_face_font_or_fontset): Use message2 instead of signaling.
7371 (load_color): Likewise. 7371 (load_color): Likewise.
7372 (load_pixmap): Likewise. 7372 (load_pixmap): Likewise.
7373 7373
diff --git a/src/bytecode.c b/src/bytecode.c
index 9ed29e94b54..91d360bec1b 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -271,7 +271,7 @@ struct byte_stack
271/* A list of currently active byte-code execution value stacks. 271/* A list of currently active byte-code execution value stacks.
272 Fbyte_code adds an entry to the head of this list before it starts 272 Fbyte_code adds an entry to the head of this list before it starts
273 processing byte-code, and it removed the entry again when it is 273 processing byte-code, and it removed the entry again when it is
274 done. Signalling an error truncates the list analoguous to 274 done. Signaling an error truncates the list analoguous to
275 gcprolist. */ 275 gcprolist. */
276 276
277struct byte_stack *byte_stack_list; 277struct byte_stack *byte_stack_list;
diff --git a/src/character.c b/src/character.c
index fb9b8a9b93e..c54c0046c53 100644
--- a/src/character.c
+++ b/src/character.c
@@ -969,7 +969,7 @@ character is a target to get a byte value. In this case, POSITION, if
969non-nil, is an index of a target character in the string. 969non-nil, is an index of a target character in the string.
970 970
971If the current buffer (or STRING) is multibyte, and the target 971If the current buffer (or STRING) is multibyte, and the target
972character is not ASCII nor 8-bit character, an error is signalled. */) 972character is not ASCII nor 8-bit character, an error is signaled. */)
973 (Lisp_Object position, Lisp_Object string) 973 (Lisp_Object position, Lisp_Object string)
974{ 974{
975 int c; 975 int c;
diff --git a/src/data.c b/src/data.c
index 76a54547a5d..e8d2b43198f 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2028,7 +2028,7 @@ DEFUN ("indirect-function", Findirect_function, Sindirect_function, 1, 2, 0,
2028If OBJECT is not a symbol, just return it. Otherwise, follow all 2028If OBJECT is not a symbol, just return it. Otherwise, follow all
2029function indirections to find the final function binding and return it. 2029function indirections to find the final function binding and return it.
2030If the final symbol in the chain is unbound, signal a void-function error. 2030If the final symbol in the chain is unbound, signal a void-function error.
2031Optional arg NOERROR non-nil means to return nil instead of signalling. 2031Optional arg NOERROR non-nil means to return nil instead of signaling.
2032Signal a cyclic-function-indirection error if there is a loop in the 2032Signal a cyclic-function-indirection error if there is a loop in the
2033function chain of symbols. */) 2033function chain of symbols. */)
2034 (register Lisp_Object object, Lisp_Object noerror) 2034 (register Lisp_Object object, Lisp_Object noerror)
diff --git a/src/regex.h b/src/regex.h
index 7747ec57629..eba62f2e769 100644
--- a/src/regex.h
+++ b/src/regex.h
@@ -415,7 +415,7 @@ struct re_pattern_buffer
415typedef struct re_pattern_buffer regex_t; 415typedef struct re_pattern_buffer regex_t;
416 416
417/* Type for byte offsets within the string. POSIX mandates this to be an int, 417/* Type for byte offsets within the string. POSIX mandates this to be an int,
418 but the Open Group has signalled its intention to change the requirement to 418 but the Open Group has signaled its intention to change the requirement to
419 be that regoff_t be at least as wide as ptrdiff_t and ssize_t. Current 419 be that regoff_t be at least as wide as ptrdiff_t and ssize_t. Current
420 gnulib sources also use ssize_t, and we need this for supporting buffers and 420 gnulib sources also use ssize_t, and we need this for supporting buffers and
421 strings > 2GB on 64-bit hosts. */ 421 strings > 2GB on 64-bit hosts. */
diff --git a/src/s/msdos.h b/src/s/msdos.h
index 29ca0629899..9ee13d12867 100644
--- a/src/s/msdos.h
+++ b/src/s/msdos.h
@@ -119,7 +119,7 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */
119#ifdef HAVE_X_WINDOWS 119#ifdef HAVE_X_WINDOWS
120/* We need a little extra space, see ../../lisp/loadup.el and the 120/* We need a little extra space, see ../../lisp/loadup.el and the
121 commentary below, in the non-X branch. The 140KB number was 121 commentary below, in the non-X branch. The 140KB number was
122 measured on GNU/Linux and on MS-WIndows. */ 122 measured on GNU/Linux and on MS-Windows. */
123#define SYSTEM_PURESIZE_EXTRA (-170000+140000) 123#define SYSTEM_PURESIZE_EXTRA (-170000+140000)
124#else 124#else
125/* We need a little extra space, see ../../lisp/loadup.el. 125/* We need a little extra space, see ../../lisp/loadup.el.
@@ -138,4 +138,3 @@ You lose; /* Emacs for DOS must be compiled with DJGPP */
138 registers relevant for conservative garbage collection in the jmp_buf. */ 138 registers relevant for conservative garbage collection in the jmp_buf. */
139#define GC_SETJMP_WORKS 1 139#define GC_SETJMP_WORKS 1
140#define GC_MARK_STACK GC_MAKE_GCPROS_NOOPS 140#define GC_MARK_STACK GC_MAKE_GCPROS_NOOPS
141
diff --git a/src/window.c b/src/window.c
index 0a780a0170a..9c7e1349011 100644
--- a/src/window.c
+++ b/src/window.c
@@ -2344,7 +2344,7 @@ Anything else means consider all windows on WINDOW's frame and no
2344others. 2344others.
2345 2345
2346If WINDOW is not on the list of windows returned, some other window will 2346If WINDOW is not on the list of windows returned, some other window will
2347be listed first but no error is signalled. */) 2347be listed first but no error is signaled. */)
2348 (Lisp_Object window, Lisp_Object minibuf, Lisp_Object all_frames) 2348 (Lisp_Object window, Lisp_Object minibuf, Lisp_Object all_frames)
2349{ 2349{
2350 return window_list_1 (window, minibuf, all_frames); 2350 return window_list_1 (window, minibuf, all_frames);
diff --git a/src/xdisp.c b/src/xdisp.c
index 6129c5e566f..15355e2d47a 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -23627,7 +23627,7 @@ produce_stretch_glyph (struct it *it)
23627 { 23627 {
23628 width = it->last_visible_x - it->current_x; 23628 width = it->last_visible_x - it->current_x;
23629#ifdef HAVE_WINDOW_SYSTEM 23629#ifdef HAVE_WINDOW_SYSTEM
23630 /* Subtact one more pixel from the stretch width, but only on 23630 /* Subtract one more pixel from the stretch width, but only on
23631 GUI frames, since on a TTY each glyph is one "pixel" wide. */ 23631 GUI frames, since on a TTY each glyph is one "pixel" wide. */
23632 width -= FRAME_WINDOW_P (it->f); 23632 width -= FRAME_WINDOW_P (it->f);
23633#endif 23633#endif
diff --git a/test/automated/ert-tests.el b/test/automated/ert-tests.el
index cea994f64b8..1fe6352e1fe 100644
--- a/test/automated/ert-tests.el
+++ b/test/automated/ert-tests.el
@@ -228,7 +228,7 @@ failed or if there was a problem."
228 :form (error "Foo") 228 :form (error "Foo")
229 :condition (error "Foo") 229 :condition (error "Foo")
230 :fail-reason 230 :fail-reason
231 "the error signalled did not have the expected type")))))) 231 "the error signaled did not have the expected type"))))))
232 ;; Error of the expected type. 232 ;; Error of the expected type.
233 (let* ((error nil) 233 (let* ((error nil)
234 (test (make-ert-test 234 (test (make-ert-test
@@ -258,7 +258,7 @@ failed or if there was a problem."
258 :form (signal arith-error nil) 258 :form (signal arith-error nil)
259 :condition (arith-error) 259 :condition (arith-error)
260 :fail-reason 260 :fail-reason
261 "the error signalled did not have the expected type")))))) 261 "the error signaled did not have the expected type"))))))
262 (let ((test (make-ert-test 262 (let ((test (make-ert-test
263 :body (lambda () 263 :body (lambda ()
264 (should-error (signal 'arith-error nil) 264 (should-error (signal 'arith-error nil)
@@ -275,7 +275,7 @@ failed or if there was a problem."
275 :form (signal arith-error nil) 275 :form (signal arith-error nil)
276 :condition (arith-error) 276 :condition (arith-error)
277 :fail-reason 277 :fail-reason
278 "the error signalled did not have the expected type")))))) 278 "the error signaled did not have the expected type"))))))
279 (let ((test (make-ert-test 279 (let ((test (make-ert-test
280 :body (lambda () 280 :body (lambda ()
281 (should-error (signal 'singularity-error nil) 281 (should-error (signal 'singularity-error nil)
@@ -292,7 +292,7 @@ failed or if there was a problem."
292 :form (signal singularity-error nil) 292 :form (signal singularity-error nil)
293 :condition (singularity-error) 293 :condition (singularity-error)
294 :fail-reason 294 :fail-reason
295 "the error signalled was a subtype of the expected type"))))) 295 "the error signaled was a subtype of the expected type")))))
296 )) 296 ))
297 297
298(defmacro ert--test-my-list (&rest args) 298(defmacro ert--test-my-list (&rest args)