; Fix typos

This commit is contained in:
Stefan Kangas 2022-12-15 02:41:20 +01:00
parent f4a513344d
commit 033071692c
25 changed files with 54 additions and 54 deletions

View file

@ -28676,7 +28676,7 @@
* lisp/faces.el (set-face-attribute): Don't be fooled too easily * lisp/faces.el (set-face-attribute): Don't be fooled too easily
by a hyphen in a font's name. by a hyphen in a font's name.
Fix value of posn-at-pont in R2L lines Fix value of posn-at-point in R2L lines
* src/keyboard.c (Fposn_at_x_y, Fposn_at_point): Allow X pixel * src/keyboard.c (Fposn_at_x_y, Fposn_at_point): Allow X pixel
coordinate of -1, for a newline in a right-to-left line that coordinate of -1, for a newline in a right-to-left line that
overflowed into the left fringe. overflowed into the left fringe.

View file

@ -14724,7 +14724,7 @@
* lisp/icomplete.el (icomplete-vertical-mode): * lisp/icomplete.el (icomplete-vertical-mode):
(fido-vertical-mode): Tweak docstring. Turn on (fido-vertical-mode): Tweak docstring. Turn on
icomplete-mode. and fido-mdoe icomplete-mode. and fido-mode
2021-08-16 Glenn Morris <rgm@gnu.org> 2021-08-16 Glenn Morris <rgm@gnu.org>
@ -20654,7 +20654,7 @@
* lisp/progmodes/cc-engine.el (c-clear-<-pair-props, c-clear->-pair-props) * lisp/progmodes/cc-engine.el (c-clear-<-pair-props, c-clear->-pair-props)
(c-clear-<-pair-props-if-match-after, c-clear->-pair-props-if-match-before) (c-clear-<-pair-props-if-match-after, c-clear->-pair-props-if-match-before)
(c-forward-<>-arglist-recur): (c-forward-<>-arglist-recur):
Invalidate caches with c-trunctate-lit-pos-cache. Invalidate caches with c-truncate-lit-pos-cache.
(c-forward-<>-arglist-recur): If in a matching <...> expression, the < has a (c-forward-<>-arglist-recur): If in a matching <...> expression, the < has a
syntax-table property, but the > not, remove that property. syntax-table property, but the > not, remove that property.
@ -28297,7 +28297,7 @@
2021-04-17 Eli Zaretskii <eliz@gnu.org> 2021-04-17 Eli Zaretskii <eliz@gnu.org>
* src/emacs.c (load_pdump): Fix compilation on picky-complier platforms. * src/emacs.c (load_pdump): Fix compilation on picky-compiler platforms.
2021-04-17 Daniel Martín <mardani29@yahoo.es> 2021-04-17 Daniel Martín <mardani29@yahoo.es>
@ -29362,7 +29362,7 @@
Make the function correctly recognize a brace block preceded by an Make the function correctly recognize a brace block preceded by an
introductory line without a parameter list. introductory line without a parameter list.
* lisp/progmodes/cc-cmds.el (c-where-wrt-brace-contruct): Reintroduce the use * lisp/progmodes/cc-cmds.el (c-where-wrt-brace-construct): Reintroduce the use
of c-beginning-of-decl-1, which was removed some weeks ago, in place of a of c-beginning-of-decl-1, which was removed some weeks ago, in place of a
c-syntactic-skip-backward. Reformulate the code generally. c-syntactic-skip-backward. Reformulate the code generally.
@ -31051,7 +31051,7 @@
2021-03-28 Lars Ingebrigtsen <larsi@gnus.org> 2021-03-28 Lars Ingebrigtsen <larsi@gnus.org>
Clarify the doc string of plist-memeber and plist-put Clarify the doc string of plist-member and plist-put
* src/fns.c (Fplist_member): * src/fns.c (Fplist_member):
(Fplist_put): Clarify what comparison function is used for PROP (Fplist_put): Clarify what comparison function is used for PROP
@ -35236,7 +35236,7 @@
2021-03-04 Andrea Corallo <akrl@sdf.org> 2021-03-04 Andrea Corallo <akrl@sdf.org>
* src/comp.c (hash_native_abi): Account for `system-configuraton-options'. * src/comp.c (hash_native_abi): Account for `system-configuration-options'.
2021-03-04 Glenn Morris <rgm@gnu.org> 2021-03-04 Glenn Morris <rgm@gnu.org>
@ -46491,7 +46491,7 @@
Fix Quit button in dictionary buffer Fix Quit button in dictionary buffer
* lisp/net/dictionary.el (dictionay-close): Changing the arity of the * lisp/net/dictionary.el (dictionary-close): Changing the arity of the
function in cc5f2803785c5dc785f09a292313cf799e8d29bb was a mistake. function in cc5f2803785c5dc785f09a292313cf799e8d29bb was a mistake.
Restore it, but mark the argument as unused to avoid a Restore it, but mark the argument as unused to avoid a
wrong-number-of-arguments error when using the Quit button. wrong-number-of-arguments error when using the Quit button.
@ -80628,7 +80628,7 @@
2020-05-17 Andrea Corallo <akrl@sdf.org> 2020-05-17 Andrea Corallo <akrl@sdf.org>
Fix Garbage Collector for missing calle-saved regs content (Bug#41357) Fix Garbage Collector for missing callee-saved regs content (Bug#41357)
* src/alloc.c (SET_STACK_TOP_ADDRESS): Do not call * src/alloc.c (SET_STACK_TOP_ADDRESS): Do not call
__builtin_unwind_init. __builtin_unwind_init.
@ -88998,7 +88998,7 @@
2020-01-19 Stefan Kangas <stefankangas@gmail.com> 2020-01-19 Stefan Kangas <stefankangas@gmail.com>
Make arguments to dired-chage-marks non-optional Make arguments to dired-change-marks non-optional
* lisp/dired.el (dired-change-marks): Make arguments * lisp/dired.el (dired-change-marks): Make arguments
non-optional. (Bug#29842) non-optional. (Bug#29842)
@ -103735,7 +103735,7 @@
Fixes bug#38131. Fixes bug#38131.
This is not the best way to have fido-mdoe emulate that particular bit This is not the best way to have fido-mode emulate that particular bit
of ido-mode. of ido-mode.
This reverts commit 5761a1a3939e23d8e8c725241dd9398a12f191b0. This reverts commit 5761a1a3939e23d8e8c725241dd9398a12f191b0.
@ -118445,7 +118445,7 @@
internal variable... internal variable...
(browse-url-browser-function, browse-url-external-browser): Used (browse-url-browser-function, browse-url-external-browser): Used
by these two; the latter of which is a new variable. by these two; the latter of which is a new variable.
(browse-url-botton-regexp): New variable. (browse-url-button-regexp): New variable.
(browse-url-button-map): New keymap. (browse-url-button-map): New keymap.
(browse-url-button): New face. (browse-url-button): New face.
(browse-url-add-buttons): New function to add clickable browse-url (browse-url-add-buttons): New function to add clickable browse-url
@ -139023,7 +139023,7 @@
Add 'breakpoint' to builtins for Python Add 'breakpoint' to builtins for Python
* lisp/progmodes/python.el (python-font-lock-keywords-level-2) * lisp/progmodes/python.el (python-font-lock-keywords-level-2)
(python-font-lock-keywords-maxiumum-decoration): Add 'breakpoint' (python-font-lock-keywords-maximum-decoration): Add 'breakpoint'
to the list of builtins, it's new as of Python 3.7. to the list of builtins, it's new as of Python 3.7.
2019-03-01 Eli Zaretskii <eliz@gnu.org> 2019-03-01 Eli Zaretskii <eliz@gnu.org>
@ -143055,7 +143055,7 @@
2019-01-05 João Távora <joaotavora@gmail.com> 2019-01-05 João Távora <joaotavora@gmail.com>
New flymake-supress-zero-counters defcustom New flymake-suppress-zero-counters defcustom
A feature suggested by Yuri Khan <yurivkhan@gmail.com>. A feature suggested by Yuri Khan <yurivkhan@gmail.com>.
@ -185861,7 +185861,7 @@
(flymake-start-syntax-check-on-find-file): Obsolete alias for (flymake-start-syntax-check-on-find-file): Obsolete alias for
flymake-start-on-flymake-mode. flymake-start-on-flymake-mode.
(flymake-start): Redesign. Affect the global post-command-hook (flymake-start): Redesign. Affect the global post-command-hook
and local window-configuraiton-change-hook. and local window-configuration-change-hook.
(flymake--schedule-timer-maybe) (flymake--schedule-timer-maybe)
(flymake-after-change-function, flymake-after-save-hook): Pass (flymake-after-change-function, flymake-after-save-hook): Pass
t to flymake-start. t to flymake-start.
@ -190903,7 +190903,7 @@
(initFrameFromEmacs) [NS_IMPL_COCOA]: Handle ns-appearance and (initFrameFromEmacs) [NS_IMPL_COCOA]: Handle ns-appearance and
ns-transparent-titlebar frame parameters. ns-transparent-titlebar frame parameters.
* doc/lispref/frames.texi (Window Management Parameters): Document * doc/lispref/frames.texi (Window Management Parameters): Document
ns-apperance and ns-transparent-titlebar. ns-appearance and ns-transparent-titlebar.
2017-08-22 Alan Mackenzie <acm@muc.de> 2017-08-22 Alan Mackenzie <acm@muc.de>
@ -204016,7 +204016,7 @@
2017-04-02 Michael Albinus <michael.albinus@gmx.de> 2017-04-02 Michael Albinus <michael.albinus@gmx.de>
Apply connecion-local variables for shells Apply connection-local variables for shells
* doc/misc/tramp.texi (Remote processes): Show use of connection-local * doc/misc/tramp.texi (Remote processes): Show use of connection-local
variables. Don't mention Emacs 23 anymore. variables. Don't mention Emacs 23 anymore.
@ -204027,7 +204027,7 @@
(connection-local-set-profiles, with-connection-local-profiles): (connection-local-set-profiles, with-connection-local-profiles):
Adapt docstring. Adapt docstring.
* lisp/shell.el (shell): Apply connecion-local variables. * lisp/shell.el (shell): Apply connection-local variables.
2017-04-01 Evgeni Kolev <evgenysw@gmail.com> (tiny change) 2017-04-01 Evgeni Kolev <evgenysw@gmail.com> (tiny change)
@ -206673,7 +206673,7 @@
* lisp/emacs-lisp/package.el (package-initialize): Check * lisp/emacs-lisp/package.el (package-initialize): Check
`after-init-time' rather than `load-file-name' to decide if `after-init-time' rather than `load-file-name' to decide if
`package--ensure-init-file' should be called. Depending on `package--ensure-init-file' should be called. Depending on
`load-file-name' will fail if the user calls `pacakge-initialize' in `load-file-name' will fail if the user calls `package-initialize' in
file which is loaded from the init file (Bug#24643, Bug#25819). file which is loaded from the init file (Bug#24643, Bug#25819).
2017-02-26 Eli Zaretskii <eliz@gnu.org> 2017-02-26 Eli Zaretskii <eliz@gnu.org>
@ -229958,7 +229958,7 @@
Use #' read syntax for functions. Use #' read syntax for functions.
(file-notify-test05-dir-validity) (file-notify-test05-dir-validity)
(file-notify-test06-many-events): Simplify directory creation. (file-notify-test06-many-events): Simplify directory creation.
(file-notify-test09-sufficient-ressources): New test. (file-notify-test09-sufficient-resources): New test.
2016-03-04 Lars Ingebrigtsen <larsi@gnus.org> 2016-03-04 Lars Ingebrigtsen <larsi@gnus.org>
@ -231088,7 +231088,7 @@
* lisp/gnus/gnus-rfc1843.el: New file for Gnus/rfc1843 * lisp/gnus/gnus-rfc1843.el: New file for Gnus/rfc1843
interface functions. interface functions.
* lisp/gnus/gnus-rfc1843.el: Move all Gnus-specifig functions to * lisp/gnus/gnus-rfc1843.el: Move all Gnus-specific functions to
gnus-rfc1843. gnus-rfc1843.
2016-02-22 Lars Ingebrigtsen <larsi@gnus.org> 2016-02-22 Lars Ingebrigtsen <larsi@gnus.org>

View file

@ -886,7 +886,7 @@
2014-03-15 Dmitry Gutov <dgutov@yandex.ru> 2014-03-15 Dmitry Gutov <dgutov@yandex.ru>
* display.texi (Blinking): Update WRT to the new * display.texi (Blinking): Update WRT to the new
`blink-matchin-paren' behavior. `blink-matching-paren' behavior.
2014-03-14 Martin Rudalics <rudalics@gmx.at> 2014-03-14 Martin Rudalics <rudalics@gmx.at>

View file

@ -5015,7 +5015,7 @@ expression @code{treesit-comment-start} (@pxref{Tree-sitter major
modes, treesit-comment-start}). This function assumes @var{parent} is modes, treesit-comment-start}). This function assumes @var{parent} is
the comment node. the comment node.
@item coment-start-skip @item comment-start-skip
This anchor is a function that is called with 3 arguments: @var{node}, This anchor is a function that is called with 3 arguments: @var{node},
@var{parent}, and @var{bol}, and returns the position after the @var{parent}, and @var{bol}, and returns the position after the
comment-start token and any whitespace characters following that comment-start token and any whitespace characters following that

