diff options
| author | Paul Eggert | 2011-11-14 12:23:26 -0800 |
|---|---|---|
| committer | Paul Eggert | 2011-11-14 12:23:26 -0800 |
| commit | 8350f087efe62e2ce0ded434534629a56cdc4e8c (patch) | |
| tree | 9976cec81196a0465269f8669f2a85328570dfd4 | |
| parent | 322ad6ec0e773dffefad12df88c98041ca35b427 (diff) | |
| download | emacs-8350f087efe62e2ce0ded434534629a56cdc4e8c.tar.gz emacs-8350f087efe62e2ce0ded434534629a56cdc4e8c.zip | |
Spelling fixes.
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 | |||
| 209 | that ends with either @file{.adb}, @file{_b.ada} or | 209 | that ends with either @file{.adb}, @file{_b.ada} or |
| 210 | @file{.body}. | 210 | @file{.body}. |
| 211 | 211 | ||
| 212 | Simililarly, if Ada mode is looking for a spec, it will look for | 212 | Similarly, 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 | ||
| 215 | If the filename is not derived from the Ada name following the GNAT | 215 | If 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} |
| 390 | is optional; if absent, any type of error is accepted. | 390 | is 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 |
| 392 | signalled, to allow additional checks to be made. The error | 392 | signaled, to allow additional checks to be made. The error |
| 393 | description has the format @code{(ERROR-SYMBOL . DATA)}. | 393 | description has the format @code{(ERROR-SYMBOL . DATA)}. |
| 394 | 394 | ||
| 395 | There is no @code{should-not-error} macro since tests that signal an | 395 | There 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 | ||
| 611 | If you see an error signalled during idle time, it could be an | 611 | If you see an error signaled during idle time, it could be an |
| 612 | indication of a more serious issue elsewhere. It is not enough to | 612 | indication of a more serious issue elsewhere. It is not enough to |
| 613 | enable @code{debug-on-error}, because the idle scheduler inhibits the | 613 | enable @code{debug-on-error}, because the idle scheduler inhibits the |
| 614 | debugger. Instead, use the following commands to debug the error: | 614 | debugger. Instead, use the following commands to debug the error: |
| @@ -197,7 +197,7 @@ Each | |||
| 197 | Manual's | 197 | Manual's |
| 198 | Audience is | 198 | Audience is |
| 199 | Completely | 199 | Completely |
| 200 | Stupified | 200 | Stupefied |
| 201 | 201 | ||
| 202 | Emacs | 202 | Emacs |
| 203 | Means | 203 | Means |
| @@ -333,7 +333,7 @@ Easily | |||
| 333 | Mangles, | 333 | Mangles, |
| 334 | Aborts, | 334 | Aborts, |
| 335 | Crashes and | 335 | Crashes and |
| 336 | Stupifies | 336 | Stupefies |
| 337 | 337 | ||
| 338 | Extraneous | 338 | Extraneous |
| 339 | Macros | 339 | Macros |
| @@ -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 |
| 173 | frame parameters of a newly-created graphical frame. | 173 | frame 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 |
| 176 | error, its exit status is 1. | 176 | error, 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'. |
| 1245 | The command `read-color' now requires a match for a color name or RGB | 1245 | The command `read-color' now requires a match for a color name or RGB |
| 1246 | triplet, instead of signalling an error if the user provides a invalid | 1246 | triplet, instead of signaling an error if the user provides a invalid |
| 1247 | input. | 1247 | input. |
| 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. | |||
| 1182 | matches a regexp. | 1182 | matches a regexp. |
| 1183 | 1183 | ||
| 1184 | *** The value of comment-style now defaults to `indent'. | 1184 | *** The value of comment-style now defaults to `indent'. |
| 1185 | Thefore, comment-start markers are inserted at the current indentation | 1185 | Therefore, comment-start markers are inserted at the current indentation |
| 1186 | of the region to comment, rather than the leftmost column. | 1186 | of 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: | |||
| 2529 | mode: outline | 2529 | mode: outline |
| 2530 | paragraph-separate: "[ ]*$" | 2530 | paragraph-separate: "[ ]*$" |
| 2531 | end: | 2531 | end: |
| 2532 | |||
| @@ -165,7 +165,7 @@ Change them to use report-emacs-bug. | |||
| 165 | like make-backup-file-name-function for non-numeric backup files. | 165 | like 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 |
| 168 | dired buffers and DTRT WRT `auto-revert-mode'. | 168 | dired 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. |
| 171 | http://lists.gnu.org/archive/html/emacs-devel/2008-08/msg00456.html | 171 | http://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 | ||
| 1244 | You should have received a copy of the GNU General Public License | 1244 | You should have received a copy of the GNU General Public License |
| 1245 | along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. | 1245 | along 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 | ||
| 1952 | 1985-09-07 Richard M. Stallman (rms@mit-prep) | 1952 | 1985-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 @@ | |||
| 3516 | 2003-04-23 Stefan Monnier <monnier@cs.yale.edu> | 3516 | 2003-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 | ||
| 3522 | 2003-04-23 Richard M. Stallman <rms@gnu.org> | 3522 | 2003-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 | ||
| 7567 | 2006-08-02 Andreas Schwab <schwab@suse.de> | 7567 | 2006-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 | ||
| 7919 | 2008-08-26 Johan Bockgård <bojohan@gnu.org> | 7919 | 2008-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 | ||
| 13312 | 2010-01-29 Chong Yidong <cyd@stupidchicken.com> | 13312 | 2010-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 | ||
| 13317 | 2010-01-29 Michael Albinus <michael.albinus@gmx.de> | 13317 | 2010-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 @@ | |||
| 8317 | 1998-11-11 Sam Steingold <sds@goems.com> | 8317 | 1998-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 | ||
| 8322 | 1998-11-11 Karl Heuer <kwzh@gnu.org> | 8322 | 1998-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. |
| 916 | All diary entries in the file DIARY-FILENAME are converted to iCalendar | 916 | All diary entries in the file DIARY-FILENAME are converted to iCalendar |
| 917 | format. The result is appended to the file ICAL-FILENAME." | 917 | format. The result is appended to the file ICAL-FILENAME." |
| 918 | (interactive "FExport diary data from file: | 918 | (interactive "FExport diary data from file: |
| 919 | Finto iCalendar file: ") | 919 | Finto 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. | |||
| 1794 | Argument DIARY-FILENAME input `diary-file'. | 1794 | Argument DIARY-FILENAME input `diary-file'. |
| 1795 | Optional argument NON-MARKING determines whether events are created as | 1795 | Optional argument NON-MARKING determines whether events are created as |
| 1796 | non-marking or not." | 1796 | non-marking or not." |
| 1797 | (interactive "fImport iCalendar data from file: | 1797 | (interactive "fImport iCalendar data from file: |
| 1798 | Finto diary file: | 1798 | Finto diary file: |
| 1799 | p") | 1799 | p") |
| 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. |
| 57 | SLOT-NAME is the offending slot. FN is the function signalling the error." | 57 | SLOT-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 | |||
| 448 | is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is | 448 | is an expression equivalent to FORM, and FORM-DESCRIPTION-FORM is |
| 449 | an expression that returns a description of FORM. INNER-EXPANDER | 449 | an expression that returns a description of FORM. INNER-EXPANDER |
| 450 | should return code that calls INNER-FORM and performs the checks | 450 | should return code that calls INNER-FORM and performs the checks |
| 451 | and error signalling specific to the particular variant of | 451 | and 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 |
| 453 | FORM-DESCRIPTION-FORM before it has called INNER-FORM." | 453 | FORM-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 | ||
| 490 | Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES, | 490 | Determines whether CONDITION matches TYPE and EXCLUDE-SUBTYPES, |
| 491 | and aborts the current test as failed if it doesn't." | 491 | and 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 | ||
| 518 | The error signalled needs to match TYPE. TYPE should be a list | 518 | The error signaled needs to match TYPE. TYPE should be a list |
| 519 | of condition names. (It can also be a non-nil symbol, which is | 519 | of condition names. (It can also be a non-nil symbol, which is |
| 520 | equivalent to a singleton list containing that symbol.) If | 520 | equivalent to a singleton list containing that symbol.) If |
| 521 | EXCLUDE-SUBTYPES is nil, the error matches TYPE if one of its | 521 | 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 | |||
| 523 | non-nil, the error matches TYPE if it is an element of TYPE. | 523 | non-nil, the error matches TYPE if it is an element of TYPE. |
| 524 | 524 | ||
| 525 | If the error matches, returns (ERROR-SYMBOL . DATA) from the | 525 | If the error matches, returns (ERROR-SYMBOL . DATA) from the |
| 526 | error. If not, or if no error was signalled, abort the test as | 526 | error. If not, or if no error was signaled, abort the test as |
| 527 | failed." | 527 | failed." |
| 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 | ||
| 2121 | EWOC-FN specifies the direction and should be either `ewoc-prev' | 2121 | EWOC-FN specifies the direction and should be either `ewoc-prev' |
| 2122 | or `ewoc-next'. If there are no more nodes in that direction, an | 2122 | or `ewoc-next'. If there are no more nodes in that direction, an |
| 2123 | error is signalled with the message ERROR-MESSAGE." | 2123 | error 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 | ||
| 226 | 2001-11-23 Mario Lang <mlang@delysid.org> | 226 | 2001-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 @@ | |||
| 625 | 2001-10-23 Mario Lang <mlang@delysid.org> | 625 | 2001-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 | ||
| 836 | 2001-09-10 Mario Lang <mlang@delysid.org> | 836 | 2001-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 | ||
| 745 | 2003-04-27 Damien Elmes <erc@repose.cx> | 745 | 2003-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 | ||
| 749 | 2003-04-27 Alex Schroeder <alex@gnu.org> | 749 | 2003-04-27 Alex Schroeder <alex@gnu.org> |
| 750 | 750 | ||
| @@ -1232,7 +1232,7 @@ | |||
| 1232 | 1232 | ||
| 1233 | 2003-01-19 Mario Lang <mlang@delysid.org> | 1233 | 2003-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 | ||
| 1692 | 2003-01-11 Mario Lang <mlang@delysid.org> | 1692 | 2003-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. |
| 58 | When nil, only frames on the same display as the selected frame will be | 58 | When nil, only frames on the same display as the selected frame will be |
| 59 | used to display Gnus windows." | 59 | used 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. |
| 2073 | Point should be at the first new message. | 2073 | Point should be at the first new message. |
| 2074 | An error is signalled if the new messages are not RFC2822 | 2074 | An error is signaled if the new messages are not RFC2822 |
| 2075 | compliant. | 2075 | compliant. |
| 2076 | Unless an Rmail attribute header already exists, add it to the | 2076 | Unless an Rmail attribute header already exists, add it to the |
| 2077 | new messages. Return the number of new messages." | 2077 | new 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 | ||
| 5025 | 2011-07-28 Dan Davison <dandavison7@gmail.com> | 5025 | 2011-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. |
| 2645 | The first run indents the item, if applicable. Subsequents runs | 2645 | The first run indents the item, if applicable. Subsequent runs |
| 2646 | outdent it at meaningful levels in the list. When done, item is | 2646 | outdent it at meaningful levels in the list. When done, item is |
| 2647 | put back at its original position with its original bullet. | 2647 | put 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 | |||
| 2681 | you specify dates outside the 1970-2037 range, so it is certain that | 2681 | you specify dates outside the 1970-2037 range, so it is certain that |
| 2682 | these dates will work in whatever version of Emacs you are | 2682 | these dates will work in whatever version of Emacs you are |
| 2683 | running, and also that you can move a file from one Emacs implementation | 2683 | running, and also that you can move a file from one Emacs implementation |
| 2684 | to another. WHenever Org is forcing the year for you, it will display | 2684 | to another. Whenever Org is forcing the year for you, it will display |
| 2685 | a message and beep. | 2685 | a message and beep. |
| 2686 | 2686 | ||
| 2687 | When this variable is nil, Org will check if the date is | 2687 | When 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, | |||
| 2969 | move backward across a preprocessor conditional. | 2969 | move backward across a preprocessor conditional. |
| 2970 | 2970 | ||
| 2971 | If there aren't enough conditionals after \(or before) point, an | 2971 | If there aren't enough conditionals after \(or before) point, an |
| 2972 | error is signalled. | 2972 | error 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 |
| 2975 | the nesting level isn't changed when tracking subconditionals. | 2975 | the 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 |
| 559 | for unbalanced parens. | 559 | for unbalanced parens. |
| 560 | 560 | ||
| 561 | A limit for the search may be given. FROM is assumed to be on the | 561 | A 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 | ||
| 351 | This setting is used in non-stop mode only. In all-stop mode, | 351 | This setting is used in non-stop mode only. In all-stop mode, |
| 352 | Emacs always switches to the thread which caused the stop." | 352 | Emacs 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. |
| 5413 | A value of nil means just signal an error if no more scrolling possible. | 5413 | A value of nil means just signal an error if no more scrolling possible. |
| 5414 | A value of t means point moves to the beginning or the end of the buffer | 5414 | A 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 | ||
| 11977 | 2009-08-13 Nick Roberts <nickrob@snap.net.nz> | 11977 | 2009-08-13 Nick Roberts <nickrob@snap.net.nz> |
| 11978 | 11978 | ||
| @@ -16658,7 +16658,7 @@ | |||
| 16658 | 2008-08-20 Chong Yidong <cyd@stupidchicken.com> | 16658 | 2008-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 | ||
| 16663 | 2008-08-20 David Reitter <david.reitter@gmail.com> | 16663 | 2008-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 @@ | |||
| 1222 | 1987-07-10 Chris Hanson (cph@prep) | 1222 | 1987-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 | ||
| 10598 | 1991-05-01 Jim Blandy (jimb@churchy.gnu.ai.mit.edu) | 10598 | 1991-05-01 Jim Blandy (jimb@churchy.gnu.ai.mit.edu) |
| @@ -14884,7 +14884,7 @@ | |||
| 14884 | 14884 | ||
| 14885 | 1989-08-07 Richard Stallman (rms@sugar-bombs.ai.mit.edu) | 14885 | 1989-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 | ||
| 14890 | 1989-08-06 Richard Stallman (rms@sugar-bombs.ai.mit.edu) | 14890 | 1989-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 @@ | |||
| 919 | 1999-11-28 Eli Zaretskii <eliz@is.elta.co.il> | 919 | 1999-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 | ||
| 277 | struct byte_stack *byte_stack_list; | 277 | struct 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 | |||
| 969 | non-nil, is an index of a target character in the string. | 969 | non-nil, is an index of a target character in the string. |
| 970 | 970 | ||
| 971 | If the current buffer (or STRING) is multibyte, and the target | 971 | If the current buffer (or STRING) is multibyte, and the target |
| 972 | character is not ASCII nor 8-bit character, an error is signalled. */) | 972 | character 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, | |||
| 2028 | If OBJECT is not a symbol, just return it. Otherwise, follow all | 2028 | If OBJECT is not a symbol, just return it. Otherwise, follow all |
| 2029 | function indirections to find the final function binding and return it. | 2029 | function indirections to find the final function binding and return it. |
| 2030 | If the final symbol in the chain is unbound, signal a void-function error. | 2030 | If the final symbol in the chain is unbound, signal a void-function error. |
| 2031 | Optional arg NOERROR non-nil means to return nil instead of signalling. | 2031 | Optional arg NOERROR non-nil means to return nil instead of signaling. |
| 2032 | Signal a cyclic-function-indirection error if there is a loop in the | 2032 | Signal a cyclic-function-indirection error if there is a loop in the |
| 2033 | function chain of symbols. */) | 2033 | function 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 | |||
| 415 | typedef struct re_pattern_buffer regex_t; | 415 | typedef 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 | |||
| 2344 | others. | 2344 | others. |
| 2345 | 2345 | ||
| 2346 | If WINDOW is not on the list of windows returned, some other window will | 2346 | If WINDOW is not on the list of windows returned, some other window will |
| 2347 | be listed first but no error is signalled. */) | 2347 | be 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) |