From: Eshel Yaron <me@eshelyaron.com>
Date: Mon, 17 Mar 2025 10:50:23 +0000 (+0100)
Subject: ; Update lisp/ldefs-boot.el
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e7105b121c937931879cb960539fbd30c0f02521;p=emacs.git

; Update lisp/ldefs-boot.el
---

diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el
index 1c3e29b81bb..5764dee658d 100644
--- a/lisp/ldefs-boot.el
+++ b/lisp/ldefs-boot.el
@@ -2339,11 +2339,6 @@ If called from menubar, select OLD-NAME from a menu and prompt for NEW-NAME.
 Insert the text of the file pointed to by bookmark BOOKMARK-NAME.
 BOOKMARK-NAME is a bookmark name (a string), not a bookmark record.
 
-You may have a problem using this function if the value of variable
-`bookmark-alist' is nil.  If that happens, you need to load in some
-bookmarks.  See help on function `bookmark-load' for more about
-this.
-
 (fn BOOKMARK-NAME)" t)
 (autoload 'bookmark-delete "bookmark" "\
 Delete BOOKMARK-NAME from the bookmark list.
@@ -2808,7 +2803,7 @@ disabled.
 (put 'byte-compile-dynamic 'safe-local-variable 'booleanp)
 (put 'byte-compile-dynamic-docstrings 'safe-local-variable 'booleanp)
 (put 'byte-compile-error-on-warn 'safe-local-variable 'booleanp)
-(put 'byte-compile-warnings 'safe-local-variable (lambda (v) (or (symbolp v) (null (delq nil (mapcar (lambda (x) (not (symbolp x))) v))))))
+(put 'byte-compile-warnings 'safe-local-variable (lambda (v) (or (symbolp v) (null (delq nil (mapcar (compf not symbolp) v))))))
 (autoload 'byte-compile-warning-enabled-p "bytecomp" "\
 Return non-nil if WARNING is enabled, according to `byte-compile-warnings'.
 
@@ -4087,11 +4082,6 @@ See the documentation of `define-ccl-program' for the detail of CCL program.
 (fn CCL-PROG &rest ARGS)")
 (register-definition-prefixes "ccl" '("ccl-"))
 
-
-;;; Generated autoloads from cdl.el
-
-(register-definition-prefixes "cdl" '("cdl-"))
-
 
 ;;; Generated autoloads from progmodes/cfengine.el
 
@@ -4196,7 +4186,9 @@ Returns non-nil if any false statements are found.
 (put 'checkdoc-ispell-list-words 'safe-local-variable #'list-of-strings-p)
 (put 'checkdoc-arguments-in-order-flag 'safe-local-variable #'booleanp)
 (put 'checkdoc-verb-check-experimental-flag 'safe-local-variable #'booleanp)
+(put 'checkdoc-allow-quoting-nil-and-t 'safe-local-variable #'booleanp)
 (put 'checkdoc-symbol-words 'safe-local-variable #'list-of-strings-p)
+(put 'checkdoc-arguments-missing-flag 'safe-local-variable 'booleanp)
 (put 'checkdoc-proper-noun-regexp 'safe-local-variable 'stringp)
 (put 'checkdoc-common-verbs-regexp 'safe-local-variable 'stringp)
 (autoload 'checkdoc "checkdoc" "\
@@ -4550,7 +4542,7 @@ printer proceeds to the next function on the list.
 
 This variable is not used at present, but it is defined in hopes that
 a future Emacs interpreter will be able to use it.")
-(autoload 'cl-incf "cl-lib" "\
+(defalias 'cl-incf #'incf "\
 Increment PLACE by X (1 by default).
 PLACE may be a symbol, or any generalized variable allowed by `setf'.
 The return value is the incremented value of PLACE.
@@ -4558,7 +4550,8 @@ The return value is the incremented value of PLACE.
 If X is specified, it should be an expression that should
 evaluate to a number.
 
-(fn PLACE &optional X)" nil t)
+This macro is considered deprecated in favor of the built-in macro
+`incf' that was added in Emacs 31.1.")
 (defvar cl-old-struct-compat-mode nil "\
 Non-nil if Cl-Old-Struct-Compat mode is enabled.
 See the `cl-old-struct-compat-mode' command
@@ -5295,28 +5288,28 @@ list.")
 
 ;;; Generated autoloads from emacs-lisp/cond-star.el
 
+(push '(cond-star 1 0) package--builtin-versions)
 (autoload 'cond* "cond-star" "\
 Extended form of traditional Lisp `cond' construct.
 A `cond*' construct is a series of clauses, and a clause
 normally has the form (CONDITION BODY...).
 
 CONDITION can be a Lisp expression, as in `cond'.
-Or it can be one of `(pcase* PATTERN DATUM)',
-`(bind* BINDINGS...)', or `(match* PATTERN DATUM)',
-
-`(pcase* PATTERN DATUM)' means to match DATUM against the
-pattern PATTERN, using the same pattern syntax as `pcase'.
-The condition counts as true if PATTERN matches DATUM.
+Or it can be one of`(bind* BINDINGS...)', `(match* PATTERN DATUM)',
+or `(pcase* PATTERN DATUM)',
 
 `(bind* BINDINGS...)' means to bind BINDINGS (as if they were in `let*')
-for the body of the clause.  As a condition, it counts as true
-if the first binding's value is non-nil.  All the bindings are made
-unconditionally for whatever scope they cover.
+for the body of the clause, and all subsequent clauses, since the `bind*'
+clause is always a non-exit clause.  As a condition, it counts as true
+and runs the body of the clause if the first binding's value is non-nil.
 
-`(match* PATTERN DATUM)' is an alternative to `pcase*' that uses another
-syntax for its patterns, see `match*'.
+`(match* PATTERN DATUM)' means to match DATUM against the pattern PATTERN
+For its patterns, see `match*'.
+The condition counts as true if PATTERN matches DATUM.
 
-See `match*' for documentation of the patterns for use in such clauses.
+`(pcase* PATTERN DATUM)' means to match DATUM against the
+pattern PATTERN, using the same pattern syntax as `pcase'.
+The condition counts as true if PATTERN matches DATUM.
 
 When a clause's condition is true, and it exits the `cond*'
 or is the last clause, the value of the last expression
@@ -5325,12 +5318,12 @@ in its body becomes the return value of the `cond*' construct.
 Non-exit clause:
 
 If a clause has only one element, or if its first element is
-a `bind*' clause, this clause never exits the `cond*' construct.
+t or a `bind*' clause, this clause never exits the `cond*' construct.
 Instead, control always falls through to the next clause (if any).
 All bindings made in CONDITION for the BODY of the non-exit clause
 are passed along to the rest of the clauses in this `cond*' construct.
 
-\\[match*\\] for documentation of the patterns for use in `match*'.
+\\[match*] for documentation of the patterns for use in `match*'.
 
 (fn &rest CLAUSES)" nil t)
 (register-definition-prefixes "cond-star" '("cond*-" "match*"))
@@ -6455,129 +6448,6 @@ string denoting the bus address.  The value nil defaults to `:session'.
 (fn &optional BUS)" t)
 (register-definition-prefixes "dbus" '("dbus-"))
 
-
-;;; Generated autoloads from progmodes/dcl-mode.el
-
-(autoload 'dcl-mode "dcl-mode" "\
-Major mode for editing DCL-files.
-
-This mode indents command lines in blocks.  (A block is commands between
-THEN-ELSE-ENDIF and between lines matching dcl-block-begin-regexp and
-dcl-block-end-regexp.)
-
-Labels are indented to a fixed position unless they begin or end a block.
-Whole-line comments (matching dcl-comment-line-regexp) are not indented.
-Data lines are not indented.
-
-Key bindings:
-
-\\{dcl-mode-map}
-Commands not usually bound to keys:
-
-\\[dcl-save-nondefault-options]		Save changed options
-\\[dcl-save-all-options]		Save all options
-\\[dcl-save-option]			Save any option
-\\[dcl-save-mode]			Save buffer mode
-
-Variables controlling indentation style and extra features:
-
- dcl-basic-offset
-    Extra indentation within blocks.
-
- dcl-continuation-offset
-    Extra indentation for continued lines.
-
- dcl-margin-offset
-    Indentation for the first command line in a file or SUBROUTINE.
-
- dcl-margin-label-offset
-    Indentation for a label.
-
- dcl-comment-line-regexp
-    Lines matching this regexp will not be indented.
-
- dcl-block-begin-regexp
- dcl-block-end-regexp
-    Regexps that match command lines that begin and end, respectively,
-    a block of command lines that will be given extra indentation.
-    Command lines between THEN-ELSE-ENDIF are always indented; these variables
-    make it possible to define other places to indent.
-    Set to nil to disable this feature.
-
- dcl-calc-command-indent-function
-    Can be set to a function that customizes indentation for command lines.
-    Two such functions are included in the package:
-	dcl-calc-command-indent-multiple
-	dcl-calc-command-indent-hang
-
- dcl-calc-cont-indent-function
-    Can be set to a function that customizes indentation for continued lines.
-    One such function is included in the package:
-	dcl-calc-cont-indent-relative    (set by default)
-
- dcl-tab-always-indent
-    If t, pressing TAB always indents the current line.
-    If nil, pressing TAB indents the current line if point is at the left
-    margin.
-
- dcl-electric-characters
-    Non-nil causes lines to be indented at once when a label, ELSE or ENDIF is
-    typed.
-
- dcl-electric-reindent-regexps
-    Use this variable and function dcl-electric-character to customize
-    which words trigger electric indentation.
-
- dcl-tempo-comma
- dcl-tempo-left-paren
- dcl-tempo-right-paren
-    These variables control the look of expanded templates.
-
- dcl-imenu-generic-expression
-    Default value for `imenu-generic-expression'.  The default includes
-    SUBROUTINE labels in the main listing and sub-listings for
-    other labels, CALL, GOTO and GOSUB statements.
-
- dcl-imenu-label-labels
- dcl-imenu-label-goto
- dcl-imenu-label-gosub
- dcl-imenu-label-call
-    Change the text that is used as sub-listing labels in imenu.
-
-Turning on DCL mode calls the value of the variable `dcl-mode-hook'
-with no args, if that value is non-nil.
-
-
-The following example uses the default values for all variables:
-
-$! This is a comment line that is not indented (it matches
-$! dcl-comment-line-regexp)
-$! Next follows the first command line.  It is indented dcl-margin-offset.
-$       i = 1
-$       ! Other comments are indented like command lines.
-$       ! A margin label indented dcl-margin-label-offset:
-$ label:
-$       if i.eq.1
-$       then
-$           ! Lines between THEN-ELSE and ELSE-ENDIF are
-$           ! indented dcl-basic-offset
-$           loop1: ! This matches dcl-block-begin-regexp...
-$               ! ...so this line is indented dcl-basic-offset
-$               text = \"This \" + - ! is a continued line
-                       \"lined up with the command line\"
-$               type sys$input
-Data lines are not indented at all.
-$           endloop1: ! This matches dcl-block-end-regexp
-$       endif
-$
-
-
-There is some minimal font-lock support (see vars
-`dcl-font-lock-defaults' and `dcl-font-lock-keywords').
-
-(fn)" t)
-(register-definition-prefixes "dcl-mode" '("dcl-"))
-
 
 ;;; Generated autoloads from emacs-lisp/debug.el
 
@@ -8214,7 +8084,6 @@ INIT-VALUE LIGHTER KEYMAP.
 (fn MODE DOC [KEYWORD VAL ... &rest BODY])" nil t)
 (function-put 'define-minor-mode 'doc-string-elt 2)
 (function-put 'define-minor-mode 'lisp-indent-function 'defun)
-(defalias 'define-global-minor-mode #'define-globalized-minor-mode)
 (autoload 'define-globalized-minor-mode "easy-mmode" "\
 Make a global mode GLOBAL-MODE corresponding to buffer-local minor MODE.
 TURN-ON is a function that will be called with no args in every buffer
@@ -8297,6 +8166,7 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX).
 (function-put 'easy-mmode-defsyntax 'lisp-indent-function 1)
 (define-obsolete-function-alias 'easy-mmode-define-minor-mode #'define-minor-mode "30.1")
 (define-obsolete-function-alias 'easy-mmode-define-global-mode #'define-globalized-minor-mode "30.1")
+(define-obsolete-function-alias 'define-global-minor-mode #'define-globalized-minor-mode "31.1")
 (register-definition-prefixes "easy-mmode" '("easy-mmode-"))
 
 
@@ -9272,26 +9142,10 @@ Major mode for editing Emacs Lisp code.
 
 ;;; Generated autoloads from elec-pair.el
 
-(defvar electric-pair-mode nil "\
-Non-nil if Electric-Pair mode is enabled.
-See the `electric-pair-mode' command
-for a description of this minor mode.
-Setting this variable directly does not take effect;
-either customize it (see the info node `Easy Customization')
-or call the function `electric-pair-mode'.")
-(custom-autoload 'electric-pair-mode "elec-pair" nil)
 (autoload 'electric-pair-mode "elec-pair" "\
 Toggle automatic parens pairing (Electric Pair mode).
 
-Electric Pair mode is a global minor mode.  When enabled, typing
-an open parenthesis automatically inserts the corresponding
-closing parenthesis, and vice versa.  (Likewise for brackets, etc.).
-If the region is active, the parentheses (brackets, etc.) are
-inserted around the region instead.
-
-To toggle the mode in a single buffer, use `electric-pair-local-mode'.
-
-This is a global minor mode.  If called interactively, toggle the
+This is a minor mode.  If called interactively, toggle the
 `Electric-Pair mode' mode.  If the prefix argument is positive, enable
 the mode, and if it is zero or negative, disable the mode.
 
@@ -9300,28 +9154,34 @@ mode if ARG is nil, omitted, or is a positive number.  Disable the mode
 if ARG is a negative number.
 
 To check whether the minor mode is enabled in the current buffer,
-evaluate `(default-value \\='electric-pair-mode)'.
+evaluate `electric-pair-mode'.
 
 The mode's hook is called both when the mode is enabled and when it is
 disabled.
 
 (fn &optional ARG)" t)
-(autoload 'electric-pair-local-mode "elec-pair" "\
-Toggle `electric-pair-mode' only in this buffer.
-
-This is a minor mode.  If called interactively, toggle the
-`Electric-Pair-Local mode' mode.  If the prefix argument is positive,
-enable the mode, and if it is zero or negative, disable the mode.
+(put 'global-electric-pair-mode 'globalized-minor-mode t)
+(defvar global-electric-pair-mode nil "\
+Non-nil if Global Electric-Pair mode is enabled.
+See the `global-electric-pair-mode' command
+for a description of this minor mode.
+Setting this variable directly does not take effect;
+either customize it (see the info node `Easy Customization')
+or call the function `global-electric-pair-mode'.")
+(custom-autoload 'global-electric-pair-mode "elec-pair" nil)
+(autoload 'global-electric-pair-mode "elec-pair" "\
+Toggle Electric-Pair mode in all buffers.
+With prefix ARG, enable Global Electric-Pair mode if ARG is positive;
+otherwise, disable it.
 
-If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
-mode if ARG is nil, omitted, or is a positive number.  Disable the mode
-if ARG is a negative number.
+If called from Lisp, toggle the mode if ARG is `toggle'.
+Enable the mode if ARG is nil, omitted, or is a positive number.
+Disable the mode if ARG is a negative number.
 
-To check whether the minor mode is enabled in the current buffer,
-evaluate `electric-pair-mode'.
+Electric-Pair mode is enabled in all buffers where
+`electric-pair-mode' would do it.
 
-The mode's hook is called both when the mode is enabled and when it is
-disabled.
+See `electric-pair-mode' for more information on Electric-Pair mode.
 
 (fn &optional ARG)" t)
 (register-definition-prefixes "elec-pair" '("electric-pair-"))
@@ -9624,7 +9484,7 @@ name (which will be attached to the mail).  You will end up in a
 Message buffer where you can explain more about the patch.
 
 (fn SUBJECT FILE)" t)
-(register-definition-prefixes "emacsbug" '("report-emacs-bug-"))
+(register-definition-prefixes "emacsbug" '("report-emacs-bug-" "submit-emacs-patch-excluded-maintainers"))
 
 
 ;;; Generated autoloads from vc/emerge.el
@@ -10148,8 +10008,8 @@ Example client certificate (CertFP) usage:
 
     (erc-tls :server \"irc.libera.chat\" :port 6697
              :client-certificate
-             \\='(\"/home/bandali/my-cert.key\"
-               \"/home/bandali/my-cert.crt\"))
+             \\='(\"/home/bandali/my-key.pem\"
+               \"/home/bandali/my-cert.pem\"))
 
 See the alternative entry-point command `erc' as well as Info
 node `(erc) Connecting' for a fuller description of the various
@@ -10429,26 +10289,29 @@ Display the documentation for TEST-OR-TEST-NAME (a symbol or ert-test).
 (autoload 'ert-font-lock-deftest "ert-font-lock" "\
 Define test NAME (a symbol) using assertions from TEST-STR.
 
-Other than MAJOR-MODE and TEST-STR parameters, this macro accepts
-the same parameters and keywords as `ert-deftest' and is intended
-to be used through `ert'.
+The MAJOR-MODE symbol determines the syntax and font lock of TEST-STR.
 
-(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)] MAJOR-MODE TEST-STR)" nil t)
-(function-put 'ert-font-lock-deftest 'doc-string-elt 3)
-(function-put 'ert-font-lock-deftest 'lisp-indent-function 2)
+Except for the MAJOR-MODE and TEST-STR parameters, this macro accepts
+the same arguments and keywords as `ert-deftest' and is intended to be
+used through `ert'.
+
+(fn NAME [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)] MAJOR-MODE TEST-STR)" nil t)
+(function-put 'ert-font-lock-deftest 'doc-string-elt 2)
+(function-put 'ert-font-lock-deftest 'lisp-indent-function 1)
 (autoload 'ert-font-lock-deftest-file "ert-font-lock" "\
 Define test NAME (a symbol) using assertions from FILE.
 
-FILE - path to a file with assertions in ERT resource director as
-return by `ert-resource-directory'.
+FILE names a file with assertions in the ERT resource directory, as
+returned by `ert-resource-directory'.  The MAJOR-MODE symbol determines
+the syntax and font lock of FILE's contents.
 
-Other than MAJOR-MODE and FILE parameters, this macro accepts the
-same parameters and keywords as `ert-deftest' and is intended to
-be used through `ert'.
+Except for the MAJOR-MODE and FILE parameters, this macro accepts the
+same arguments and keywords as `ert-deftest' and is intended to be used
+through `ert'.
 
-(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)] MAJOR-MODE FILE)" nil t)
-(function-put 'ert-font-lock-deftest-file 'doc-string-elt 3)
-(function-put 'ert-font-lock-deftest-file 'lisp-indent-function 2)
+(fn NAME [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)] MAJOR-MODE FILE)" nil t)
+(function-put 'ert-font-lock-deftest-file 'doc-string-elt 2)
+(function-put 'ert-font-lock-deftest-file 'lisp-indent-function 1)
 (autoload 'ert-font-lock-test-string "ert-font-lock" "\
 Check font faces in TEST-STRING set by MODE.
 
@@ -10466,8 +10329,6 @@ The function is meant to be run from within an ERT test.
 
 ;;; Generated autoloads from emacs-lisp/ert-x.el
 
-(autoload 'ert-kill-all-test-buffers "ert-x" "\
-Kill all test buffers that are still live." t)
 (register-definition-prefixes "ert-x" '("ert-"))
 
 
@@ -12489,10 +12350,6 @@ The mode's hook is called both when the mode is enabled and when it is
 disabled.
 
 (fn &optional ARG)" t)
-(autoload 'turn-on-flyspell "flyspell" "\
-Unconditionally turn on Flyspell mode.")
-(autoload 'turn-off-flyspell "flyspell" "\
-Unconditionally turn off Flyspell mode.")
 (autoload 'flyspell--mode-off "flyspell" "\
 Turn Flyspell mode off.")
 (autoload 'flyspell-region "flyspell" "\
@@ -12504,6 +12361,10 @@ of a misspelled word removed when you've corrected it.
 (fn BEG END)" t)
 (autoload 'flyspell-buffer "flyspell" "\
 Flyspell whole buffer." t)
+(define-obsolete-function-alias 'turn-on-flyspell #'flyspell-mode "31.1")
+(autoload 'turn-off-flyspell "flyspell" "\
+Unconditionally turn off Flyspell mode.")
+(make-obsolete 'turn-off-flyspell 'flyspell-mode "31.1")
 (register-definition-prefixes "flyspell" '("flyspell-" "mail-mode-flyspell-verify" "make-flyspell-overlay" "sgml-mode-flyspell-verify" "tex"))
 
 
@@ -14696,6 +14557,24 @@ For example, (setf (cadr x) y) is equivalent to (setcar (cdr x) y).
 The return value is the last VAL in the list.
 
 (fn PLACE VAL PLACE VAL ...)" nil t)
+(autoload 'incf "gv" "\
+Increment PLACE by DELTA (default to 1).
+
+The DELTA is first added to PLACE, and then stored in PLACE.
+Return the incremented value of PLACE.
+
+See also `decf'.
+
+(fn PLACE &optional DELTA)" nil t)
+(autoload 'decf "gv" "\
+Decrement PLACE by DELTA (default to 1).
+
+The DELTA is first subtracted from PLACE, and then stored in PLACE.
+Return the decremented value of PLACE.
+
+See also `incf'.
+
+(fn PLACE &optional DELTA)" nil t)
 (def-edebug-elem-spec 'gv-place '(form))
 (autoload 'gv-ref "gv" "\
 Return a reference to PLACE.
@@ -14754,42 +14633,6 @@ Repent before ring 31 moves." t)
 Like `hanoi-unix', but with a 64-bit clock." t)
 (register-definition-prefixes "hanoi" '("hanoi-"))
 
-
-;;; Generated autoloads from mail/hashcash.el
-
-(autoload 'hashcash-insert-payment "hashcash" "\
-Insert X-Payment and X-Hashcash headers with a payment for ARG.
-
-(fn ARG)" t)
-(autoload 'hashcash-insert-payment-async "hashcash" "\
-Insert X-Payment and X-Hashcash headers with a payment for ARG
-Only start calculation.  Results are inserted when ready.
-
-(fn ARG)" t)
-(autoload 'hashcash-verify-payment "hashcash" "\
-Verify a hashcash payment.
-
-(fn TOKEN &optional RESOURCE AMOUNT)")
-(autoload 'mail-add-payment "hashcash" "\
-Add X-Payment: and X-Hashcash: headers with a hashcash payment
-for each recipient address.  Prefix arg sets default payment temporarily.
-Set ASYNC to t to start asynchronous calculation.  (See
-`mail-add-payment-async').
-
-(fn &optional ARG ASYNC)" t)
-(autoload 'mail-add-payment-async "hashcash" "\
-Add X-Payment: and X-Hashcash: headers with a hashcash payment
-for each recipient address.  Prefix arg sets default payment temporarily.
-Calculation is asynchronous.
-
-(fn &optional ARG)" t)
-(autoload 'mail-check-payment "hashcash" "\
-Look for a valid X-Payment: or X-Hashcash: header.
-Prefix arg sets default accept amount temporarily.
-
-(fn &optional ARG)" t)
-(register-definition-prefixes "hashcash" '("hashcash-"))
-
 
 ;;; Generated autoloads from progmodes/heex-ts-mode.el
 
@@ -15543,7 +15386,7 @@ disabled.
 
 ;;; Generated autoloads from progmodes/hideshow.el
 
-(defvar hs-special-modes-alist '((c-mode "{" "}" "/[*/]" nil nil) (c-ts-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (c++-ts-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (java-ts-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil) (js-ts-mode "{" "}" "/[*/]" nil) (lua-ts-mode "{\\|\\[\\[" "}\\|\\]\\]" "--" nil) (mhtml-mode "{\\|<[^/>]*?" "}\\|</[^/>]*[^/]>" "<!--" mhtml-forward nil)) "\
+(defvar hs-special-modes-alist '((c-mode "{" "}" "/[*/]" nil nil) (c-ts-mode "{" "}" "/[*/]" nil nil) (c++-mode "{" "}" "/[*/]" nil nil) (c++-ts-mode "{" "}" "/[*/]" nil nil) (bibtex-mode ("@\\S(*\\(\\s(\\)" 1)) (java-mode "{" "}" "/[*/]" nil nil) (java-ts-mode "{" "}" "/[*/]" nil nil) (js-mode "{" "}" "/[*/]" nil) (js-ts-mode "{" "}" "/[*/]" nil) (mhtml-mode "{\\|<[^/>]*?" "}\\|</[^/>]*[^/]>" "<!--" mhtml-forward nil)) "\
 Alist for initializing the hideshow variables for different modes.
 Each element has the form
   (MODE START END COMMENT-START FORWARD-SEXP-FUNC ADJUST-BEG-FUNC
@@ -17601,10 +17444,7 @@ mode doesn't have any Info manuals known to Emacs, the command will
 prompt for MODE to use, with completion.  With prefix arg, the command
 always prompts for MODE.
 
-Is SAME-WINDOW, try to reuse the current window instead of
-popping up a new one.
-
-(fn SYMBOL &optional MODE SAME-WINDOW)" t)
+(fn SYMBOL &optional MODE)" t)
  (put 'info-lookup-file 'info-file "emacs")
 (autoload 'info-lookup-file "info-look" "\
 Look up and display documentation of FILE in the relevant Info manual.
@@ -18130,6 +17970,7 @@ Optional argument KATAKANA-ONLY non-nil means to convert only KATAKANA char.
 (autoload 'read-hiragana-string "japan-util" "\
 Read a Hiragana string from the minibuffer, prompting with string PROMPT.
 If non-nil, second arg INITIAL-INPUT is a string to insert before reading.
+Return the string read from the minibuffer.
 
 (fn PROMPT &optional INITIAL-INPUT)")
 (register-definition-prefixes "japan-util" '("japanese-"))
@@ -18230,11 +18071,6 @@ Major mode for editing JSON, powered by tree-sitter.
 (push '(jsonrpc 1 0 25) package--builtin-versions)
 (register-definition-prefixes "jsonrpc" '("jsonrpc-"))
 
-
-;;; Generated autoloads from kermit.el
-
-(register-definition-prefixes "kermit" '("kermit-"))
-
 
 ;;; Generated autoloads from emulation/keypad.el
 
@@ -19166,7 +19002,7 @@ Matching addresses are excluded from the Cc field in replies, and
 also the To field, unless this would leave an empty To field.")
 (custom-autoload 'mail-dont-reply-to-names "mail-utils" t)
 (defvar mail-re-regexps '("RE" "RÉ\\.?" "FWD?" "رد" "回复" "回覆" "SV" "Antw\\.?" "VS" "REF" "AW" "ΑΠ" "ΣΧΕΤ" "השב" "Vá" "R" "RIF" "BLS" "RES" "Odp" "YNT" "ATB") "\
-List of localized \"Re:\" abbreviations in various languages.
+List of localized \"Re\" abbreviations in various languages.
 Each component can be a regular expression or a simple string.  Matching
 is done case-insensitively.  Used to initialize the legacy
 `rmail-re-abbrevs' and `message-subject-re-regexp' user options.")
@@ -19533,6 +19369,15 @@ Populate MENU with commands that open a man page at point.
 (push '(map 3 3 1) package--builtin-versions)
 (register-definition-prefixes "map" '("map-"))
 
+
+;;; Generated autoloads from textmodes/markdown-ts-mode.el
+
+(autoload 'markdown-ts-mode "markdown-ts-mode" "\
+Major mode for editing Markdown using tree-sitter grammar.
+
+(fn)" t)
+(register-definition-prefixes "markdown-ts-mode" '("markdown-ts-"))
+
 
 ;;; Generated autoloads from master.el
 
@@ -19762,6 +19607,16 @@ the rules from `css-mode'.
 (fn)" t)
 (register-definition-prefixes "mhtml-mode" '("mhtml-"))
 
+
+;;; Generated autoloads from textmodes/mhtml-ts-mode.el
+
+(autoload 'mhtml-ts-mode "mhtml-ts-mode" "\
+Major mode for editing HTML with embedded JavaScript and CSS.
+Powered by tree-sitter.
+
+(fn)" t)
+(register-definition-prefixes "mhtml-ts-mode" '("mhtml-ts-mode-"))
+
 
 ;;; Generated autoloads from midnight.el
 
@@ -20448,6 +20303,7 @@ but still shows the full information.
 (autoload 'read-charset "mule-diag" "\
 Read a character set from the minibuffer, prompting with string PROMPT.
 It must be an Emacs character set listed in the variable `charset-list'.
+Return the charset as a symbol.
 
 Optional arguments are DEFAULT-VALUE and INITIAL-INPUT.
 DEFAULT-VALUE, if non-nil, is the default value.
@@ -24237,7 +24093,7 @@ of the project instance object.
 (put 'project-vc-include-untracked 'safe-local-variable #'booleanp)
 (put 'project-vc-name 'safe-local-variable #'stringp)
 (put 'project-vc-extra-root-markers 'safe-local-variable (lambda (val) (and (listp val) (not (memq nil (mapcar #'stringp val))))))
-(defvar project-prefix-map (let ((map (make-sparse-keymap))) (define-key map "!" 'project-shell-command) (define-key map "&" 'project-async-shell-command) (define-key map "f" 'project-find-file) (define-key map "F" 'project-or-external-find-file) (define-key map "b" 'project-switch-to-buffer) (define-key map "s" 'project-shell) (define-key map "d" 'project-find-dir) (define-key map "D" 'project-dired) (define-key map "v" 'project-vc-dir) (define-key map "c" 'project-compile) (define-key map "e" 'project-eshell) (define-key map "k" 'project-kill-buffers) (define-key map "p" 'project-switch-project) (define-key map "g" 'project-find-regexp) (define-key map "G" 'project-or-external-find-regexp) (define-key map "r" 'project-query-replace-regexp) (define-key map "x" 'project-execute-extended-command) (define-key map "o" 'project-any-command) (define-key map "\2" 'project-list-buffers) (define-key map "`" 'project-go-to-diagnostic) map) "\
+(defvar project-prefix-map (let ((map (make-sparse-keymap))) (define-key map "!" 'project-shell-command) (define-key map "&" 'project-async-shell-command) (define-key map "f" 'project-find-file) (define-key map "F" 'project-or-external-find-file) (define-key map "b" 'project-switch-to-buffer) (define-key map "s" 'project-shell) (define-key map "d" 'project-find-dir) (define-key map "D" 'project-dired) (define-key map "v" 'project-vc-dir) (define-key map "c" 'project-compile) (define-key map "e" 'project-eshell) (define-key map "k" 'project-kill-buffers) (define-key map "p" 'project-switch-project) (define-key map "g" 'project-find-regexp) (define-key map "G" 'project-or-external-find-regexp) (define-key map "r" 'project-query-replace-regexp) (define-key map "x" 'project-execute-extended-command) (define-key map "o" 'project-any-command) (define-key map "\2" 'project-list-buffers) (define-key map "`" 'project-go-to-diagnostic) (define-key map "\30s" 'project-save-some-buffers) map) "\
 Keymap for project commands.")
  (define-key ctl-x-map "p" project-prefix-map)
 (autoload 'project-other-window-command "project" "\
@@ -24245,7 +24101,6 @@ Run project command, displaying resultant buffer in another window.
 
 The following commands are available:
 
-\\{project-prefix-map}
 \\{project-other-window-map}" t)
  (define-key ctl-x-4-map "p" #'project-other-window-command)
 (autoload 'project-other-frame-command "project" "\
@@ -24253,7 +24108,6 @@ Run project command, displaying resultant buffer in another frame.
 
 The following commands are available:
 
-\\{project-prefix-map}
 \\{project-other-frame-map}" t)
  (define-key ctl-x-5-map "p" #'project-other-frame-command)
 (autoload 'project-other-tab-command "project" "\
@@ -24422,8 +24276,13 @@ If PROJECT is non-nil, kill buffers for that project instead.
 Also see the `project-kill-buffers-display-buffer-list' variable.
 
 (fn &optional NO-CONFIRM PROJECT)" t)
+(autoload 'project-save-some-buffers "project" "\
+Like `save-some-buffers', but only for this project's buffers.
+
+(fn ARG)" t)
 (autoload 'project-remember-project "project" "\
 Add project PR to the front of the project list.
+If project PR satisfies `project-list-exclude', then nothing is done.
 Save the result in `project-list-file' if the list of projects
 has changed, and NO-WRITE is nil.
 
@@ -24767,7 +24626,7 @@ Optional argument FACE specifies the face to do the highlighting.
 
 ;;; Generated autoloads from progmodes/python.el
 
-(push '(python 0 28) package--builtin-versions)
+(push '(python 0 30) package--builtin-versions)
 (defconst python--auto-mode-alist-regexp "\\(?:\\.\\(?:p\\(?:th\\|y[iw]?\\)\\)\\|/\\(?:SCons\\(?:\\(?:crip\\|truc\\)t\\)\\)\\)\\'")
 (add-to-list 'auto-mode-alist (cons python--auto-mode-alist-regexp 'python-mode))
 (add-to-list 'interpreter-mode-alist '("python[0-9.]*" . python-mode))
@@ -24799,6 +24658,12 @@ argument, restrict the suggestions to imports defining the symbol
 at point.  If there is only one such suggestion, act without
 asking.
 
+If the buffer does not belong to a project, the import statement is
+searched under the buffer's default directory.  For example, if the file
+is located directly under the home directory, all files under the home
+directory will be searched.  Please note that this can take a long time
+and may appear to hang.
+
 When calling from Lisp, use a non-nil NAME to restrict the
 suggestions to imports defining NAME.
 
@@ -24820,7 +24685,17 @@ asking.
 (autoload 'python-sort-imports "python" "\
 Sort Python imports in the current buffer." t)
 (autoload 'python-fix-imports "python" "\
-Add missing imports and remove unused ones from the current buffer." t)
+Add missing imports and remove unused ones from the current buffer.
+
+If there are missing imports, ask for an import statement using all
+imports found in the current project as suggestions.  If there is only
+one such suggestion, act without asking.
+
+If the buffer does not belong to a project, the import statement is
+searched under the buffer's default directory.  For example, if the file
+is located directly under the home directory, all files under the home
+directory will be searched.  Please note that this can take a long time
+and may appear to hang." t)
 (autoload 'python-base-mode "python" "\
 Generic major mode for editing Python files.
 
@@ -27942,10 +27817,11 @@ A FUNC form can have any number of `:no-eval' (or `:no-value'),
 `:eg-result-string' properties." (declare (indent defun)) (shortdoc--check group functions) `(progn (setq shortdoc--groups (delq (assq ',group shortdoc--groups) shortdoc--groups)) (push (cons ',group ',functions) shortdoc--groups)))
 (autoload 'shortdoc-display-group "shortdoc" "\
 Pop to a buffer with short documentation summary for functions in GROUP.
+Interactively, prompt for GROUP.
 If FUNCTION is non-nil, place point on the entry for FUNCTION (if any).
 If SAME-WINDOW, don't pop to a new window.
 
-(fn GROUP &optional FUNCTION SAME-WINDOW)" t)
+(fn GROUP &optional FUNCTION)" t)
 (defalias 'shortdoc #'shortdoc-display-group)
 (register-definition-prefixes "shortdoc" '("shortdoc-"))
 
@@ -28158,22 +28034,6 @@ available:
 	v1, v2	local variables for memorizing anything you want
 
 (fn SKELETON &optional REGIONS STR)")
-(autoload 'skeleton-pair-insert-maybe "skeleton" "\
-Insert the character you type ARG times.
-
-With no ARG, if `skeleton-pair' is non-nil, pairing can occur.  If the region
-is visible the pair is wrapped around it depending on `skeleton-autowrap'.
-Else, if `skeleton-pair-on-word' is non-nil or we are not before or inside a
-word, and if `skeleton-pair-filter-function' returns nil, pairing is performed.
-Pairing is also prohibited if we are right after a quoting character
-such as backslash.
-
-If a match is found in `skeleton-pair-alist', that is inserted, else
-the defaults are used.  These are (), [], {}, <> and (grave
-accent, apostrophe) for the paired ones, and the same character
-twice for the others.
-
-(fn ARG)" t)
 (register-definition-prefixes "skeleton" '("skeleton-"))
 
 
@@ -28281,29 +28141,6 @@ Snake mode keybindings:
 \\[snake-move-down]	Makes the snake move down" t)
 (register-definition-prefixes "snake" '("snake-"))
 
-
-;;; Generated autoloads from net/snmp-mode.el
-
-(autoload 'snmp-mode "snmp-mode" "\
-Major mode for editing SNMP MIBs.
-Expression and list commands understand all C brackets.
-Tab indents for C code.
-Comments start with -- and end with newline or another --.
-Delete converts tabs to spaces as it moves back.
-\\{snmp-mode-map}
-Turning on `snmp-mode' runs the hooks in `snmp-common-mode-hook', then
-`snmp-mode-hook'." t)
-(autoload 'snmpv2-mode "snmp-mode" "\
-Major mode for editing SNMPv2 MIBs.
-Expression and list commands understand all C brackets.
-Tab indents for C code.
-Comments start with -- and end with newline or another --.
-Delete converts tabs to spaces as it moves back.
-\\{snmp-mode-map}
-Turning on `snmp-mode' runs the hooks in `snmp-common-mode-hook',
-then `snmpv2-mode-hook'." t)
-(register-definition-prefixes "snmp-mode" '("snmp"))
-
 
 ;;; Generated autoloads from so-long.el
 
@@ -28765,10 +28602,28 @@ Spam reports will be queued with the method used when
 
 ;;; Generated autoloads from speedbar.el
 
-(defalias 'speedbar 'speedbar-frame-mode)
+(autoload 'speedbar "speedbar" "\
+Open or close the `speedbar'.
+Positive ARG means turn on, negative turn off.
+A nil ARG means toggle.  If `speedbar-prefer-window' is t, open the
+speedbar in a window instead of in a separate frame.
+
+(fn &optional ARG)" t)
+(defalias 'speedbar-frame 'speedbar-frame-mode)
 (autoload 'speedbar-frame-mode "speedbar" "\
-Enable or disable speedbar.  Positive ARG means turn on, negative turn off.
-A nil ARG means toggle.  Once the speedbar frame is activated, a buffer in
+Enable or disable speedbar.
+Positive ARG means turn on, negative turn off.  A nil ARG means toggle.
+Once the speedbar frame is activated, a buffer in `speedbar-mode' will
+be displayed.  Currently, only one speedbar is supported at a time.
+`speedbar-before-popup-hook' is called before popping up the speedbar frame.
+`speedbar-before-delete-hook' is called before the frame is deleted.
+
+(fn &optional ARG)" t)
+(defalias 'speedbar-window 'speedbar-window-mode)
+(autoload 'speedbar-window-mode "speedbar" "\
+Enable or disable speedbar window mode.
+Positive ARG means turn on, negative turn off.
+A nil ARG means toggle.  Once the speedbar window is activated, a buffer in
 `speedbar-mode' will be displayed.  Currently, only one speedbar is
 supported at a time.
 `speedbar-before-popup-hook' is called before popping up the speedbar frame.
@@ -29333,6 +29188,9 @@ PROMPT will be inserted at the start of the buffer, but won't be
 included in the resulting string.  If nil, no prompt will be
 inserted in the buffer.
 
+When the user exits recursive edit, this function returns the
+edited STRING.
+
 Also see `string-edit'.
 
 (fn PROMPT STRING)")
@@ -30517,6 +30375,13 @@ Normally input is edited in Emacs and sent a line at a time.
 
 ;;; Generated autoloads from tempo.el
 
+(autoload 'tempo-insert-template "tempo" "\
+Insert a template.
+TEMPLATE is the template to be inserted.  If ON-REGION is non-nil the
+`r' elements are replaced with the current region.  In Transient Mark
+mode, ON-REGION is ignored and assumed true if the region is active.
+
+(fn TEMPLATE &optional _)")
 (register-definition-prefixes "tempo" '("tempo-"))
 
 
@@ -31818,11 +31683,6 @@ holds a keymap.
 (fn COMMAND ICON IN-MAP &optional FROM-MAP &rest PROPS)")
 (register-definition-prefixes "tool-bar" '("modifier-bar-" "secondary-tool-bar-map" "toggle-tool-bar-mode-from-frame" "tool-bar-"))
 
-
-;;; Generated autoloads from tooltip.el
-
-(register-definition-prefixes "tooltip" '("tooltip-"))
-
 
 ;;; Generated autoloads from touch-screen.el
 
@@ -31934,15 +31794,16 @@ the output buffer or changing the window configuration.
 
 ;;; Generated autoloads from emacs-lisp/track-changes.el
 
-(push '(track-changes 1 2) package--builtin-versions)
+(push '(track-changes 1 4) package--builtin-versions)
 (register-definition-prefixes "track-changes" '("track-changes-" "with--track-changes"))
 
 
 ;;; Generated autoloads from net/tramp.el
 
+(push '(tramp 0) package--builtin-versions)
  (when (featurep 'tramp-compat)
   (load "tramp-compat" 'noerror 'nomessage))
-(defvar tramp-mode t "\
+(defvar tramp-mode (fboundp 'make-process) "\
 Whether Tramp is enabled.
 If it is set to nil, all remote file names are used literally.  Don't
 set it manually, use `inhibit-remote-files' or `without-remote-files'
@@ -32027,7 +31888,20 @@ Add archive file name handler to `file-name-handler-alist'." (when (and tramp-ar
 
 ;;; Generated autoloads from net/tramp-cmds.el
 
-(register-definition-prefixes "tramp-cmds" '("tramp-"))
+(autoload 'tramp-revert-buffer-with-sudo "tramp-cmds" "\
+Visit the current file again with superuser, or root, permissions.
+
+By default this is done using the \"sudo\" Tramp method.
+You can customize `tramp-file-name-with-method' to change this.
+
+Interactively, with a prefix argument, prompt for a different method.
+
+If the buffer visits a file, the file is replaced.
+If the buffer runs `dired', the buffer is reverted." t)
+(autoload 'tramp-dired-find-file-with-sudo "tramp-cmds" "\
+In Dired, visit the file or directory named on this line.
+This is performed with \"sudo\" permissions." t)
+(register-definition-prefixes "tramp-cmds" '("tramp-" "with-tramp-file-name-with-method"))
 
 
 ;;; Generated autoloads from net/tramp-compat.el
@@ -32108,7 +31982,7 @@ Add archive file name handler to `file-name-handler-alist'." (when (and tramp-ar
 
 ;;; Generated autoloads from transient.el
 
-(push '(transient 0 8 4) package--builtin-versions)
+(push '(transient 0 8 6) package--builtin-versions)
 (autoload 'transient-insert-suffix "transient" "\
 Insert a SUFFIX into PREFIX before LOC.
 PREFIX is a prefix command, a symbol.
@@ -32118,7 +31992,9 @@ LOC is a command, a key vector, a key description (a string
   as returned by `key-description'), or a coordination list
   (whose last element may also be a command or key).
 Remove a conflicting binding unless optional KEEP-OTHER is
-  non-nil.
+  non-nil.  When the conflict appears to be a false-positive,
+  non-nil KEEP-OTHER may be ignored, which can be prevented
+  by using `always'.
 See info node `(transient)Modifying Existing Transients'.
 
 (fn PREFIX LOC SUFFIX &optional KEEP-OTHER)")
@@ -32132,7 +32008,9 @@ LOC is a command, a key vector, a key description (a string
   as returned by `key-description'), or a coordination list
   (whose last element may also be a command or key).
 Remove a conflicting binding unless optional KEEP-OTHER is
-  non-nil.
+  non-nil.  When the conflict appears to be a false-positive,
+  non-nil KEEP-OTHER may be ignored, which can be prevented
+  by using `always'.
 See info node `(transient)Modifying Existing Transients'.
 
 (fn PREFIX LOC SUFFIX &optional KEEP-OTHER)")
@@ -35308,6 +35186,23 @@ disabled.
 Return non-nil if WIDGET is a widget.
 
 (fn WIDGET)")
+(autoload 'widget-put "wid-edit" "\
+In WIDGET, set PROPERTY to VALUE.
+The value can later be retrieved with `widget-get'.
+
+(fn WIDGET PROPERTY VALUE)")
+(autoload 'widget-get "wid-edit" "\
+In WIDGET, get the value of PROPERTY.
+The value could either be specified when the widget was created, or
+later with `widget-put'.
+
+(fn WIDGET PROPERTY)")
+(autoload 'widget-apply "wid-edit" "\
+Apply the value of WIDGET's PROPERTY to the widget itself.
+Return the result of applying the value of PROPERTY to WIDGET.
+ARGS are passed as extra arguments to the function.
+
+(fn WIDGET PROPERTY &rest ARGS)")
 (autoload 'widget-prompt-value "wid-edit" "\
 Prompt for a value matching WIDGET, using PROMPT.
 The current value is assumed to be VALUE, unless UNBOUND is non-nil.
@@ -35609,6 +35504,12 @@ command `winner-undo'.  By default this one is bound to the key
 sequence \\`C-c <left>'.  If you change your mind (while undoing),
 you can press \\`C-c <right>' (calling `winner-redo').
 
+If you use `tab-bar-mode', consider using `tab-bar-history-mode', as
+`winner-mode' is unaware of tab switching, and might turn the window
+configuration of the current tab to another's (old) window
+configuration.  `tab-bar-history-mode' provides tab-specific window
+configuration history avoiding this problem.
+
 This is a global minor mode.  If called interactively, toggle the
 `Winner mode' mode.  If the prefix argument is positive, enable the
 mode, and if it is zero or negative, disable the mode.
@@ -36008,9 +35909,14 @@ Yank media (images, HTML and the like) from the clipboard.
 This command depends on the current major mode having support for
 accepting the media type.  The mode has to register itself using
 the `yank-media-handler' mechanism.
+Optional argument NOSELECT non-nil (interactively, with a prefix
+argument) means to skip auto-selecting the best MIME type and ask for
+the MIME type to use.
 
 Also see `yank-media-types' for a command that lets you explore
-all the different selection types." t)
+all the different selection types.
+
+(fn &optional NOSELECT)" t)
 (autoload 'yank-media-handler "yank-media" "\
 Register HANDLER for dealing with `yank-media' actions for TYPES.
 TYPES should be a MIME media type symbol, a regexp, or a list