View file

@ -719,7 +719,7 @@ calling @var{function} on the elements in @var{sequence}.
then with that result and the third element of @var{sequence}, etc. then with that result and the third element of @var{sequence}, etc.
@var{function} should be a function of two arguments. @var{function} should be a function of two arguments.
@var{function} is called with two arguments. @var{intial-value} @var{function} is called with two arguments. @var{initial-value}
(and then the accumulated value) is used as the first argument, and (and then the accumulated value) is used as the first argument, and
the elements in @var{sequence} are used for the second argument. the elements in @var{sequence} are used for the second argument.

View file

@ -4866,7 +4866,7 @@
2012-10-12 Fabián Ezequiel Gallina <fgallina@cuca> 2012-10-12 Fabián Ezequiel Gallina <fgallina@cuca>
* progmodes/python.el (python-mode-map): * progmodes/python.el (python-mode-map):
Replace subtitute-key-definition with proper command remapping. Replace substitute-key-definition with proper command remapping.
(python-nav--up-list): Fix behavior for blocks on the same level. (python-nav--up-list): Fix behavior for blocks on the same level.
2012-10-11 Stefan Monnier <monnier@iro.umontreal.ca> 2012-10-11 Stefan Monnier <monnier@iro.umontreal.ca>
@ -24325,7 +24325,7 @@
Pass nil for `after-find-file-from-revert-buffer'. Pass nil for `after-find-file-from-revert-buffer'.
* saveplace.el (save-place-find-file-hook): Use new variable * saveplace.el (save-place-find-file-hook): Use new variable
`rever-buffer-in-progress-p', not `after-find-file-from-revert-buffer'. `revert-buffer-in-progress-p', not `after-find-file-from-revert-buffer'.
2011-04-06 Glenn Morris <rgm@gnu.org> 2011-04-06 Glenn Morris <rgm@gnu.org>

View file

@ -25522,7 +25522,7 @@
* textmodes/ispell.el (ispell-add-per-file-word-list): * textmodes/ispell.el (ispell-add-per-file-word-list):
Fix `flyspell-correct-word-before-point' error when accepting Fix `flyspell-correct-word-before-point' error when accepting
words and `coment-padding' is an integer by using words and `comment-padding' is an integer by using
`comment-normalize-vars' (Bug #14214). `comment-normalize-vars' (Bug #14214).
2013-04-17 Fabián Ezequiel Gallina <fgallina@gnu.org> 2013-04-17 Fabián Ezequiel Gallina <fgallina@gnu.org>

