From 0e7b2f88f91e57df786c263d90d1e45ff0e0a24e Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Wed, 29 May 2024 11:48:27 -0400 Subject: [PATCH] ; Update ldefs-boot.el (cherry picked from commit 62a3d72bee3f7a0b92b48ac17ddac2528e8ccdb7) --- lisp/ldefs-boot.el | 211 +++++++++++++++++++++++++++++++-------------- 1 file changed, 147 insertions(+), 64 deletions(-) diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 8f9b11e3df1..a0bb147de8c 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -1108,7 +1108,7 @@ archive. \\{archive-mode-map} (fn &optional FORCE)") -(register-definition-prefixes "arc-mode" '("arc")) +(register-definition-prefixes "arc-mode" '("arc" "tar-archive-from-tar")) ;;; Generated autoloads from cedet/srecode/args.el @@ -2939,7 +2939,7 @@ Optional argument ARG is passed as second argument ARG to and corresponding effects. (fn &optional ARG)") -(register-definition-prefixes "bytecomp" '("batch-byte-compile-file" "byte" "displaying-byte-compile-warnings" "emacs-lisp-" "no-byte-compile")) +(register-definition-prefixes "bytecomp" '("batch-byte-compile-file" "byte" "compilation-safety" "displaying-byte-compile-warnings" "emacs-lisp-" "no-byte-compile")) ;;; Generated autoloads from cedet/semantic/bovine/c.el @@ -4839,14 +4839,14 @@ With prefix arg ECHO, echo output in process buffer. If NO-DISPLAY is non-nil, do not show the output buffer. -(fn COMMAND OUTPUT-BUFFER ECHO &optional NO-DISPLAY)" t) +(fn COMMAND OUTPUT-BUFFER ECHO &optional NO-DISPLAY)" '(comint-mode)) (autoload 'comint-redirect-send-command-to-process "comint" "\ Send COMMAND to PROCESS, with output to OUTPUT-BUFFER. With prefix arg, echo output in process buffer. If NO-DISPLAY is non-nil, do not show the output buffer. -(fn COMMAND OUTPUT-BUFFER PROCESS ECHO &optional NO-DISPLAY)" t) +(fn COMMAND OUTPUT-BUFFER PROCESS ECHO &optional NO-DISPLAY)" '(comint-mode)) (autoload 'comint-redirect-results-list "comint" "\ Send COMMAND to current process. Return a list of expressions in the output which match REGEXP. @@ -4931,11 +4931,12 @@ variable \"NATIVE_DISABLED\" is set, only byte compile.") (autoload 'comp-function-type-spec "comp-common" "\ Return the type specifier of FUNCTION. -This function returns a cons cell whose car is the function -specifier, and cdr is a symbol, either `inferred' or `know'. -If the symbol is `inferred', the type specifier is automatically -inferred from the code itself by the native compiler; if it is -`know', the type specifier comes from `comp-known-type-specifiers'. +This function returns a cons cell whose car is the function specifier, +and cdr is a symbol, either `inferred' or `declared'. If the symbol is +`inferred', the type specifier is automatically inferred from the code +itself by the native compiler; if it is `declared', the type specifier +comes from `comp-primitive-type-specifiers' or the function type declaration +itself. (fn FUNCTION)") (register-definition-prefixes "comp-common" '("comp-" "native-comp-")) @@ -5313,11 +5314,12 @@ Show in-buffer completion suggestions in a preview as you type. This mode automatically shows and updates the completion preview according to the text around point. -\\When the preview is visible, \\[completion-preview-insert] -accepts the completion suggestion, +\\When the preview is visible, \\[completion-preview-insert] accepts the +completion suggestion, \\[completion-preview-complete] completes up to +the longest common prefix of all completion candidates, \\[completion-preview-next-candidate] cycles forward to the next -completion suggestion, and \\[completion-preview-prev-candidate] -cycles backward. +completion suggestion, and \\[completion-preview-prev-candidate] cycles +backward. This is a minor mode. If called interactively, toggle the `Completion-Preview mode' mode. If the prefix argument is positive, @@ -5362,7 +5364,7 @@ Completion-Preview mode. minor mode is used in. (fn &optional ARG)" t) -(defvar global-completion-preview-modes '((not minibuffer-mode special-mode) t) "\ +(defvar global-completion-preview-modes '((not archive-mode calc-mode compilation-mode diff-mode dired-mode image-mode minibuffer-mode minibuffer-inactive-mode org-agenda-mode special-mode wdired-mode) t) "\ Which major modes `completion-preview-mode' is switched on in. This variable can be either t (all major modes), nil (no major modes), or a list of modes and (not modes) to switch use this minor mode or @@ -11974,9 +11976,10 @@ this are the `default' and `header-line' faces: they will both be scaled even if they have an explicit `:height' setting. See also the related command `global-text-scale-adjust'. Unlike -that command, which scales the font size with a increment, -`text-scale-adjust' scales the font size with a factor, -`text-scale-mode-step'. With a small `text-scale-mode-step' +that command, which scales the font size with a increment (and can +also optionally resize frames to keep the same number of lines and +characters per line), `text-scale-adjust' scales the font size with +a factor, `text-scale-mode-step'. With a small `text-scale-mode-step' factor, the two commands behave similarly. (fn INC)" t) @@ -18108,7 +18111,10 @@ A non-image major mode displays an image file as text.") (defvar imenu-sort-function nil "\ The function to use for sorting the index mouse-menu. -Affects only the mouse index menu. +Affects only the mouse index menu. If you want to change +the sorting order of completions, you can customize +the option `completion-category-overrides' and set +`display-sort-function' for the category `imenu'. Set this to nil if you don't want any sorting (faster). The items in the menu are then presented in the order they were found @@ -19417,6 +19423,9 @@ The symbol's function definition becomes the keyboard macro string. Such a \"function\" cannot be called from Lisp, but it is a valid editor command. (fn SYMBOL)" t) +(defalias 'kmacro-menu #'list-keyboard-macros) +(autoload 'list-keyboard-macros "kmacro" "\ +List the keyboard macros." t) (register-definition-prefixes "kmacro" '("kmacro-")) @@ -19550,11 +19559,6 @@ A major mode to edit GNU ld script files. (register-definition-prefixes "ldap" '("ldap-")) - -;;; Generated autoloads from gnus/legacy-gnus-agent.el - -(register-definition-prefixes "legacy-gnus-agent" '("gnus-agent-")) - ;;; Generated autoloads from textmodes/less-css-mode.el @@ -22204,6 +22208,11 @@ Start newsticker treeview." t) (register-definition-prefixes "nnagent" '("nnagent-")) + +;;; Generated autoloads from gnus/nnatom.el + +(register-definition-prefixes "nnatom" '("nnatom-")) + ;;; Generated autoloads from gnus/nnbabyl.el @@ -22246,6 +22255,11 @@ symbol in the alist. (register-definition-prefixes "nneething" '("nneething-")) + +;;; Generated autoloads from gnus/nnfeed.el + +(register-definition-prefixes "nnfeed" '("nnfeed-")) + ;;; Generated autoloads from gnus/nnfolder.el @@ -23845,7 +23859,13 @@ with \"-q\"). Even if the value is nil, you can type \\[package-initialize] to make installed packages available at any time, or you can -call (package-activate-all) in your init-file.") +call (package-activate-all) in your init-file. + +Note that this variable must be set to a non-default value in +your early-init file, as the variable's value is used before +loading the regular init file. Therefore, if you customize it +via Customize, you should save your customized setting into +your `early-init-file'.") (custom-autoload 'package-enable-at-startup "package" t) (defcustom package-user-dir (locate-user-emacs-file "elpa") "\ Directory containing the user's Emacs Lisp packages. @@ -24780,6 +24800,12 @@ Global menu used by PCL-CVS.") (register-definition-prefixes "pcvs-util" '("cvs-")) + +;;; Generated autoloads from progmodes/peg.el + +(push (purecopy '(peg 1 0 1)) package--builtin-versions) +(register-definition-prefixes "peg" '("bob" "bol" "bos" "bow" "define-peg-rule" "eob" "eol" "eos" "eow" "fail" "null" "peg" "with-peg-rules")) + ;;; Generated autoloads from progmodes/perl-mode.el @@ -24964,8 +24990,8 @@ disabled. (fn &optional ARG)" t) (autoload 'pixel-scroll-precision-scroll-down-page "pixel-scroll" "\ Scroll the current window down by DELTA pixels. -Note that this function doesn't work if DELTA is larger than -the height of the current window. +Note that this function doesn't work if DELTA is larger than or +equal to the text height of the current window in pixels. (fn DELTA)") (autoload 'pixel-scroll-precision-scroll-up-page "pixel-scroll" "\ @@ -25700,7 +25726,7 @@ Open profile FILENAME. ;;; Generated autoloads from progmodes/project.el -(push (purecopy '(project 0 10 0)) package--builtin-versions) +(push (purecopy '(project 0 11 0)) package--builtin-versions) (autoload 'project-current "project" "\ Return the project instance in DIRECTORY, defaulting to `default-directory'. @@ -27042,6 +27068,7 @@ usually more efficient than that of a simplified version: (cdr parens)))) (fn STRINGS &optional PAREN)") +(function-put 'regexp-opt 'function-type '(function (list &optional t) string)) (function-put 'regexp-opt 'pure 't) (function-put 'regexp-opt 'side-effect-free 't) (autoload 'regexp-opt-depth "regexp-opt" "\ @@ -28031,7 +28058,7 @@ disabled. Major mode for editing Rust, powered by tree-sitter. (fn)" t) -(register-definition-prefixes "rust-ts-mode" '("rust-ts-mode-")) +(register-definition-prefixes "rust-ts-mode" '("rust-ts-")) ;;; Generated autoloads from emacs-lisp/rx.el @@ -32487,7 +32514,7 @@ If IGNORE-COMMENT-OR-STRING is non-nil comments and strings are treated as white space. (fn &optional IGNORE-COMMENT-OR-STRING)") -(register-definition-prefixes "thingatpt" '("beginning-of-thing" "define-thing-chars" "end-of-thing" "filename" "form-at-point" "in-string-p" "sentence-at-point" "thing-at-point-" "word-at-point")) +(register-definition-prefixes "thingatpt" '("beginning-of-thing" "bounds-of-thing-at-point-" "define-thing-chars" "end-of-thing" "filename" "for" "in-string-p" "sentence-at-point" "thing-at-point-" "word-at-point")) ;;; Generated autoloads from thread.el @@ -33270,6 +33297,12 @@ the output buffer or changing the window configuration. (defalias 'trace-function 'trace-function-foreground) (register-definition-prefixes "trace" '("inhibit-trace" "trace-" "untrace-")) + +;;; Generated autoloads from emacs-lisp/track-changes.el + +(push (purecopy '(track-changes 1 2)) package--builtin-versions) +(register-definition-prefixes "track-changes" '("track-changes-" "with--track-changes")) + ;;; Generated autoloads from net/tramp.el @@ -33325,6 +33358,11 @@ Discard Tramp from loading remote files." (interactive) (ignore-errors (unload-f (register-definition-prefixes "tramp-adb" '("tramp-")) + +;;; Generated autoloads from net/tramp-androidsu.el + +(register-definition-prefixes "tramp-androidsu" '("tramp-")) + ;;; Generated autoloads from net/tramp-archive.el @@ -34390,29 +34428,6 @@ Return the nondirectory part of FILE, for a URL. (fn QUERY &optional DOWNCASE ALLOW-NEWLINES)") -(autoload 'url-build-query-string "url-util" "\ -Build a query-string. - -Given a QUERY in the form: - ((key1 val1) - (key2 val2) - (key3 val1 val2) - (key4) - (key5 \"\")) - -(This is the same format as produced by `url-parse-query-string') - -This will return a string -\"key1=val1&key2=val2&key3=val1&key3=val2&key4&key5\". Keys may -be strings or symbols; if they are symbols, the symbol name will -be used. - -When SEMICOLONS is given, the separator will be \";\". - -When KEEP-EMPTY is given, empty values will show as \"key=\" -instead of just \"key\" as in the example above. - -(fn QUERY &optional SEMICOLONS KEEP-EMPTY)") (autoload 'url-unhex-string "url-util" "\ Decode %XX sequences in a percent-encoded URL. If optional second argument ALLOW-NEWLINES is non-nil, then allow the @@ -34445,6 +34460,29 @@ normalization, if URL is already URI-encoded, this function should return it unchanged. (fn URL)") +(autoload 'url-build-query-string "url-util" "\ +Build a query-string. + +Given a QUERY in the form: + ((key1 val1) + (key2 val2) + (key3 val1 val2) + (key4) + (key5 \"\")) + +(This is the same format as produced by `url-parse-query-string') + +This will return a string +\"key1=val1&key2=val2&key3=val1&key3=val2&key4&key5\". Keys may +be strings or symbols; if they are symbols, the symbol name will +be used. + +When SEMICOLONS is given, the separator will be \";\". + +When KEEP-EMPTY is given, empty values will show as \"key=\" +instead of just \"key\" as in the example above. + +(fn QUERY &optional SEMICOLONS KEEP-EMPTY)") (autoload 'url-file-extension "url-util" "\ Return the filename extension of FNAME. If optional argument X is t, then return the basename @@ -35198,6 +35236,7 @@ Request editing the next VC shell command before execution. This is a prefix command. It affects only a VC command executed immediately after this one." t) (put 'vc-prepare-patches-separately 'safe-local-variable 'booleanp) + (put 'vc-default-patch-addressee 'safe-local-variable 'stringp) (autoload 'vc-prepare-patch "vc" "\ Compose an Email sending patches for REVISIONS to ADDRESSEE. If `vc-prepare-patches-separately' is nil, use SUBJECT as the @@ -37421,6 +37460,61 @@ Default value of MODIFIERS is `shift-super'. (fn &optional MODIFIERS)" t) (register-definition-prefixes "windmove" '("windmove-")) + +;;; Generated autoloads from window-tool-bar.el + +(push (purecopy '(window-tool-bar 0 2)) package--builtin-versions) +(autoload 'window-tool-bar-string "window-tool-bar" "\ +Return a (propertized) string for the tool bar. + +This is for when you want more customizations than +`window-tool-bar-mode' provides. Commonly added to the variable +`tab-line-format', `header-line-format', or `mode-line-format'") +(autoload 'window-tool-bar-mode "window-tool-bar" "\ +Toggle display of the tool bar in the tab line of the current buffer. + +This is a minor mode. If called interactively, toggle the +`Window-Tool-Bar mode' mode. If the prefix argument is positive, enable +the mode, and if it is zero or negative, disable the mode. + +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 `window-tool-bar-mode'. + +The mode's hook is called both when the mode is enabled and when it is +disabled. + +(fn &optional ARG)" t) +(put 'global-window-tool-bar-mode 'globalized-minor-mode t) +(defvar global-window-tool-bar-mode nil "\ +Non-nil if Global Window-Tool-Bar mode is enabled. +See the `global-window-tool-bar-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-window-tool-bar-mode'.") +(custom-autoload 'global-window-tool-bar-mode "window-tool-bar" nil) +(autoload 'global-window-tool-bar-mode "window-tool-bar" "\ +Toggle Window-Tool-Bar mode in all buffers. +With prefix ARG, enable Global Window-Tool-Bar 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. + +Window-Tool-Bar mode is enabled in all buffers where +`window-tool-bar--turn-on' would do it. + +See `window-tool-bar-mode' for more information on Window-Tool-Bar +mode. + +(fn &optional ARG)" t) +(register-definition-prefixes "window-tool-bar" '("window-tool-bar-")) + ;;; Generated autoloads from winner.el @@ -37652,7 +37746,7 @@ If LIMIT is non-nil, then do not consider characters beyond LIMIT. ;;; Generated autoloads from progmodes/xref.el -(push (purecopy '(xref 1 6 3)) package--builtin-versions) +(push (purecopy '(xref 1 7 0)) package--builtin-versions) (autoload 'xref-find-backend "xref") (define-obsolete-function-alias 'xref-pop-marker-stack #'xref-go-back "29.1") (autoload 'xref-go-back "xref" "\ @@ -37877,17 +37971,6 @@ run a specific program. The program must be a member of (fn &optional PGM)" t) (register-definition-prefixes "zone" '("zone-")) - - -;;; Generated autoloads from net/tramp-androidsu.el - -(register-definition-prefixes "tramp-androidsu" '("tramp-androidsu-")) - - -;;; Generated autoloads from progmodes/peg.el - -(push (purecopy '(peg 1 0 1)) package--builtin-versions) -(register-definition-prefixes "peg" '("bob" "bol" "bos" "bow" "define-peg-rule" "eob" "eol" "eos" "eow" "fail" "null" "peg" "with-peg-rules")) ;;; End of scraped data -- 2.39.2