diff options
| author | Štěpán Němec | 2020-03-01 18:50:14 +0100 |
|---|---|---|
| committer | Štěpán Němec | 2020-04-18 17:10:02 +0200 |
| commit | 067b0705986572e42687334c4eaf32988f22f680 (patch) | |
| tree | 70129d8ec8e109cb64f895e462298adf2c2636e8 | |
| parent | f3b62b6c62c41d2e5d15418ea940bce6b11bdf7d (diff) | |
| download | emacs-067b0705986572e42687334c4eaf32988f22f680.tar.gz emacs-067b0705986572e42687334c4eaf32988f22f680.zip | |
; Fix some typos and doc issues (bug#40695)
| -rw-r--r-- | ChangeLog.3 | 16 | ||||
| -rw-r--r-- | admin/notes/bug-triage | 2 | ||||
| -rw-r--r-- | doc/emacs/fixit.texi | 30 | ||||
| -rw-r--r-- | doc/lispref/display.texi | 4 | ||||
| -rw-r--r-- | doc/lispref/functions.texi | 2 | ||||
| -rw-r--r-- | doc/lispref/os.texi | 2 | ||||
| -rw-r--r-- | doc/lispref/text.texi | 4 | ||||
| -rw-r--r-- | lib/ieee754.in.h | 4 | ||||
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 8 | ||||
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/generator.el | 32 | ||||
| -rw-r--r-- | lisp/emacs-lisp/gv.el | 2 | ||||
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 2 | ||||
| -rw-r--r-- | lisp/image/exif.el | 4 | ||||
| -rw-r--r-- | lisp/international/mule-util.el | 2 | ||||
| -rw-r--r-- | lisp/json.el | 2 | ||||
| -rw-r--r-- | lisp/minibuffer.el | 4 | ||||
| -rw-r--r-- | lisp/obsolete/cl.el | 2 | ||||
| -rw-r--r-- | lisp/startup.el | 8 | ||||
| -rw-r--r-- | lisp/subr.el | 6 | ||||
| -rw-r--r-- | lisp/textmodes/ispell.el | 10 | ||||
| -rw-r--r-- | src/eval.c | 2 | ||||
| -rw-r--r-- | src/lread.c | 2 | ||||
| -rw-r--r-- | test/lisp/jsonrpc-tests.el | 4 | ||||
| -rw-r--r-- | test/src/thread-tests.el | 2 |
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 | ||
| 11665 | 2019-10-12 Kaushal Modi <kaushal.modi@gmail.com> | 11665 | 2019-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 | ||
| 15065 | 2019-09-22 Andreas Schwab <schwab@linux-m68k.org> | 15065 | 2019-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 | ||
| 25105 | 2019-07-09 Lars Ingebrigtsen <larsi@gnus.org> | 25105 | 2019-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 | ||
| 26977 | 2019-06-26 Stefan Monnier <monnier@iro.umontreal.ca> | 26977 | 2019-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 | ||
| 34112 | 2019-05-16 Stefan Monnier <monnier@iro.umontreal.ca> | 34112 | 2019-05-16 Stefan Monnier <monnier@iro.umontreal.ca> |
| 34113 | 34113 | ||
| @@ -40134,10 +40134,10 @@ | |||
| 40134 | 40134 | ||
| 40135 | 2019-03-30 Mattias Engdegård <mattiase@acm.org> | 40135 | 2019-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 | ||
| 40143 | 2019-03-30 Mattias Engdegård <mattiase@acm.org> | 40143 | 2019-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 | ||
| 83 | The goal of the new bug triage process is similar to the backlog triage process, | 83 | The goal of the new bug triage process is similar to the backlog triage process, |
| 84 | except that the focus is on prioritizing the bug, and making sure it is has | 84 | except that the focus is on prioritizing the bug, and making sure it has |
| 85 | necessary information for others to act on. | 85 | necessary information for others to act on. |
| 86 | 86 | ||
| 87 | For each new bug, ask the following questions: | 87 | For 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 |
| 202 | tells the transpose command to move the character (or word or | 202 | tells the transpose command to move the character (or word or |
| 203 | expression or line) before or containing point across several other | 203 | expression or line) before or containing point across several other |
| 204 | characters (or words or expressions or lines). For example, @kbd{C-u | 204 | characters (or words or expressions or lines). For example, @w{@kbd{C-u |
| 205 | 3 C-t} moves the character before point forward across three other | 205 | 3 C-t}} moves the character before point forward across three other |
| 206 | characters. It would change @samp{f@point{}oobar} into | 206 | characters. 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} |
| 208 | three times. @kbd{C-u - 4 M-t} moves the word before point backward | 208 | three 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 |
| 306 | the region if one is active, or in the entire buffer otherwise. The | 306 | the region if one is active, or in the entire buffer otherwise. The |
| 307 | commands @kbd{M-x ispell-buffer} and @kbd{M-x ispell-region} | 307 | commands @w{@kbd{M-x ispell-buffer}} and @w{@kbd{M-x ispell-region}} |
| 308 | explicitly perform spell-checking on the entire buffer or the region | 308 | explicitly perform spell-checking on the entire buffer or the region |
| 309 | respectively. To check spelling in an email message you are writing, | 309 | respectively. To check spelling in an email message you are writing, |
| 310 | use @kbd{M-x ispell-message}; that command checks the whole buffer, | 310 | use @w{@kbd{M-x ispell-message}}; that command checks the whole buffer, |
| 311 | except for material that is indented or appears to be cited from other | 311 | except for material that is indented or appears to be cited from other |
| 312 | messages. @xref{Sending Mail}. | 312 | messages. @xref{Sending Mail}. |
| 313 | 313 | ||
| @@ -365,8 +365,8 @@ wildcard. | |||
| 365 | @item C-g | 365 | @item C-g |
| 366 | @itemx X | 366 | @itemx X |
| 367 | Quit interactive spell-checking, leaving point at the word that was | 367 | Quit interactive spell-checking, leaving point at the word that was |
| 368 | being checked. You can restart checking again afterward with @kbd{C-u | 368 | being checked. You can restart checking again afterward with @w{@kbd{C-u |
| 369 | M-$}. | 369 | M-$}}. |
| 370 | 370 | ||
| 371 | @item x | 371 | @item x |
| 372 | Quit interactive spell-checking and move point back to where it was | 372 | Quit 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 |
| 385 | spelling correction. Insert the beginning of a word, and then type | 385 | spelling 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 |
| 387 | window manager intercepts @kbd{M-@key{TAB}}, type @kbd{@key{ESC} | 387 | window 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 |
| 389 | character; type that digit or character to choose it. | 389 | character; 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 |
| 394 | to run, waiting for something to do, so that subsequent spell-checking | 394 | to run, waiting for something to do, so that subsequent spell-checking |
| 395 | commands complete more quickly. If you want to get rid of the | 395 | commands complete more quickly. If you want to get rid of the |
| 396 | process, use @kbd{M-x ispell-kill-ispell}. This is not usually | 396 | process, use @w{@kbd{M-x ispell-kill-ispell}}. This is not usually |
| 397 | necessary, since the process uses no processor time except when you do | 397 | necessary, since the process uses no processor time except when you do |
| 398 | spelling correction. | 398 | spelling correction. |
| 399 | 399 | ||
| @@ -406,7 +406,7 @@ the standard dictionary and your personal dictionary. The standard | |||
| 406 | dictionary is specified by the variable @code{ispell-local-dictionary} | 406 | dictionary is specified by the variable @code{ispell-local-dictionary} |
| 407 | or, if that is @code{nil}, by the variable @code{ispell-dictionary}. | 407 | or, if that is @code{nil}, by the variable @code{ispell-dictionary}. |
| 408 | If both are @code{nil}, the spelling program's default dictionary is | 408 | If both are @code{nil}, the spelling program's default dictionary is |
| 409 | used. The command @kbd{M-x ispell-change-dictionary} sets the | 409 | used. The command @w{@kbd{M-x ispell-change-dictionary}} sets the |
| 410 | standard dictionary for the buffer and then restarts the subprocess, | 410 | standard dictionary for the buffer and then restarts the subprocess, |
| 411 | so that it will use a different standard dictionary. Your personal | 411 | so that it will use a different standard dictionary. Your personal |
| 412 | dictionary is specified by the variable | 412 | dictionary 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 |
| 430 | of the text you type as you type it. When it finds a word that it | 430 | of the text you type as you type it. When it finds a word that it |
| 431 | does not recognize, it highlights that word. Type @kbd{M-x | 431 | does not recognize, it highlights that word. Type @w{@kbd{M-x |
| 432 | flyspell-mode} to toggle Flyspell mode in the current buffer. To | 432 | flyspell-mode}} to toggle Flyspell mode in the current buffer. To |
| 433 | enable Flyspell mode in all text mode buffers, add | 433 | enable 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 |
| 435 | that, as Flyspell mode needs to check each word across which you move, | 435 | that, 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 | |||
| 445 | of possible corrections and actions. In addition, @kbd{C-.} or | 445 | of 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 |
| 447 | propose various successive corrections for the word at point, and | 447 | propose 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 |
| 449 | menu of possible corrections. Of course, you can always correct the | 449 | menu of possible corrections. Of course, you can always correct the |
| 450 | misspelled word by editing it manually in any way you like. | 450 | misspelled 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 |
| 454 | that it only checks words in comments and string constants. This | 454 | that it only checks words in comments and string constants. This |
| 455 | feature is useful for editing programs. Type @kbd{M-x | 455 | feature is useful for editing programs. Type @w{@kbd{M-x |
| 456 | flyspell-prog-mode} to enable or disable this mode in the current | 456 | flyspell-prog-mode}} to enable or disable this mode in the current |
| 457 | buffer. To enable this mode in all programming mode buffers, add | 457 | buffer. 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 | |||
| 6929 | is displayed. Any button with a non-@code{nil} @code{skip} property | 6929 | is displayed. Any button with a non-@code{nil} @code{skip} property |
| 6930 | is skipped over. Returns the button found, and signals an error if no | 6930 | is skipped over. Returns the button found, and signals an error if no |
| 6931 | buttons can be found. If @var{no-error} in non-@code{nil}, return nil | 6931 | buttons can be found. If @var{no-error} in non-@code{nil}, return nil |
| 6932 | instead of signalling the error. | 6932 | instead 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 | |||
| 6941 | is displayed. Any button with a non-@code{nil} @code{skip} property | 6941 | is displayed. Any button with a non-@code{nil} @code{skip} property |
| 6942 | is skipped over. Returns the button found, and signals an error if no | 6942 | is skipped over. Returns the button found, and signals an error if no |
| 6943 | buttons can be found. If @var{no-error} in non-@code{nil}, return nil | 6943 | buttons can be found. If @var{no-error} in non-@code{nil}, return nil |
| 6944 | instead of signalling the error. | 6944 | instead 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 | |||
| 2287 | case it will be passed to @code{gv-define-simple-setter}, or it can be of the | 2287 | case it will be passed to @code{gv-define-simple-setter}, or it can be of the |
| 2288 | form @code{(lambda (@var{arg}) @var{body})} in which case that function will | 2288 | form @code{(lambda (@var{arg}) @var{body})} in which case that function will |
| 2289 | additionally have access to the macro (or function)'s arguments and it will | 2289 | additionally have access to the macro (or function)'s arguments and it will |
| 2290 | passed to @code{gv-define-setter}. | 2290 | be 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 | |||
| 2616 | This variable is non-@code{nil} when Emacs is running in batch mode. | 2616 | This variable is non-@code{nil} when Emacs is running in batch mode. |
| 2617 | @end defvar | 2617 | @end defvar |
| 2618 | 2618 | ||
| 2619 | If Emacs exits due to signalling an error in batch mode, the exit | 2619 | If Emacs exits due to signaling an error in batch mode, the exit |
| 2620 | status of the Emacs command is non-zero: | 2620 | status 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 | |||
| 4679 | above. @var{specification} is an alist that has elements where the | 4679 | above. @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 | ||
| 4682 | If @code{ONLY-PRESENT} is @code{nil}, errors will be signalled if a | 4682 | If @code{ONLY-PRESENT} is @code{nil}, errors will be signaled if a |
| 4683 | format character has been used that's not present in | 4683 | format 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 |
| 4685 | specification is left verbatim in the result. | 4685 | specification 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 |
| 5726 | the body of a @code{combine-after-change-calls} form. | 5726 | the 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 |
| 5729 | parts of the buffer, this will still work, but it is not advisable, | 5729 | parts of the buffer, this will still work, but it is not advisable, |
| 5730 | because it may lead to inefficient behavior for some change hook | 5730 | because it may lead to inefficient behavior for some change hook |
| 5731 | functions. | 5731 | functions. |
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. |
| 777 | Each clause looks like (KEYLIST BODY...). EXPR is evaluated and | 777 | Each clause looks like (KEYLIST BODY...). EXPR is evaluated and |
| 778 | compared against each key in each KEYLIST; the corresponding BODY | 778 | compared against each key in each KEYLIST; the corresponding BODY |
| 779 | is evaluated. If no clause succeeds, cl-case returns nil. A | 779 | is evaluated. If no clause succeeds, this macro returns nil. A |
| 780 | single non-nil atom may be used in place of a KEYLIST of one | 780 | single non-nil atom may be used in place of a KEYLIST of one |
| 781 | atom. A KEYLIST of t or `otherwise' is allowed only in the final | 781 | atom. A KEYLIST of t or `otherwise' is allowed only in the final |
| 782 | clause, and matches if no other keys match. Key values are | 782 | clause, 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. |
| 819 | Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it | 819 | Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it |
| 820 | satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, | 820 | satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, |
| 821 | cl-typecase returns nil. A TYPE of t or `otherwise' is allowed only in the | 821 | this macro returns nil. A TYPE of t or `otherwise' is allowed only in the |
| 822 | final clause, and matches if no other keys match. | 822 | final 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. | |||
| 2707 | Supported keywords for slots are: | 2707 | Supported 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. |
| 93 | evaluate in CPS context.") | 93 | These are transformer functions applied to atomic forms evaluated |
| 94 | in 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. |
| 122 | to the current stack of such wrappers. WRAPPER is a function that | 122 | WRAPPER is a function that takes an atomic form and returns a wrapped form. |
| 123 | takes a form and returns a wrapped form. | ||
| 124 | 123 | ||
| 125 | Whenever we generate an atomic form (i.e., a form that can't | 124 | Whenever 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 |
| 127 | generated code) pass that form through all the transformer | 126 | generated code) pass that form through all the transformer |
| 128 | functions. We use this facility to wrap forms that can transfer | 127 | functions. We use this facility to wrap forms that can transfer |
| 129 | control flow non-locally in goo that diverts this control flow to | 128 | control flow non-locally in goo that diverts this control flow to |
| 130 | the CPS state machinery. | 129 | the 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.") |
| 174 | don'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. |
| 651 | The caller of `iter-next' receives VALUE, and the next call to | 647 | The 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. |
| 96 | The return value is a list of Exif items. | 96 | The return value is a list of Exif items. |
| 97 | 97 | ||
| 98 | If the data is invalid, an `exif-error' is signalled." | 98 | If 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. |
| 106 | The return value is a list of Exif items. | 106 | The return value is a list of Exif items. |
| 107 | 107 | ||
| 108 | If the data is invalid, an `exif-error' is signalled." | 108 | If 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 | |||
| 75 | width of ELLIPSIS. If it is non-nil and not a string, then ELLIPSIS | 75 | width of ELLIPSIS. If it is non-nil and not a string, then ELLIPSIS |
| 76 | defaults to `truncate-string-ellipsis'. | 76 | defaults to `truncate-string-ellipsis'. |
| 77 | 77 | ||
| 78 | If ELLIPSIS-TEXT-PROPERTY in non-nil, a too-long string will not | 78 | If ELLIPSIS-TEXT-PROPERTY is non-nil, a too-long string will not |
| 79 | be truncated, but instead the elided parts will be covered by a | 79 | be 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 | ||
| 736 | OBJECT should have a structure like one returned by `json-read'. | 736 | OBJECT should have a structure like one returned by `json-read'. |
| 737 | If an error is detected during encoding, an error based on | 737 | If 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 | ||
| 164 | If ACTION is `metadata' or a list where the first element is | 164 | If 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 |
| 166 | like `try-completion'; if it's t, this function works like | 166 | like `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 | |||
| 509 | ARGLIST, as if NAME were going to be expanded as a macro, then | 509 | ARGLIST, as if NAME were going to be expanded as a macro, then |
| 510 | the BODY forms are executed and must return a list of five elements: | 510 | the BODY forms are executed and must return a list of five elements: |
| 511 | a temporary-variables list, a value-forms list, a store-variables list | 511 | a 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 | ||
| 514 | See `gv-define-expander', and `gv-define-setter' for better and | 514 | See `gv-define-expander', and `gv-define-setter' for better and |
| 515 | simpler ways to define setf-methods." | 515 | simpler 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. |
| 355 | This file is loaded at run-time before `~/.emacs'. It contains inits | 355 | This file is loaded at run-time before `user-init-file'. It contains |
| 356 | that need to be in place for the entire site, but which, due to their | 356 | inits that need to be in place for the entire site, but which, due to |
| 357 | higher incidence of change, don't make sense to put into Emacs's | 357 | their higher incidence of change, don't make sense to put into Emacs's |
| 358 | dump file. Thus, the run-time load order is: 1. file described in | 358 | dump file. Thus, the run-time load order is: 1. file described in |
| 359 | this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'. | 359 | this variable, if non-nil; 2. `user-init-file'; 3. `default.el'. |
| 360 | 360 | ||
| 361 | Don't use the `site-start.el' file for things some users may not like. | 361 | Don't use the `site-start.el' file for things some users may not like. |
| 362 | Put them in `default.el' instead, so that users can more easily | 362 | Put 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. | |||
| 385 | This can be overridden by `debug-ignored-errors'. | 385 | This can be overridden by `debug-ignored-errors'. |
| 386 | 386 | ||
| 387 | To signal with MESSAGE without interpreting format characters | 387 | To signal with MESSAGE without interpreting format characters |
| 388 | like `%', `\\=`' and `\\='', use (error \"%s\" MESSAGE). | 388 | like `%', `\\=`' and `\\='', use (user-error \"%s\" MESSAGE). |
| 389 | In Emacs, the convention is that error messages start with a capital | 389 | In Emacs, the convention is that error messages start with a capital |
| 390 | letter but *do not* end with a period. Please follow this convention | 390 | letter but *do not* end with a period. Please follow this convention |
| 391 | for the sake of consistency." | 391 | for 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. |
| 3293 | If AUTOLOAD is non-nil and F is autoloaded, try to autoload it | 3293 | If AUTOLOAD is non-nil and F is autoloaded, try to load it |
| 3294 | in the hope that it will set PROP. If AUTOLOAD is `macro', do it only | 3294 | in the hope that it will set PROP. If AUTOLOAD is `macro', do it only |
| 3295 | if it's an autoloaded macro." | 3295 | if 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. |
| 4999 | If non-nil, BASE should be a function, and frames before its | 4999 | If non-nil, BASE should be a function, and frames before its |
| 5000 | nearest activation frames are discarded." | 5000 | nearest 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. |
| 803 | If APPEND is non-nil, append the info to previous buffer if exists, | 803 | If APPEND is non-nil, add output to the old buffer if it exists, |
| 804 | otherwise is reset. Returns name of ispell debug buffer. | 804 | otherwise the buffer is erased first. Returns the debug buffer. |
| 805 | See `ispell-buffer-with-debug' for an example of use." | 805 | See `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'. |
| 3622 | If APPEND is non-n il, append the info to previous buffer if exists." | 3622 | If 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 | |||
| 1229 | single condition name; then it handles all of them. If the special | 1229 | single condition name; then it handles all of them. If the special |
| 1230 | condition name `debug' is present in this list, it allows another | 1230 | condition name `debug' is present in this list, it allows another |
| 1231 | condition in the list to run the debugger if `debug-on-error' and the | 1231 | condition in the list to run the debugger if `debug-on-error' and the |
| 1232 | other usual mechanisms says it should (otherwise, `condition-case' | 1232 | other usual mechanisms say it should (otherwise, `condition-case' |
| 1233 | suppresses the debugger). | 1233 | suppresses the debugger). |
| 1234 | 1234 | ||
| 1235 | When a handler handles an error, control returns to the `condition-case' | 1235 | When 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)'. |
| 4921 | Entries like `(t . SYMBOL)' may precede a `(defun . FUNCTION)' entry, | 4921 | Entries like `(t . SYMBOL)' may precede a `(defun . FUNCTION)' entry, |
| 4922 | and means that SYMBOL was an autoload before this file redefined it | 4922 | and mean that SYMBOL was an autoload before this file redefined it |
| 4923 | as a function. In addition, entries may also be single symbols, | 4923 | as a function. In addition, entries may also be single symbols, |
| 4924 | which means that symbol was defined by `defvar' or `defconst'. | 4924 | which 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))) |