View file

@ -109,7 +109,7 @@ When all keys have been selected, use \\[epa-ks-do-key-to-fetch] to
actually import the keys. actually import the keys.
When called interactively, `epa-ks-mark-key-to-fetch' will always When called interactively, `epa-ks-mark-key-to-fetch' will always
add a \"F\" tag. Non-interactivly the tag must be specified by add a \"F\" tag. Non-interactively the tag must be specified by
setting the TAG parameter." setting the TAG parameter."
(interactive (list "F")) (interactive (list "F"))
(if (region-active-p) (if (region-active-p)

View file

@ -10070,7 +10070,7 @@
* gnus-group.el (gnus-group-delete-group): Nix the entry in * gnus-group.el (gnus-group-delete-group): Nix the entry in
gnus-cache-active-hashtb. gnus-cache-active-hashtb.
* gnus-agent.el (gnus-agent-mark-unread-afer-downloaded): New variable. * gnus-agent.el (gnus-agent-mark-unread-after-downloaded): New variable.
(gnus-agent-summary-fetch-group): Use it. (gnus-agent-summary-fetch-group): Use it.
* gnus-msg.el (gnus-debug-files): New variable. * gnus-msg.el (gnus-debug-files): New variable.

View file

@ -6032,7 +6032,7 @@
Make `default' the default, for compatibility with open-network-stream. Make `default' the default, for compatibility with open-network-stream.
Handle the no-parameter case exactly as open-network-stream, with no Handle the no-parameter case exactly as open-network-stream, with no
additional stream processing. Search plists using plist-get. additional stream processing. Search plists using plist-get.
Explicitly add :end-of-commend parameter if it is missing. Explicitly add :end-of-comment parameter if it is missing.
(proto-stream-open-default): Rename from (proto-stream-open-default): Rename from
proto-stream-open-network-only. Return 'default as the type. proto-stream-open-network-only. Return 'default as the type.
(proto-stream-open-starttls): Rename from proto-stream-open-network. (proto-stream-open-starttls): Rename from proto-stream-open-network.

View file

@ -1867,7 +1867,7 @@
* org.el: Use * org.el: Use
`org-define-obsolete-{function,variable}-alias´instead of `org-define-obsolete-{function,variable}-alias´instead of
`define-obsolate{function,variable}-alias´. `define-obsolete-{function,variable}-alias´.
* org-compat.el (user-error): Defalias to `error´ for Emacsen that * org-compat.el (user-error): Defalias to `error´ for Emacsen that
don't have it. don't have it.

View file

@ -133,7 +133,7 @@
;; limited to comments only and occurs only when a comment ;; limited to comments only and occurs only when a comment
;; paragraph is filled via `idlwave-fill-paragraph'. ;; paragraph is filled via `idlwave-fill-paragraph'.
;; ;;
;; Muti-statement lines (using "&") on block begin and end lines can ;; Multi-statement lines (using "&") on block begin and end lines can
;; ruin the formatting. For example, multiple end statements on a ;; ruin the formatting. For example, multiple end statements on a
;; line: endif & endif. Using "&" outside of block begin/end lines ;; line: endif & endif. Using "&" outside of block begin/end lines
;; should be okay. ;; should be okay.

View file

@ -1928,7 +1928,7 @@ This performs fontification according to `js--class-styles'."
;; identified as such), then the `syntax-propertize' region wont be ;; identified as such), then the `syntax-propertize' region wont be
;; extended backwards to the start of the JSXOpeningElement: ;; extended backwards to the start of the JSXOpeningElement:
;; ;;
;; <div ← This line wasnt JSX when last edited. ;; <div ← This line wasn't JSX when last edited.
;; attr=""> ← Despite completing the JSX, the next ;; attr=""> ← Despite completing the JSX, the next
;; ^ `syntax-propertize' region wouldnt magically ;; ^ `syntax-propertize' region wouldnt magically
;; extend back a few lines. ;; extend back a few lines.
@ -2090,7 +2090,7 @@ JSXElement or a JSXOpeningElement/JSXClosingElement pair."
;; JSXOpeningElement has been found, so keep ;; JSXOpeningElement has been found, so keep
;; looking backwards for an enclosing one). ;; looking backwards for an enclosing one).
(or (not close-tag-pos) (<= start close-tag-pos))))))))) (or (not close-tag-pos) (<= start close-tag-pos)))))))))
;; Dont return the last tag pos, as it wasnt enclosing. ;; Don't return the last tag pos, as it wasn't enclosing.
(setq tag-beg nil close-tag-pos nil)) (setq tag-beg nil close-tag-pos nil))
(and tag-beg (list tag-beg-pos tag-end-pos close-tag-pos)))) (and tag-beg (list tag-beg-pos tag-end-pos close-tag-pos))))

