aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorŠtěpán Němec2020-03-01 18:50:14 +0100
committerŠtěpán Němec2020-04-18 17:10:02 +0200
commit067b0705986572e42687334c4eaf32988f22f680 (patch)
tree70129d8ec8e109cb64f895e462298adf2c2636e8
parentf3b62b6c62c41d2e5d15418ea940bce6b11bdf7d (diff)
downloademacs-067b0705986572e42687334c4eaf32988f22f680.tar.gz
emacs-067b0705986572e42687334c4eaf32988f22f680.zip
; Fix some typos and doc issues (bug#40695)
-rw-r--r--ChangeLog.316
-rw-r--r--admin/notes/bug-triage2
-rw-r--r--doc/emacs/fixit.texi30
-rw-r--r--doc/lispref/display.texi4
-rw-r--r--doc/lispref/functions.texi2
-rw-r--r--doc/lispref/os.texi2
-rw-r--r--doc/lispref/text.texi4
-rw-r--r--lib/ieee754.in.h4
-rw-r--r--lisp/emacs-lisp/bytecomp.el2
-rw-r--r--lisp/emacs-lisp/checkdoc.el2
-rw-r--r--lisp/emacs-lisp/cl-macs.el8
-rw-r--r--lisp/emacs-lisp/elp.el2
-rw-r--r--lisp/emacs-lisp/generator.el32
-rw-r--r--lisp/emacs-lisp/gv.el2
-rw-r--r--lisp/emacs-lisp/lisp-mode.el2
-rw-r--r--lisp/image/exif.el4
-rw-r--r--lisp/international/mule-util.el2
-rw-r--r--lisp/json.el2
-rw-r--r--lisp/minibuffer.el4
-rw-r--r--lisp/obsolete/cl.el2
-rw-r--r--lisp/startup.el8
-rw-r--r--lisp/subr.el6
-rw-r--r--lisp/textmodes/ispell.el10
-rw-r--r--src/eval.c2
-rw-r--r--src/lread.c2
-rw-r--r--test/lisp/jsonrpc-tests.el4
-rw-r--r--test/src/thread-tests.el2
27 files changed, 79 insertions, 83 deletions
diff --git a/ChangeLog.3 b/ChangeLog.3
index c5bc7b3120d..7f6000fc556 100644
--- a/ChangeLog.3
+++ b/ChangeLog.3
@@ -11660,7 +11660,7 @@
11660 Mention the Emacs exit code in batch mode 11660 Mention the Emacs exit code in batch mode
11661 11661
11662 * doc/lispref/os.texi (Batch Mode): Mention what the exit code is 11662 * doc/lispref/os.texi (Batch Mode): Mention what the exit code is
11663 if an error is signalled (bug#31552). 11663 if an error is signaled (bug#31552).
11664 11664
116652019-10-12 Kaushal Modi <kaushal.modi@gmail.com> 116652019-10-12 Kaushal Modi <kaushal.modi@gmail.com>
11666 11666
@@ -15059,7 +15059,7 @@
15059 15059
15060 * lisp/image/exif.el (exif-parse-buffer): New function. 15060 * lisp/image/exif.el (exif-parse-buffer): New function.
15061 (exif-orientation): Ditto. 15061 (exif-orientation): Ditto.
15062 (exif-error): New error symbol, and adjust all error signalling to 15062 (exif-error): New error symbol, and adjust all error signaling to
15063 only use that signal. 15063 only use that signal.
15064 15064
150652019-09-22 Andreas Schwab <schwab@linux-m68k.org> 150652019-09-22 Andreas Schwab <schwab@linux-m68k.org>
@@ -25100,7 +25100,7 @@
25100 25100
25101 * lisp/json.el (json-read): Try to clarify what's returned (bug#34242). 25101 * lisp/json.el (json-read): Try to clarify what's returned (bug#34242).
25102 (json-encode): Refer to `json-read' about what the input is and 25102 (json-encode): Refer to `json-read' about what the input is and
25103 say what error is signalled. 25103 say what error is signaled.
25104 25104
251052019-07-09 Lars Ingebrigtsen <larsi@gnus.org> 251052019-07-09 Lars Ingebrigtsen <larsi@gnus.org>
25106 25106
@@ -26971,7 +26971,7 @@
26971 help-C-file-name shouldn't error out if we can't find the name 26971 help-C-file-name shouldn't error out if we can't find the name
26972 26972
26973 * lisp/help-fns.el (help-C-file-name): Make help-C-file-name 26973 * lisp/help-fns.el (help-C-file-name): Make help-C-file-name
26974 return nil instead of signalling an error if we can't find the 26974 return nil instead of signaling an error if we can't find the
26975 file name (bug#17250). 26975 file name (bug#17250).
26976 26976
269772019-06-26 Stefan Monnier <monnier@iro.umontreal.ca> 269772019-06-26 Stefan Monnier <monnier@iro.umontreal.ca>
@@ -34107,7 +34107,7 @@
34107 Remove unused internal function completion-pcm--optimize-pattern 34107 Remove unused internal function completion-pcm--optimize-pattern
34108 34108
34109 * lisp/minibuffer.el (completion-pcm--optimize-pattern): Remove 34109 * lisp/minibuffer.el (completion-pcm--optimize-pattern): Remove
34110 unused internal function (that signalled a compilation warning). 34110 unused internal function (that signaled a compilation warning).
34111 34111
341122019-05-16 Stefan Monnier <monnier@iro.umontreal.ca> 341122019-05-16 Stefan Monnier <monnier@iro.umontreal.ca>
34113 34113
@@ -40134,10 +40134,10 @@
40134 40134
401352019-03-30 Mattias Engdegård <mattiase@acm.org> 401352019-03-30 Mattias Engdegård <mattiase@acm.org>
40136 40136
40137 Release regexp before signalling overflow error 40137 Release regexp before signaling overflow error
40138 40138
40139 * src/search.c (looking_at_1, search_buffer_re): Unfreeze the regexp 40139 * src/search.c (looking_at_1, search_buffer_re): Unfreeze the regexp
40140 buffer before signalling a matcher overflow, since the error 40140 buffer before signaling a matcher overflow, since the error
40141 processing may require quite some regexp use as well (Bug#34910). 40141 processing may require quite some regexp use as well (Bug#34910).
40142 40142
401432019-03-30 Mattias Engdegård <mattiase@acm.org> 401432019-03-30 Mattias Engdegård <mattiase@acm.org>
@@ -88604,7 +88604,7 @@
88604 Tweak Fdocumentation's error for an undefined function 88604 Tweak Fdocumentation's error for an undefined function
88605 88605
88606 * src/doc.c (Fdocumentation): Restore the pre-25 behavior 88606 * src/doc.c (Fdocumentation): Restore the pre-25 behavior
88607 of signalling a void-function error for an undefined function. 88607 of signaling a void-function error for an undefined function.
88608 This seems cleaner than Emacs 25's "invalid-function: nil" error, 88608 This seems cleaner than Emacs 25's "invalid-function: nil" error,
88609 which was (probably) an unintended consequence of changes to 88609 which was (probably) an unintended consequence of changes to
88610 Findirect_function. 88610 Findirect_function.
diff --git a/admin/notes/bug-triage b/admin/notes/bug-triage
index 2974eee1792..87fb471c708 100644
--- a/admin/notes/bug-triage
+++ b/admin/notes/bug-triage
@@ -81,7 +81,7 @@ the ones that are not reproducible on the current release.
81* New bug triage process 81* New bug triage process
82 82
83The goal of the new bug triage process is similar to the backlog triage process, 83The goal of the new bug triage process is similar to the backlog triage process,
84except that the focus is on prioritizing the bug, and making sure it is has 84except that the focus is on prioritizing the bug, and making sure it has
85necessary information for others to act on. 85necessary information for others to act on.
86 86
87For each new bug, ask the following questions: 87For each new bug, ask the following questions:
diff --git a/doc/emacs/fixit.texi b/doc/emacs/fixit.texi
index 3665faf3a8f..dc643e19a4b 100644
--- a/doc/emacs/fixit.texi
+++ b/doc/emacs/fixit.texi
@@ -201,8 +201,8 @@ sentences and paragraphs, respectively. These commands work like
201 A numeric argument to a transpose command serves as a repeat count: it 201 A numeric argument to a transpose command serves as a repeat count: it
202tells the transpose command to move the character (or word or 202tells the transpose command to move the character (or word or
203expression or line) before or containing point across several other 203expression or line) before or containing point across several other
204characters (or words or expressions or lines). For example, @kbd{C-u 204characters (or words or expressions or lines). For example, @w{@kbd{C-u
2053 C-t} moves the character before point forward across three other 2053 C-t}} moves the character before point forward across three other
206characters. It would change @samp{f@point{}oobar} into 206characters. It would change @samp{f@point{}oobar} into
207@samp{oobf@point{}ar}. This is equivalent to repeating @kbd{C-t} 207@samp{oobf@point{}ar}. This is equivalent to repeating @kbd{C-t}
208three times. @kbd{C-u - 4 M-t} moves the word before point backward 208three times. @kbd{C-u - 4 M-t} moves the word before point backward
@@ -304,10 +304,10 @@ region; @pxref{Disabled Transient Mark}.)
304@cindex spell-checking the active region 304@cindex spell-checking the active region
305 Similarly, the command @kbd{M-x ispell} performs spell-checking in 305 Similarly, the command @kbd{M-x ispell} performs spell-checking in
306the region if one is active, or in the entire buffer otherwise. The 306the region if one is active, or in the entire buffer otherwise. The
307commands @kbd{M-x ispell-buffer} and @kbd{M-x ispell-region} 307commands @w{@kbd{M-x ispell-buffer}} and @w{@kbd{M-x ispell-region}}
308explicitly perform spell-checking on the entire buffer or the region 308explicitly perform spell-checking on the entire buffer or the region
309respectively. To check spelling in an email message you are writing, 309respectively. To check spelling in an email message you are writing,
310use @kbd{M-x ispell-message}; that command checks the whole buffer, 310use @w{@kbd{M-x ispell-message}}; that command checks the whole buffer,
311except for material that is indented or appears to be cited from other 311except for material that is indented or appears to be cited from other
312messages. @xref{Sending Mail}. 312messages. @xref{Sending Mail}.
313 313
@@ -365,8 +365,8 @@ wildcard.
365@item C-g 365@item C-g
366@itemx X 366@itemx X
367Quit interactive spell-checking, leaving point at the word that was 367Quit interactive spell-checking, leaving point at the word that was
368being checked. You can restart checking again afterward with @kbd{C-u 368being checked. You can restart checking again afterward with @w{@kbd{C-u
369M-$}. 369M-$}}.
370 370
371@item x 371@item x
372Quit interactive spell-checking and move point back to where it was 372Quit interactive spell-checking and move point back to where it was
@@ -384,8 +384,8 @@ Show the list of options.
384(@code{ispell-complete-word}) performs in-buffer completion based on 384(@code{ispell-complete-word}) performs in-buffer completion based on
385spelling correction. Insert the beginning of a word, and then type 385spelling correction. Insert the beginning of a word, and then type
386@kbd{M-@key{TAB}}; this shows a list of completions. (If your 386@kbd{M-@key{TAB}}; this shows a list of completions. (If your
387window manager intercepts @kbd{M-@key{TAB}}, type @kbd{@key{ESC} 387window manager intercepts @kbd{M-@key{TAB}}, type @w{@kbd{@key{ESC}
388@key{TAB}} or @kbd{C-M-i}.) Each completion is listed with a digit or 388@key{TAB}}} or @kbd{C-M-i}.) Each completion is listed with a digit or
389character; type that digit or character to choose it. 389character; type that digit or character to choose it.
390 390
391@cindex @code{ispell} program 391@cindex @code{ispell} program
@@ -393,7 +393,7 @@ character; type that digit or character to choose it.
393 Once started, the spell-checker subprocess continues 393 Once started, the spell-checker subprocess continues
394to run, waiting for something to do, so that subsequent spell-checking 394to run, waiting for something to do, so that subsequent spell-checking
395commands complete more quickly. If you want to get rid of the 395commands complete more quickly. If you want to get rid of the
396process, use @kbd{M-x ispell-kill-ispell}. This is not usually 396process, use @w{@kbd{M-x ispell-kill-ispell}}. This is not usually
397necessary, since the process uses no processor time except when you do 397necessary, since the process uses no processor time except when you do
398spelling correction. 398spelling correction.
399 399
@@ -406,7 +406,7 @@ the standard dictionary and your personal dictionary. The standard
406dictionary is specified by the variable @code{ispell-local-dictionary} 406dictionary is specified by the variable @code{ispell-local-dictionary}
407or, if that is @code{nil}, by the variable @code{ispell-dictionary}. 407or, if that is @code{nil}, by the variable @code{ispell-dictionary}.
408If both are @code{nil}, the spelling program's default dictionary is 408If both are @code{nil}, the spelling program's default dictionary is
409used. The command @kbd{M-x ispell-change-dictionary} sets the 409used. The command @w{@kbd{M-x ispell-change-dictionary}} sets the
410standard dictionary for the buffer and then restarts the subprocess, 410standard dictionary for the buffer and then restarts the subprocess,
411so that it will use a different standard dictionary. Your personal 411so that it will use a different standard dictionary. Your personal
412dictionary is specified by the variable 412dictionary is specified by the variable
@@ -428,8 +428,8 @@ dictionary.
428@findex flyspell-mode 428@findex flyspell-mode
429 Flyspell mode is a minor mode that performs automatic spell-checking 429 Flyspell mode is a minor mode that performs automatic spell-checking
430of the text you type as you type it. When it finds a word that it 430of the text you type as you type it. When it finds a word that it
431does not recognize, it highlights that word. Type @kbd{M-x 431does not recognize, it highlights that word. Type @w{@kbd{M-x
432flyspell-mode} to toggle Flyspell mode in the current buffer. To 432flyspell-mode}} to toggle Flyspell mode in the current buffer. To
433enable Flyspell mode in all text mode buffers, add 433enable Flyspell mode in all text mode buffers, add
434@code{flyspell-mode} to @code{text-mode-hook}. @xref{Hooks}. Note 434@code{flyspell-mode} to @code{text-mode-hook}. @xref{Hooks}. Note
435that, as Flyspell mode needs to check each word across which you move, 435that, as Flyspell mode needs to check each word across which you move,
@@ -445,14 +445,14 @@ it with @kbd{mouse-2} (@code{flyspell-correct-word}) to display a menu
445of possible corrections and actions. In addition, @kbd{C-.} or 445of possible corrections and actions. In addition, @kbd{C-.} or
446@kbd{@key{ESC}-@key{TAB}} (@code{flyspell-auto-correct-word}) will 446@kbd{@key{ESC}-@key{TAB}} (@code{flyspell-auto-correct-word}) will
447propose various successive corrections for the word at point, and 447propose various successive corrections for the word at point, and
448@kbd{C-c $} (@code{flyspell-correct-word-before-point}) will pop up a 448@w{@kbd{C-c $}} (@code{flyspell-correct-word-before-point}) will pop up a
449menu of possible corrections. Of course, you can always correct the 449menu of possible corrections. Of course, you can always correct the
450misspelled word by editing it manually in any way you like. 450misspelled word by editing it manually in any way you like.
451 451
452@findex flyspell-prog-mode 452@findex flyspell-prog-mode
453 Flyspell Prog mode works just like ordinary Flyspell mode, except 453 Flyspell Prog mode works just like ordinary Flyspell mode, except
454that it only checks words in comments and string constants. This 454that it only checks words in comments and string constants. This
455feature is useful for editing programs. Type @kbd{M-x 455feature is useful for editing programs. Type @w{@kbd{M-x
456flyspell-prog-mode} to enable or disable this mode in the current 456flyspell-prog-mode}} to enable or disable this mode in the current
457buffer. To enable this mode in all programming mode buffers, add 457buffer. To enable this mode in all programming mode buffers, add
458@code{flyspell-prog-mode} to @code{prog-mode-hook} (@pxref{Hooks}). 458@code{flyspell-prog-mode} to @code{prog-mode-hook} (@pxref{Hooks}).
diff --git a/doc/lispref/display.texi b/doc/lispref/display.texi
index 2b25d6023cd..85e42d331d3 100644
--- a/doc/lispref/display.texi
+++ b/doc/lispref/display.texi
@@ -6929,7 +6929,7 @@ end of the buffer continues from the other end. If
6929is displayed. Any button with a non-@code{nil} @code{skip} property 6929is displayed. Any button with a non-@code{nil} @code{skip} property
6930is skipped over. Returns the button found, and signals an error if no 6930is skipped over. Returns the button found, and signals an error if no
6931buttons can be found. If @var{no-error} in non-@code{nil}, return nil 6931buttons can be found. If @var{no-error} in non-@code{nil}, return nil
6932instead of signalling the error. 6932instead of signaling the error.
6933@end deffn 6933@end deffn
6934 6934
6935@deffn Command backward-button n &optional wrap display-message 6935@deffn Command backward-button n &optional wrap display-message
@@ -6941,7 +6941,7 @@ end of the buffer continues from the other end. If
6941is displayed. Any button with a non-@code{nil} @code{skip} property 6941is displayed. Any button with a non-@code{nil} @code{skip} property
6942is skipped over. Returns the button found, and signals an error if no 6942is skipped over. Returns the button found, and signals an error if no
6943buttons can be found. If @var{no-error} in non-@code{nil}, return nil 6943buttons can be found. If @var{no-error} in non-@code{nil}, return nil
6944instead of signalling the error. 6944instead of signaling the error.
6945@end deffn 6945@end deffn
6946 6946
6947@defun next-button pos &optional count-current 6947@defun next-button pos &optional count-current
diff --git a/doc/lispref/functions.texi b/doc/lispref/functions.texi
index 5cf67ba6473..f31bacaed74 100644
--- a/doc/lispref/functions.texi
+++ b/doc/lispref/functions.texi
@@ -2287,7 +2287,7 @@ function) as a generalized variable. @var{setter} can be a symbol in which
2287case it will be passed to @code{gv-define-simple-setter}, or it can be of the 2287case it will be passed to @code{gv-define-simple-setter}, or it can be of the
2288form @code{(lambda (@var{arg}) @var{body})} in which case that function will 2288form @code{(lambda (@var{arg}) @var{body})} in which case that function will
2289additionally have access to the macro (or function)'s arguments and it will 2289additionally have access to the macro (or function)'s arguments and it will
2290passed to @code{gv-define-setter}. 2290be passed to @code{gv-define-setter}.
2291 2291
2292@end table 2292@end table
2293 2293
diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index 92aaf24b851..92684c8993e 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -2616,7 +2616,7 @@ if it is non-@code{nil}; this can be overridden by binding
2616This variable is non-@code{nil} when Emacs is running in batch mode. 2616This variable is non-@code{nil} when Emacs is running in batch mode.
2617@end defvar 2617@end defvar
2618 2618
2619If Emacs exits due to signalling an error in batch mode, the exit 2619If Emacs exits due to signaling an error in batch mode, the exit
2620status of the Emacs command is non-zero: 2620status of the Emacs command is non-zero:
2621 2621
2622@example 2622@example
diff --git a/doc/lispref/text.texi b/doc/lispref/text.texi
index ffdf952b081..fe3d48b3ff5 100644
--- a/doc/lispref/text.texi
+++ b/doc/lispref/text.texi
@@ -4679,7 +4679,7 @@ expanded when the header line is computed. To do this, the
4679above. @var{specification} is an alist that has elements where the 4679above. @var{specification} is an alist that has elements where the
4680@code{car} is a character and the @code{cdr} is the substitution. 4680@code{car} is a character and the @code{cdr} is the substitution.
4681 4681
4682If @code{ONLY-PRESENT} is @code{nil}, errors will be signalled if a 4682If @code{ONLY-PRESENT} is @code{nil}, errors will be signaled if a
4683format character has been used that's not present in 4683format character has been used that's not present in
4684@var{specification}. If it's non-@code{nil}, that format 4684@var{specification}. If it's non-@code{nil}, that format
4685specification is left verbatim in the result. 4685specification is left verbatim in the result.
@@ -5725,7 +5725,7 @@ made within the @code{combine-after-change-calls} body.
5725@code{after-change-functions} within 5725@code{after-change-functions} within
5726the body of a @code{combine-after-change-calls} form. 5726the body of a @code{combine-after-change-calls} form.
5727 5727
5728@strong{Warning:} if the changes you combine occur in widely scattered 5728@strong{Warning:} If the changes you combine occur in widely scattered
5729parts of the buffer, this will still work, but it is not advisable, 5729parts of the buffer, this will still work, but it is not advisable,
5730because it may lead to inefficient behavior for some change hook 5730because it may lead to inefficient behavior for some change hook
5731functions. 5731functions.
diff --git a/lib/ieee754.in.h b/lib/ieee754.in.h
index d64bb46e9de..01ca648905f 100644
--- a/lib/ieee754.in.h
+++ b/lib/ieee754.in.h
@@ -67,7 +67,7 @@ union ieee754_float
67#endif /* Little endian. */ 67#endif /* Little endian. */
68 } ieee; 68 } ieee;
69 69
70 /* This format makes it easier to see if a NaN is a signalling NaN. */ 70 /* This format makes it easier to see if a NaN is a signaling NaN. */
71 struct 71 struct
72 { 72 {
73#if __BYTE_ORDER == __BIG_ENDIAN 73#if __BYTE_ORDER == __BIG_ENDIAN
@@ -118,7 +118,7 @@ union ieee754_double
118#endif /* Little endian. */ 118#endif /* Little endian. */
119 } ieee; 119 } ieee;
120 120
121 /* This format makes it easier to see if a NaN is a signalling NaN. */ 121 /* This format makes it easier to see if a NaN is a signaling NaN. */
122 struct 122 struct
123 { 123 {
124#if __BYTE_ORDER == __BIG_ENDIAN 124#if __BYTE_ORDER == __BIG_ENDIAN
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 73bbc2fe182..688f8cfa4db 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -677,7 +677,7 @@ Each element is (INDEX . VALUE)")
677(byte-defop 112 1 byte-current-buffer) 677(byte-defop 112 1 byte-current-buffer)
678(byte-defop 113 0 byte-set-buffer) 678(byte-defop 113 0 byte-set-buffer)
679(byte-defop 114 0 byte-save-current-buffer 679(byte-defop 114 0 byte-save-current-buffer
680 "To make a binding to record the current buffer") 680 "to make a binding to record the current buffer")
681(byte-defop 115 0 byte-set-mark-OBSOLETE) 681(byte-defop 115 0 byte-set-mark-OBSOLETE)
682(byte-defop 116 1 byte-interactive-p-OBSOLETE) 682(byte-defop 116 1 byte-interactive-p-OBSOLETE)
683 683
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el
index fa5d1cff417..797493743c0 100644
--- a/lisp/emacs-lisp/checkdoc.el
+++ b/lisp/emacs-lisp/checkdoc.el
@@ -2133,7 +2133,7 @@ buffer, otherwise stop after the first error."
2133 (checkdoc-ispell-init) 2133 (checkdoc-ispell-init)
2134 (unless checkdoc-spellcheck-documentation-flag 2134 (unless checkdoc-spellcheck-documentation-flag
2135 ;; this happens when (checkdoc-ispell-init) can't start `ispell-program-name' 2135 ;; this happens when (checkdoc-ispell-init) can't start `ispell-program-name'
2136 (user-error "No spellchecker installed: check the variable `ispell-program-name'.")) 2136 (user-error "No spellchecker installed: check the variable `ispell-program-name'"))
2137 (save-excursion 2137 (save-excursion
2138 (skip-chars-forward "^a-zA-Z") 2138 (skip-chars-forward "^a-zA-Z")
2139 (let (word sym case-fold-search err word-beginning word-end) 2139 (let (word sym case-fold-search err word-beginning word-end)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 9edd85e36bf..d56f4151df7 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -776,7 +776,7 @@ The result of the body appears to the compiler as a quoted constant."
776 "Eval EXPR and choose among clauses on that value. 776 "Eval EXPR and choose among clauses on that value.
777Each clause looks like (KEYLIST BODY...). EXPR is evaluated and 777Each clause looks like (KEYLIST BODY...). EXPR is evaluated and
778compared against each key in each KEYLIST; the corresponding BODY 778compared against each key in each KEYLIST; the corresponding BODY
779is evaluated. If no clause succeeds, cl-case returns nil. A 779is evaluated. If no clause succeeds, this macro returns nil. A
780single non-nil atom may be used in place of a KEYLIST of one 780single non-nil atom may be used in place of a KEYLIST of one
781atom. A KEYLIST of t or `otherwise' is allowed only in the final 781atom. A KEYLIST of t or `otherwise' is allowed only in the final
782clause, and matches if no other keys match. Key values are 782clause, and matches if no other keys match. Key values are
@@ -815,10 +815,10 @@ compared by `eql'.
815 815
816;;;###autoload 816;;;###autoload
817(defmacro cl-typecase (expr &rest clauses) 817(defmacro cl-typecase (expr &rest clauses)
818 "Evals EXPR, chooses among clauses on that value. 818 "Eval EXPR and choose among clauses on that value.
819Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it 819Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it
820satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, 820satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds,
821cl-typecase returns nil. A TYPE of t or `otherwise' is allowed only in the 821this macro returns nil. A TYPE of t or `otherwise' is allowed only in the
822final clause, and matches if no other keys match. 822final clause, and matches if no other keys match.
823\n(fn EXPR (TYPE BODY...)...)" 823\n(fn EXPR (TYPE BODY...)...)"
824 (declare (indent 1) 824 (declare (indent 1)
@@ -2707,7 +2707,7 @@ pairs for that slot.
2707Supported keywords for slots are: 2707Supported keywords for slots are:
2708- `:read-only': If this has a non-nil value, that slot cannot be set via `setf'. 2708- `:read-only': If this has a non-nil value, that slot cannot be set via `setf'.
2709- `:documentation': this is a docstring describing the slot. 2709- `:documentation': this is a docstring describing the slot.
2710- `:type': the type of the field; currently unused. 2710- `:type': the type of the field; currently only used for documentation.
2711 2711
2712\(fn NAME &optional DOCSTRING &rest SLOTS)" 2712\(fn NAME &optional DOCSTRING &rest SLOTS)"
2713 (declare (doc-string 2) (indent 1) 2713 (declare (doc-string 2) (indent 1)
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el
index 7dd3cbd1a21..f68c0faf09d 100644
--- a/lisp/emacs-lisp/elp.el
+++ b/lisp/emacs-lisp/elp.el
@@ -238,7 +238,7 @@ FUNSYM must be a symbol of a defined function."
238 ;; The info vector data structure is a 2 element vector. The 0th 238 ;; The info vector data structure is a 2 element vector. The 0th
239 ;; element is the call-count, i.e. the total number of times this 239 ;; element is the call-count, i.e. the total number of times this
240 ;; function has been entered. This value is bumped up on entry to 240 ;; function has been entered. This value is bumped up on entry to
241 ;; the function so that non-local exists are still recorded. TBD: 241 ;; the function so that non-local exits are still recorded. TBD:
242 ;; I haven't tested non-local exits at all, so no guarantees. 242 ;; I haven't tested non-local exits at all, so no guarantees.
243 ;; 243 ;;
244 ;; The 1st element is the total amount of time in seconds that has 244 ;; The 1st element is the total amount of time in seconds that has
diff --git a/lisp/emacs-lisp/generator.el b/lisp/emacs-lisp/generator.el
index 8a9b01d580f..26ab2679e22 100644
--- a/lisp/emacs-lisp/generator.el
+++ b/lisp/emacs-lisp/generator.el
@@ -59,7 +59,7 @@
59;; This raw form of iteration is general, but a bit awkward to use, so 59;; This raw form of iteration is general, but a bit awkward to use, so
60;; this library also provides some convenience functions: 60;; this library also provides some convenience functions:
61;; 61;;
62;; `iter-do' is like `cl-do', except that instead of walking a list, 62;; `iter-do' is like `dolist', except that instead of walking a list,
63;; it walks an iterator. `cl-loop' is also extended with a new 63;; it walks an iterator. `cl-loop' is also extended with a new
64;; keyword, `iter-by', that iterates over an iterator. 64;; keyword, `iter-by', that iterates over an iterator.
65;; 65;;
@@ -67,7 +67,7 @@
67;;; Implementation: 67;;; Implementation:
68 68
69;; 69;;
70;; The internal cps transformation code uses the cps- namespace. 70;; The internal CPS transformation code uses the cps- namespace.
71;; Iteration functions use the `iter-' namespace. Generator functions 71;; Iteration functions use the `iter-' namespace. Generator functions
72;; are somewhat less efficient than conventional elisp routines, 72;; are somewhat less efficient than conventional elisp routines,
73;; although we try to avoid CPS transformation on forms that do not 73;; although we try to avoid CPS transformation on forms that do not
@@ -89,13 +89,13 @@
89 `(gensym (format ,fmt ,@args))) 89 `(gensym (format ,fmt ,@args)))
90 90
91(defvar cps--dynamic-wrappers '(identity) 91(defvar cps--dynamic-wrappers '(identity)
92 "List of transformer functions to apply to atomic forms we 92 "List of functions to apply to atomic forms.
93evaluate in CPS context.") 93These are transformer functions applied to atomic forms evaluated
94in CPS context.")
94 95
95(defconst cps-standard-special-forms 96(defconst cps-standard-special-forms
96 '(setq setq-default throw interactive) 97 '(setq setq-default throw interactive)
97 "List of special forms that we treat just like ordinary 98 "List of special forms treated just like ordinary function applications." )
98 function applications." )
99 99
100(defun cps--trace-funcall (func &rest args) 100(defun cps--trace-funcall (func &rest args)
101 (message "%S: args=%S" func args) 101 (message "%S: args=%S" func args)
@@ -118,17 +118,15 @@ evaluate in CPS context.")
118 (error "%s not supported in generators" ,function))) 118 (error "%s not supported in generators" ,function)))
119 119
120(defmacro cps--with-value-wrapper (wrapper &rest body) 120(defmacro cps--with-value-wrapper (wrapper &rest body)
121 "Continue generating CPS code with an atomic-form wrapper 121 "Evaluate BODY with WRAPPER added to the stack of atomic-form wrappers.
122to the current stack of such wrappers. WRAPPER is a function that 122WRAPPER is a function that takes an atomic form and returns a wrapped form.
123takes a form and returns a wrapped form.
124 123
125Whenever we generate an atomic form (i.e., a form that can't 124Whenever we generate an atomic form (i.e., a form that can't
126`iter-yield'), we first (before actually inserting that form in our 125`iter-yield'), we first (before actually inserting that form in our
127generated code) pass that form through all the transformer 126generated code) pass that form through all the transformer
128functions. We use this facility to wrap forms that can transfer 127functions. We use this facility to wrap forms that can transfer
129control flow non-locally in goo that diverts this control flow to 128control flow non-locally in goo that diverts this control flow to
130the CPS state machinery. 129the CPS state machinery."
131"
132 (declare (indent 1)) 130 (declare (indent 1))
133 `(let ((cps--dynamic-wrappers 131 `(let ((cps--dynamic-wrappers
134 (cons 132 (cons
@@ -153,7 +151,7 @@ DYNAMIC-VAR bound to STATIC-VAR."
153 ,@body)) 151 ,@body))
154 152
155(defun cps--add-state (kind body) 153(defun cps--add-state (kind body)
156 "Create a new CPS state with body BODY and return the state's name." 154 "Create a new CPS state of KIND with BODY and return the state's name."
157 (declare (indent 1)) 155 (declare (indent 1))
158 (let* ((state (cps--gensym "cps-state-%s-" kind))) 156 (let* ((state (cps--gensym "cps-state-%s-" kind)))
159 (push (list state body cps--cleanup-function) cps--states) 157 (push (list state body cps--cleanup-function) cps--states)
@@ -170,14 +168,12 @@ DYNAMIC-VAR bound to STATIC-VAR."
170 (and (fboundp handler) handler))) 168 (and (fboundp handler) handler)))
171 169
172(defvar cps-inhibit-atomic-optimization nil 170(defvar cps-inhibit-atomic-optimization nil
173 "When non-nil, always rewrite forms into cps even when they 171 "When non-nil, always rewrite forms into CPS even when they don't yield.")
174don't yield.")
175 172
176(defvar cps--yield-seen) 173(defvar cps--yield-seen)
177 174
178(defun cps--atomic-p (form) 175(defun cps--atomic-p (form)
179 "Return whether the given form never yields." 176 "Return nil if FORM can yield, non-nil otherwise."
180
181 (and (not cps-inhibit-atomic-optimization) 177 (and (not cps-inhibit-atomic-optimization)
182 (let* ((cps--yield-seen)) 178 (let* ((cps--yield-seen))
183 (ignore (macroexpand-all 179 (ignore (macroexpand-all
@@ -649,8 +645,8 @@ modified copy."
649(defun iter-yield (value) 645(defun iter-yield (value)
650 "When used inside a generator, yield control to caller. 646 "When used inside a generator, yield control to caller.
651The caller of `iter-next' receives VALUE, and the next call to 647The caller of `iter-next' receives VALUE, and the next call to
652`iter-next' resumes execution at the previous 648`iter-next' resumes execution with the form immediately following this
653`iter-yield' point." 649`iter-yield' call."
654 (identity value) 650 (identity value)
655 (error "`iter-yield' used outside a generator")) 651 (error "`iter-yield' used outside a generator"))
656 652
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index b43e53b9d27..065a9688770 100644
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -38,7 +38,7 @@
38;; 38;;
39;; Instead, we use here a higher-order approach: instead 39;; Instead, we use here a higher-order approach: instead
40;; of a 5-tuple, a place-expander returns a function. 40;; of a 5-tuple, a place-expander returns a function.
41;; If you think about types, the old approach return things of type 41;; If you think about types, the old approach returns things of type
42;; {vars: List Var, values: List Exp, 42;; {vars: List Var, values: List Exp,
43;; stores: List Var, getter: Exp, setter: Exp} 43;; stores: List Var, getter: Exp, setter: Exp}
44;; whereas the new approach returns a function of type 44;; whereas the new approach returns a function of type
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index fbbd389bf96..fa857cd4c6b 100644
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -535,7 +535,7 @@ This will generate compile-time constants from BINDINGS."
535 535
536;; Support backtrace mode. 536;; Support backtrace mode.
537(defconst lisp-el-font-lock-keywords-for-backtraces lisp-el-font-lock-keywords 537(defconst lisp-el-font-lock-keywords-for-backtraces lisp-el-font-lock-keywords
538 "Default highlighting from Emacs Lisp mod used in Backtrace mode.") 538 "Default highlighting from Emacs Lisp mode used in Backtrace mode.")
539(defconst lisp-el-font-lock-keywords-for-backtraces-1 lisp-el-font-lock-keywords-1 539(defconst lisp-el-font-lock-keywords-for-backtraces-1 lisp-el-font-lock-keywords-1
540 "Subdued highlighting from Emacs Lisp mode used in Backtrace mode.") 540 "Subdued highlighting from Emacs Lisp mode used in Backtrace mode.")
541(defconst lisp-el-font-lock-keywords-for-backtraces-2 541(defconst lisp-el-font-lock-keywords-for-backtraces-2
diff --git a/lisp/image/exif.el b/lisp/image/exif.el
index 065456dc318..6aeb52c726d 100644
--- a/lisp/image/exif.el
+++ b/lisp/image/exif.el
@@ -95,7 +95,7 @@ mirrored or not.")
95 "Parse FILE (a JPEG file) and return the Exif data, if any. 95 "Parse FILE (a JPEG file) and return the Exif data, if any.
96The return value is a list of Exif items. 96The return value is a list of Exif items.
97 97
98If the data is invalid, an `exif-error' is signalled." 98If the data is invalid, an `exif-error' is signaled."
99 (with-temp-buffer 99 (with-temp-buffer
100 (set-buffer-multibyte nil) 100 (set-buffer-multibyte nil)
101 (insert-file-contents-literally file) 101 (insert-file-contents-literally file)
@@ -105,7 +105,7 @@ If the data is invalid, an `exif-error' is signalled."
105 "Parse BUFFER (which should be a JPEG file) and return the Exif data, if any. 105 "Parse BUFFER (which should be a JPEG file) and return the Exif data, if any.
106The return value is a list of Exif items. 106The return value is a list of Exif items.
107 107
108If the data is invalid, an `exif-error' is signalled." 108If the data is invalid, an `exif-error' is signaled."
109 (setq buffer (or buffer (current-buffer))) 109 (setq buffer (or buffer (current-buffer)))
110 (with-current-buffer buffer 110 (with-current-buffer buffer
111 (if enable-multibyte-characters 111 (if enable-multibyte-characters
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index caa5747817c..5cc10b1315a 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -75,7 +75,7 @@ unless the display width of STR is equal to or less than the display
75width of ELLIPSIS. If it is non-nil and not a string, then ELLIPSIS 75width of ELLIPSIS. If it is non-nil and not a string, then ELLIPSIS
76defaults to `truncate-string-ellipsis'. 76defaults to `truncate-string-ellipsis'.
77 77
78If ELLIPSIS-TEXT-PROPERTY in non-nil, a too-long string will not 78If ELLIPSIS-TEXT-PROPERTY is non-nil, a too-long string will not
79be truncated, but instead the elided parts will be covered by a 79be truncated, but instead the elided parts will be covered by a
80`display' text property showing the ellipsis." 80`display' text property showing the ellipsis."
81 (or start-column 81 (or start-column
diff --git a/lisp/json.el b/lisp/json.el
index 18d7fda8822..ac323dac295 100644
--- a/lisp/json.el
+++ b/lisp/json.el
@@ -735,7 +735,7 @@ you will get the following structure returned:
735 735
736OBJECT should have a structure like one returned by `json-read'. 736OBJECT should have a structure like one returned by `json-read'.
737If an error is detected during encoding, an error based on 737If an error is detected during encoding, an error based on
738`json-error' is signalled." 738`json-error' is signaled."
739 (cond ((memq object (list t json-null json-false)) 739 (cond ((memq object (list t json-null json-false))
740 (json-encode-keyword object)) 740 (json-encode-keyword object))
741 ((stringp object) (json-encode-string object)) 741 ((stringp object) (json-encode-string object))
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index b81f778eb4f..f6e2b236f3e 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -163,8 +163,8 @@ perform completion, no matter what ACTION is.
163 163
164If ACTION is `metadata' or a list where the first element is 164If ACTION is `metadata' or a list where the first element is
165`boundaries', return nil. If ACTION is nil, this function works 165`boundaries', return nil. If ACTION is nil, this function works
166like `try-completion'; if it's t, this function works like 166like `try-completion'; if it is t, this function works like
167`all-completion'; and any other values makes it work like 167`all-completion'; and any other value makes it work like
168`test-completion'." 168`test-completion'."
169 (cond 169 (cond
170 ((functionp collection) (funcall collection string predicate action)) 170 ((functionp collection) (funcall collection string predicate action))
diff --git a/lisp/obsolete/cl.el b/lisp/obsolete/cl.el
index 1da4289b695..20bffffd781 100644
--- a/lisp/obsolete/cl.el
+++ b/lisp/obsolete/cl.el
@@ -509,7 +509,7 @@ This method shows how to handle `setf's to places of the form
509ARGLIST, as if NAME were going to be expanded as a macro, then 509ARGLIST, as if NAME were going to be expanded as a macro, then
510the BODY forms are executed and must return a list of five elements: 510the BODY forms are executed and must return a list of five elements:
511a temporary-variables list, a value-forms list, a store-variables list 511a temporary-variables list, a value-forms list, a store-variables list
512\(of length one), a store-form, and an access- form. 512\(of length one), a store-form, and an access-form.
513 513
514See `gv-define-expander', and `gv-define-setter' for better and 514See `gv-define-expander', and `gv-define-setter' for better and
515simpler ways to define setf-methods." 515simpler ways to define setf-methods."
diff --git a/lisp/startup.el b/lisp/startup.el
index 5af264e3ef7..bff10003f84 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -352,11 +352,11 @@ Setting `init-file-user' does not prevent Emacs from loading
352 352
353(defcustom site-run-file (purecopy "site-start") 353(defcustom site-run-file (purecopy "site-start")
354 "File containing site-wide run-time initializations. 354 "File containing site-wide run-time initializations.
355This file is loaded at run-time before `~/.emacs'. It contains inits 355This file is loaded at run-time before `user-init-file'. It contains
356that need to be in place for the entire site, but which, due to their 356inits that need to be in place for the entire site, but which, due to
357higher incidence of change, don't make sense to put into Emacs's 357their higher incidence of change, don't make sense to put into Emacs's
358dump file. Thus, the run-time load order is: 1. file described in 358dump file. Thus, the run-time load order is: 1. file described in
359this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'. 359this variable, if non-nil; 2. `user-init-file'; 3. `default.el'.
360 360
361Don't use the `site-start.el' file for things some users may not like. 361Don't use the `site-start.el' file for things some users may not like.
362Put them in `default.el' instead, so that users can more easily 362Put them in `default.el' instead, so that users can more easily
diff --git a/lisp/subr.el b/lisp/subr.el
index a744cfddfd4..33194e4ffa2 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -385,7 +385,7 @@ entry to the debugger, even when `debug-on-error' is non-nil.
385This can be overridden by `debug-ignored-errors'. 385This can be overridden by `debug-ignored-errors'.
386 386
387To signal with MESSAGE without interpreting format characters 387To signal with MESSAGE without interpreting format characters
388like `%', `\\=`' and `\\='', use (error \"%s\" MESSAGE). 388like `%', `\\=`' and `\\='', use (user-error \"%s\" MESSAGE).
389In Emacs, the convention is that error messages start with a capital 389In Emacs, the convention is that error messages start with a capital
390letter but *do not* end with a period. Please follow this convention 390letter but *do not* end with a period. Please follow this convention
391for the sake of consistency." 391for the sake of consistency."
@@ -3290,7 +3290,7 @@ alternatives."
3290 3290
3291(defun function-get (f prop &optional autoload) 3291(defun function-get (f prop &optional autoload)
3292 "Return the value of property PROP of function F. 3292 "Return the value of property PROP of function F.
3293If AUTOLOAD is non-nil and F is autoloaded, try to autoload it 3293If AUTOLOAD is non-nil and F is autoloaded, try to load it
3294in the hope that it will set PROP. If AUTOLOAD is `macro', do it only 3294in the hope that it will set PROP. If AUTOLOAD is `macro', do it only
3295if it's an autoloaded macro." 3295if it's an autoloaded macro."
3296 (let ((val nil)) 3296 (let ((val nil))
@@ -4997,7 +4997,7 @@ The properties used on SYMBOL are `composefunc', `sendfunc',
4997(defun backtrace-frames (&optional base) 4997(defun backtrace-frames (&optional base)
4998 "Collect all frames of current backtrace into a list. 4998 "Collect all frames of current backtrace into a list.
4999If non-nil, BASE should be a function, and frames before its 4999If non-nil, BASE should be a function, and frames before its
5000nearest activation frames are discarded." 5000nearest activation frame are discarded."
5001 (let ((frames nil)) 5001 (let ((frames nil))
5002 (mapbacktrace (lambda (&rest frame) (push frame frames)) 5002 (mapbacktrace (lambda (&rest frame) (push frame frames))
5003 (or base 'backtrace-frames)) 5003 (or base 'backtrace-frames))
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index a9fbd2f04cb..65f61644b6d 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -800,8 +800,8 @@ Otherwise returns the library directory name, if that is defined."
800 800
801(defun ispell-create-debug-buffer (&optional append) 801(defun ispell-create-debug-buffer (&optional append)
802 "Create an ispell debug buffer for debugging output. 802 "Create an ispell debug buffer for debugging output.
803If APPEND is non-nil, append the info to previous buffer if exists, 803If APPEND is non-nil, add output to the old buffer if it exists,
804otherwise is reset. Returns name of ispell debug buffer. 804otherwise the buffer is erased first. Returns the debug buffer.
805See `ispell-buffer-with-debug' for an example of use." 805See `ispell-buffer-with-debug' for an example of use."
806 (let ((ispell-debug-buffer (get-buffer-create "*ispell-debug*"))) 806 (let ((ispell-debug-buffer (get-buffer-create "*ispell-debug*")))
807 (with-current-buffer ispell-debug-buffer 807 (with-current-buffer ispell-debug-buffer
@@ -812,7 +812,7 @@ See `ispell-buffer-with-debug' for an example of use."
812 ispell-debug-buffer)) 812 ispell-debug-buffer))
813 813
814(defsubst ispell-print-if-debug (format &rest args) 814(defsubst ispell-print-if-debug (format &rest args)
815 "Print message using FORMAT and ARGS to `ispell-debug-buffer' buffer if enabled." 815 "Print message using FORMAT and ARGS to `ispell-debug-buffer' if enabled."
816 (if (boundp 'ispell-debug-buffer) 816 (if (boundp 'ispell-debug-buffer)
817 (with-current-buffer ispell-debug-buffer 817 (with-current-buffer ispell-debug-buffer
818 (goto-char (point-max)) 818 (goto-char (point-max))
@@ -3618,8 +3618,8 @@ Returns the sum SHIFT due to changes in word replacements."
3618 3618
3619;;;###autoload 3619;;;###autoload
3620(defun ispell-buffer-with-debug (&optional append) 3620(defun ispell-buffer-with-debug (&optional append)
3621 "`ispell-buffer' with some output sent to `ispell-debug-buffer' buffer. 3621 "`ispell-buffer' with some output sent to `ispell-debug-buffer'.
3622If APPEND is non-n il, append the info to previous buffer if exists." 3622If APPEND is non-nil, don't erase previous debugging output."
3623 (interactive) 3623 (interactive)
3624 (let ((ispell-debug-buffer (ispell-create-debug-buffer append))) 3624 (let ((ispell-debug-buffer (ispell-create-debug-buffer append)))
3625 (ispell-buffer))) 3625 (ispell-buffer)))
diff --git a/src/eval.c b/src/eval.c
index 78a787c4ffd..014905ce6df 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1229,7 +1229,7 @@ The car of a handler may be a list of condition names instead of a
1229single condition name; then it handles all of them. If the special 1229single condition name; then it handles all of them. If the special
1230condition name `debug' is present in this list, it allows another 1230condition name `debug' is present in this list, it allows another
1231condition in the list to run the debugger if `debug-on-error' and the 1231condition in the list to run the debugger if `debug-on-error' and the
1232other usual mechanisms says it should (otherwise, `condition-case' 1232other usual mechanisms say it should (otherwise, `condition-case'
1233suppresses the debugger). 1233suppresses the debugger).
1234 1234
1235When a handler handles an error, control returns to the `condition-case' 1235When a handler handles an error, control returns to the `condition-case'
diff --git a/src/lread.c b/src/lread.c
index af7480a9769..f9a8cb3e1a0 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -4919,7 +4919,7 @@ features required. Each entry has the form `(provide . FEATURE)',
4919`(defface . SYMBOL)', `(define-type . SYMBOL)', 4919`(defface . SYMBOL)', `(define-type . SYMBOL)',
4920`(cl-defmethod METHOD SPECIALIZERS)', or `(t . SYMBOL)'. 4920`(cl-defmethod METHOD SPECIALIZERS)', or `(t . SYMBOL)'.
4921Entries like `(t . SYMBOL)' may precede a `(defun . FUNCTION)' entry, 4921Entries like `(t . SYMBOL)' may precede a `(defun . FUNCTION)' entry,
4922and means that SYMBOL was an autoload before this file redefined it 4922and mean that SYMBOL was an autoload before this file redefined it
4923as a function. In addition, entries may also be single symbols, 4923as a function. In addition, entries may also be single symbols,
4924which means that symbol was defined by `defvar' or `defconst'. 4924which means that symbol was defined by `defvar' or `defconst'.
4925 4925
diff --git a/test/lisp/jsonrpc-tests.el b/test/lisp/jsonrpc-tests.el
index 63c4c32d45f..6c08023d4f3 100644
--- a/test/lisp/jsonrpc-tests.el
+++ b/test/lisp/jsonrpc-tests.el
@@ -114,7 +114,7 @@
114 (condition-case err 114 (condition-case err
115 (progn 115 (progn
116 (jsonrpc-request conn 'delete-directory "~/tmp") 116 (jsonrpc-request conn 'delete-directory "~/tmp")
117 (ert-fail "A `jsonrpc-error' should have been signalled!")) 117 (ert-fail "A `jsonrpc-error' should have been signaled!"))
118 (jsonrpc-error 118 (jsonrpc-error
119 (should (= -32601 (cdr (assoc 'jsonrpc-error-code (cdr err))))))))) 119 (should (= -32601 (cdr (assoc 'jsonrpc-error-code (cdr err)))))))))
120 120
@@ -124,7 +124,7 @@
124 (condition-case err 124 (condition-case err
125 (progn 125 (progn
126 (jsonrpc-request conn '+ ["a" 2]) 126 (jsonrpc-request conn '+ ["a" 2])
127 (ert-fail "A `jsonrpc-error' should have been signalled!")) 127 (ert-fail "A `jsonrpc-error' should have been signaled!"))
128 (jsonrpc-error 128 (jsonrpc-error
129 (should (= -32603 (cdr (assoc 'jsonrpc-error-code (cdr err))))))))) 129 (should (= -32603 (cdr (assoc 'jsonrpc-error-code (cdr err)))))))))
130 130
diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el
index 6673ac4b4eb..5d85fc74e50 100644
--- a/test/src/thread-tests.el
+++ b/test/src/thread-tests.el
@@ -112,7 +112,7 @@
112 (should-error (thread-join (current-thread)))) 112 (should-error (thread-join (current-thread))))
113 113
114(ert-deftest threads-join-error () 114(ert-deftest threads-join-error ()
115 "Test of error signalling from `thread-join'." 115 "Test of error signaling from `thread-join'."
116 :tags '(:unstable) 116 :tags '(:unstable)
117 (skip-unless (featurep 'threads)) 117 (skip-unless (featurep 'threads))
118 (let ((thread (make-thread #'threads-call-error))) 118 (let ((thread (make-thread #'threads-call-error)))