View file

@ -986,7 +986,7 @@ See also `so-long-mode-line-info'."
;; Modes that go slowly and line lengths excessive ;; Modes that go slowly and line lengths excessive
;; Font-lock performance becoming oppressive ;; Font-lock performance becoming oppressive
;; All of my CPU tied up with strings ;; All of my CPU tied up with strings
;; These are a few of my least-favourite things ;; These are a few of my least-favorite things
(defvar-local so-long-original-values nil (defvar-local so-long-original-values nil
"Alist holding the buffer's original `major-mode' value, and other data. "Alist holding the buffer's original `major-mode' value, and other data.

View file

@ -159,7 +159,7 @@ the subtrees."
;; Comments ;; Comments
(setq-local comment-start "# ") (setq-local comment-start "# ")
(setq-local commend-end "") (setq-local comment-end "")
;; Indent. ;; Indent.
(setq-local treesit-simple-indent-rules toml-ts-mode--indent-rules) (setq-local treesit-simple-indent-rules toml-ts-mode--indent-rules)

View file

@ -1977,9 +1977,9 @@ in `treesit-parser-list'."
collect node)) collect node))
(largest-node (car (last node-list))) (largest-node (car (last node-list)))
(parent (treesit-node-parent largest-node)) (parent (treesit-node-parent largest-node))
;; node-list-acending contains all the node bottom-up, then ;; node-list-ascending contains all the node bottom-up, then
;; the parent. ;; the parent.
(node-list-acending (node-list-ascending
(if (null largest-node) (if (null largest-node)
;; If there are no nodes that start at point, just show ;; If there are no nodes that start at point, just show
;; the node at point and its parent. ;; the node at point and its parent.
@ -1990,7 +1990,7 @@ in `treesit-parser-list'."
(name "")) (name ""))
;; We draw nodes like (parent field-name: (node)) recursively, ;; We draw nodes like (parent field-name: (node)) recursively,
;; so it could be (node1 field-name: (node2 field-name: (node3))). ;; so it could be (node1 field-name: (node2 field-name: (node3))).
(dolist (node node-list-acending) (dolist (node node-list-ascending)
(setq (setq
name name
(concat (concat

View file

@ -46,7 +46,7 @@
* Makefile.in (mostlyclean, clean, distclean, maintainer-clean, tags): * Makefile.in (mostlyclean, clean, distclean, maintainer-clean, tags):
Declare as PHONY. Declare as PHONY.
(boostrap-clean): New. (bootstrap-clean): New.
2013-10-24 Glenn Morris <rgm@gnu.org> 2013-10-24 Glenn Morris <rgm@gnu.org>

View file

@ -10836,7 +10836,7 @@
* gtkutil.c (xg_maybe_add_timer): Port to higher-res time stamps. * gtkutil.c (xg_maybe_add_timer): Port to higher-res time stamps.
* image.c (prepare_image_for_display, clear_image_cache) * image.c (prepare_image_for_display, clear_image_cache)
(lookup_image): Port to higer-resolution time stamps. (lookup_image): Port to higher-resolution time stamps.
* keyboard.c (start_polling, bind_polling_period): * keyboard.c (start_polling, bind_polling_period):
Check for time stamp overflow. Check for time stamp overflow.

View file

@ -10579,7 +10579,7 @@
(../src/$(OLDXMENU), $(OLDXMENU)): Remove. (../src/$(OLDXMENU), $(OLDXMENU)): Remove.
(temacs$(EXEEXT)): Depend on $(LIBXMENU), not stamp-oldxmenu. (temacs$(EXEEXT)): Depend on $(LIBXMENU), not stamp-oldxmenu.
($(lwlibdir)/liblw.a, $(oldXMenudir)/libXMenu11.a, FORCE): New targets. ($(lwlibdir)/liblw.a, $(oldXMenudir)/libXMenu11.a, FORCE): New targets.
(boostrap-clean): No need to remove stamp-oldxmenu. (bootstrap-clean): No need to remove stamp-oldxmenu.
Fix recently introduced bool vector overrun. Fix recently introduced bool vector overrun.
This was due to an optimization that went awry. This was due to an optimization that went awry.

View file

@ -3938,7 +3938,7 @@ system.
If the region can't be decoded, signal an error and don't modify the buffer. If the region can't be decoded, signal an error and don't modify the buffer.
Optional third argument BASE64URL determines whether to use the URL variant Optional third argument BASE64URL determines whether to use the URL variant
of the base 64 encoding, as defined in RFC 4648. of the base 64 encoding, as defined in RFC 4648.
If optional fourth argument INGORE-INVALID is non-nil invalid characters If optional fourth argument IGNORE-INVALID is non-nil invalid characters
are ignored instead of signaling an error. */) are ignored instead of signaling an error. */)
(Lisp_Object beg, Lisp_Object end, Lisp_Object base64url, (Lisp_Object beg, Lisp_Object end, Lisp_Object base64url,
Lisp_Object ignore_invalid) Lisp_Object ignore_invalid)

View file

@ -100,7 +100,7 @@
"aaa [ bbb, cccc ] dddd\n" "aaa [ bbb, cccc ] dddd\n"
"aa [ bb, ccccccc ] ddd\n")))))) "aa [ bb, ccccccc ] ddd\n"))))))
(ert-deftest delim-col-tests-delimit-colummns-before-after () (ert-deftest delim-col-tests-delimit-columns-before-after ()
(let ((delimit-columns-before "<") (let ((delimit-columns-before "<")
(delimit-columns-after ">")) (delimit-columns-after ">"))
(with-temp-buffer (with-temp-buffer

View file

@ -60,7 +60,7 @@
"cl-defun documentation")) "cl-defun documentation"))
(should (eq (cconv-tests-cl-defun) 'cl-defun-result))) (should (eq (cconv-tests-cl-defun) 'cl-defun-result)))
;; FIXME: The byte-complier croaks on this. See Bug#28557. ;; FIXME: The byte-compiler croaks on this. See Bug#28557.
;; (defmacro cconv-tests-defmacro () ;; (defmacro cconv-tests-defmacro ()
;; (:documentation (concat "defmacro" " documentation")) ;; (:documentation (concat "defmacro" " documentation"))
;; '(quote defmacro-result)) ;; '(quote defmacro-result))
@ -70,7 +70,7 @@
;; "defmacro documentation")) ;; "defmacro documentation"))
;; (should (eq (cconv-tests-defmacro) 'defmacro-result))) ;; (should (eq (cconv-tests-defmacro) 'defmacro-result)))
;; FIXME: The byte-complier croaks on this. See Bug#28557. ;; FIXME: The byte-compiler croaks on this. See Bug#28557.
;; (cl-defmacro cconv-tests-cl-defmacro () ;; (cl-defmacro cconv-tests-cl-defmacro ()
;; (:documentation (concat "cl-defmacro" " documentation")) ;; (:documentation (concat "cl-defmacro" " documentation"))
;; '(quote cl-defmacro-result)) ;; '(quote cl-defmacro-result))

View file

@ -130,25 +130,25 @@ See the comments in Bug#24998."
(re-search-forward goto-string) (re-search-forward goto-string)
(checkdoc-in-abbreviation-p (point)))) (checkdoc-in-abbreviation-p (point))))
(ert-deftest checkdoc-tests-in-abbrevation-p/basic-case () (ert-deftest checkdoc-tests-in-abbreviation-p/basic-case ()
(should (checkdoc-tests--abbrev-test "foo bar e.g. baz" "e.g")) (should (checkdoc-tests--abbrev-test "foo bar e.g. baz" "e.g"))
(should (checkdoc-tests--abbrev-test "behavior/errors etc. that" "etc")) (should (checkdoc-tests--abbrev-test "behavior/errors etc. that" "etc"))
(should (checkdoc-tests--abbrev-test "foo vs. bar" "vs")) (should (checkdoc-tests--abbrev-test "foo vs. bar" "vs"))
(should (checkdoc-tests--abbrev-test "spy a.k.a. spy" "a.k.a"))) (should (checkdoc-tests--abbrev-test "spy a.k.a. spy" "a.k.a")))
(ert-deftest checkdoc-tests-in-abbrevation-p/with-parens () (ert-deftest checkdoc-tests-in-abbreviation-p/with-parens ()
(should (checkdoc-tests--abbrev-test "foo bar (e.g. baz)" "e.g"))) (should (checkdoc-tests--abbrev-test "foo bar (e.g. baz)" "e.g")))
(ert-deftest checkdoc-tests-in-abbrevation-p/with-escaped-parens () (ert-deftest checkdoc-tests-in-abbreviation-p/with-escaped-parens ()
(should (checkdoc-tests--abbrev-test "foo\n\\(e.g. baz)" "e.g"))) (should (checkdoc-tests--abbrev-test "foo\n\\(e.g. baz)" "e.g")))
(ert-deftest checkdoc-tests-in-abbrevation-p/single-char () (ert-deftest checkdoc-tests-in-abbreviation-p/single-char ()
(should (checkdoc-tests--abbrev-test "a. foo bar" "a"))) (should (checkdoc-tests--abbrev-test "a. foo bar" "a")))
(ert-deftest checkdoc-tests-in-abbrevation-p/with-em-dash () (ert-deftest checkdoc-tests-in-abbreviation-p/with-em-dash ()
(should (checkdoc-tests--abbrev-test "foo bar baz---e.g." "e.g"))) (should (checkdoc-tests--abbrev-test "foo bar baz---e.g." "e.g")))
(ert-deftest checkdoc-tests-in-abbrevation-p/incorrect-abbreviation () (ert-deftest checkdoc-tests-in-abbreviation-p/incorrect-abbreviation ()
(should-not (checkdoc-tests--abbrev-test "foo bar a.b.c." "a.b.c"))) (should-not (checkdoc-tests--abbrev-test "foo bar a.b.c." "a.b.c")))
(defun checkdoc-test-error-format-is-good (msg &optional reverse literal) (defun checkdoc-test-error-format-is-good (msg &optional reverse literal)

View file

@ -87,7 +87,7 @@ expected function symbol and function library, respectively."
(test-locate-helper #'forward-char '(forward-char . "cmds.c")) (test-locate-helper #'forward-char '(forward-char . "cmds.c"))
(should-error (test-locate-helper 'wrong-function))) (should-error (test-locate-helper 'wrong-function)))
(ert-deftest find-func-tests--locate-adviced-symbols () (ert-deftest find-func-tests--locate-advised-symbols ()
(defun my-message () (defun my-message ()
(message "Hello!")) (message "Hello!"))
(advice-add #'mark-sexp :around 'my-message) (advice-add #'mark-sexp :around 'my-message)

View file

@ -21,7 +21,7 @@
(0.00 ":irc.foonet.net 376 tester :End of message of the day.")) (0.00 ":irc.foonet.net 376 tester :End of message of the day."))
((mode-a 10 "MODE tester +i") ((mode-a 10 "MODE tester +i")
(0.00 ":irc.foonet.net 501 tester x :is not a recognised user mode.") (0.00 ":irc.foonet.net 501 tester x :is not a recognized user mode.")
(0.04 ":tester!tester@10.0.2.100 MODE tester :+i") (0.04 ":tester!tester@10.0.2.100 MODE tester :+i")
(0.00 ":NickServ!NickServ@services.int NOTICE tester :This nickname is registered. Please choose a different nickname, or identify via \2/msg NickServ identify <password>\2.")) (0.00 ":NickServ!NickServ@services.int NOTICE tester :This nickname is registered. Please choose a different nickname, or identify via \2/msg NickServ identify <password>\2."))