From: Eshel Yaron Date: Thu, 26 Jun 2025 12:20:01 +0000 (+0200) Subject: Update lisp/ldefs-boot.el X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=753f4b02ea050b9271b43a3eeaf87b8aecb51c2a;p=emacs.git Update lisp/ldefs-boot.el --- diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 4ada18a8900..b5a4322fc01 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -2074,6 +2074,9 @@ Accepts keyword arguments: same behavior as if no special keyword had been used (that is, the command is bound, and it's `repeat-map' property set) +:continue-only BINDINGS - Within the scope of `:repeat-map', will make + the command continue but not enter the repeat + map, via the `repeat-continue' property :filter FORM - optional form to determine when bindings apply The rest of the arguments are conses of keybinding string and a @@ -6250,15 +6253,6 @@ omitted, a buffer named *Custom Themes* is used. (fn &optional BUFFER)" t) (register-definition-prefixes "cus-theme" '("custom-" "describe-theme-")) - -;;; Generated autoloads from vc/cvs-status.el - -(autoload 'cvs-status-mode "cvs-status" "\ -Mode used for cvs status output. - -(fn)" t) -(register-definition-prefixes "cvs-status" '("cvs-")) - ;;; Generated autoloads from progmodes/cwarn.el @@ -9149,32 +9143,6 @@ mode hooks. (make-obsolete 'elide-head 'elide-head-mode "29.1") (register-definition-prefixes "elide-head" '("elide-head-")) - -;;; Generated autoloads from emacs-lisp/elint.el - -(autoload 'elint-file "elint" "\ -Lint the file FILE. - -(fn FILE)" t) -(autoload 'elint-directory "elint" "\ -Lint all the .el files in DIRECTORY. -A complicated directory may require a lot of memory. - -(fn DIRECTORY)" t) -(autoload 'elint-current-buffer "elint" "\ -Lint the current buffer. -If necessary, this first calls `elint-initialize'." t) -(autoload 'elint-defun "elint" "\ -Lint the function at point. -If necessary, this first calls `elint-initialize'." t) -(autoload 'elint-initialize "elint" "\ -Initialize elint. -If elint is already initialized, this does nothing, unless -optional prefix argument REINIT is non-nil. - -(fn &optional REINIT)" t) -(register-definition-prefixes "elint" '("elint-")) - ;;; Generated autoloads from progmodes/elixir-ts-mode.el @@ -22555,88 +22523,6 @@ this is `comint-dynamic-complete-functions'. Setup `shell-mode' to use pcomplete.") (register-definition-prefixes "pcomplete" '("pcomplete-")) - -;;; Generated autoloads from vc/pcvs.el - -(autoload 'cvs-checkout "pcvs" "\ -Run a `cvs checkout MODULES' in DIR. -Feed the output to a *cvs* buffer, display it in the current window, -and run `cvs-mode' on it. - -With a prefix argument, prompt for cvs FLAGS to use. - -(fn MODULES DIR FLAGS &optional ROOT)" t) -(autoload 'cvs-quickdir "pcvs" "\ -Open a *cvs* buffer on DIR without running cvs. -With a prefix argument, prompt for a directory to use. -A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]), - prevents reuse of an existing *cvs* buffer. -Optional argument NOSHOW if non-nil means not to display the buffer. -FLAGS is ignored. - -(fn DIR &optional FLAGS NOSHOW)" t) -(autoload 'cvs-examine "pcvs" "\ -Run a `cvs -n update' in the specified DIRECTORY. -That is, check what needs to be done, but don't change the disc. -Feed the output to a *cvs* buffer and run `cvs-mode' on it. -With a prefix argument, prompt for a directory and cvs FLAGS to use. -A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]), - prevents reuse of an existing *cvs* buffer. -Optional argument NOSHOW if non-nil means not to display the buffer. - -(fn DIRECTORY FLAGS &optional NOSHOW)" t) -(autoload 'cvs-update "pcvs" "\ -Run a `cvs update' in the current working DIRECTORY. -Feed the output to a *cvs* buffer and run `cvs-mode' on it. -With a \\[universal-argument] prefix argument, prompt for a directory to use. -A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]), - prevents reuse of an existing *cvs* buffer. -The prefix is also passed to `cvs-flags-query' to select the FLAGS - passed to cvs. - -(fn DIRECTORY FLAGS)" t) -(autoload 'cvs-status "pcvs" "\ -Run a `cvs status' in the current working DIRECTORY. -Feed the output to a *cvs* buffer and run `cvs-mode' on it. -With a prefix argument, prompt for a directory and cvs FLAGS to use. -A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]), - prevents reuse of an existing *cvs* buffer. -Optional argument NOSHOW if non-nil means not to display the buffer. - -(fn DIRECTORY FLAGS &optional NOSHOW)" t) -(defvar cvs-dired-action 'cvs-quickdir "\ -The action to be performed when opening a CVS directory. -Sensible values are `cvs-examine', `cvs-status' and `cvs-quickdir'.") -(custom-autoload 'cvs-dired-action "pcvs" t) -(defvar cvs-dired-use-hook '(4) "\ -Whether or not opening a CVS directory should run PCL-CVS. -A value of nil means never do it. -`always' means to always do it unless a prefix argument is given to the - command that prompted the opening of the directory. -Anything else means to do it only if the prefix arg is equal to this value.") -(custom-autoload 'cvs-dired-use-hook "pcvs" t) -(defun cvs-dired-noselect (dir) "\ -Run `cvs-examine' if DIR is a CVS administrative directory. -The exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp dir) (setq dir (directory-file-name dir)) (when (and (string= "CVS" (file-name-nondirectory dir)) (file-readable-p (expand-file-name "Entries" dir)) cvs-dired-use-hook (if (eq cvs-dired-use-hook 'always) (not current-prefix-arg) (equal current-prefix-arg cvs-dired-use-hook))) (save-excursion (funcall cvs-dired-action (file-name-directory dir) t t))))) -(register-definition-prefixes "pcvs" '("cvs-" "defun-cvs-mode")) - - -;;; Generated autoloads from vc/pcvs-defs.el - -(defvar cvs-global-menu (let ((m (make-sparse-keymap "PCL-CVS"))) (define-key m [status] '(menu-item "Directory Status" cvs-status :help "A more verbose status of a workarea")) (define-key m [checkout] '(menu-item "Checkout Module" cvs-checkout :help "Check out a module from the repository")) (define-key m [update] '(menu-item "Update Directory" cvs-update :help "Fetch updates from the repository")) (define-key m [examine] '(menu-item "Examine Directory" cvs-examine :help "Examine the current state of a workarea")) (fset 'cvs-global-menu m)) "\ -Global menu used by PCL-CVS.") -(register-definition-prefixes "pcvs-defs" '("cvs-")) - - -;;; Generated autoloads from vc/pcvs-info.el - -(register-definition-prefixes "pcvs-info" '("cvs-")) - - -;;; Generated autoloads from vc/pcvs-parse.el - -(register-definition-prefixes "pcvs-parse" '("cvs-")) - ;;; Generated autoloads from vc/pcvs-util.el @@ -25015,9 +24901,18 @@ Toggle Repeat mode. When Repeat mode is enabled, certain commands bound to multi-key sequences can be repeated by typing a single key, after typing the full key sequence once. -The commands which can be repeated like that are those whose symbol - has the property `repeat-map' which specifies a keymap of single -keys for repeating. + +The commands that can be repeated in this way are those whose symbols +have the `repeat-map' property, which specifies a keymap of single keys +for repeating. + +Normally, invoking a command outside that keymap terminates the +repeating sequence. However, if the command's `repeat-continue' +property is non-nil, it may instead continue the current repeating +sequence: if the property is a list of keymaps, then the command +continues when the current repeat map is in the list; if the property is +t, the command always continues the sequence. + See `describe-repeat-maps' for a list of all repeatable commands. This is a global minor mode. If called interactively, toggle the @@ -28821,19 +28716,29 @@ indivisible unit. (fn STRING)") (function-put 'string-glyph-split 'side-effect-free 't) (autoload 'add-display-text-property "subr-x" "\ -Add display property PROP with VALUE to the text from START to END. -If any text in the region has a non-nil `display' property, those -properties are retained. +Add the display specification (SPEC VALUE) to the text from START to END. +If any text in the region has a non-nil `display' property, the existing +display specifications are retained. + +OBJECT is either a string or a buffer to add the specification to. +If omitted, OBJECT defaults to the current buffer. -If OBJECT is non-nil, it should be a string or a buffer. If nil, -this defaults to the current buffer. +(fn START END SPEC VALUE &optional OBJECT)") +(autoload 'remove-display-text-property "subr-x" "\ +Remove the display specification SPEC from the text from START to END. +SPEC is the car of the display specification to remove, e.g. `height'. +If any text in the region has other display specifications, those specs +are retained. -(fn START END PROP VALUE &optional OBJECT)") +OBJECT is either a string or a buffer to remove the specification from. +If omitted, OBJECT defaults to the current buffer. + +(fn START END SPEC &optional OBJECT)") (autoload 'read-process-name "subr-x" "\ Query the user for a process and return the process object. (fn PROMPT)") -(register-definition-prefixes "subr-x" '("emacs-etc--hide-local-variables" "hash-table-" "internal--thread-argument" "string-remove-" "thread-" "with-buffer-unmodified-if-unchanged" "work-buffer-")) +(register-definition-prefixes "subr-x" '("add-remove--display-text-property" "emacs-etc--hide-local-variables" "hash-table-" "internal--thread-argument" "string-remove-" "thread-" "with-buffer-unmodified-if-unchanged" "work-buffer-")) ;;; Generated autoloads from progmodes/subword.el @@ -30856,7 +30761,7 @@ Unload Tramp file name handlers from `file-name-handler-alist'." (dolist (fnh fi Deactivate remote file names." (interactive) (when (fboundp 'tramp-cleanup-all-connections) (funcall 'tramp-cleanup-all-connections)) (tramp-unload-file-name-handlers) (setq tramp-mode nil)) (defmacro without-remote-files (&rest body) "\ Deactivate remote file names temporarily. -Run BODY." (declare (indent 0) (debug ((form body) body))) `(let ((file-name-handler-alist (copy-tree file-name-handler-alist)) tramp-mode) (tramp-unload-file-name-handlers) ,@body)) +Run BODY." (declare (indent 0) (debug t)) `(let ((file-name-handler-alist (copy-tree file-name-handler-alist)) tramp-mode) (tramp-unload-file-name-handlers) ,@body)) (defun tramp-unload-tramp nil "\ Discard Tramp from loading remote files." (interactive) (ignore-errors (unload-feature 'tramp 'force))) (register-definition-prefixes "tramp" '("tramp-" "with-")) @@ -32817,10 +32722,12 @@ backend to NEW-BACKEND, and unregister FILE from the current backend. (fn FILE NEW-BACKEND)") (autoload 'vc-delete-file "vc" "\ Delete file and mark it as such in the version control system. -If called interactively, read FILE, defaulting to the current +If called interactively, read FILE-OR-FILES, defaulting to the current buffer's file name if it's under version control. +When called from Lisp, FILE-OR-FILES can be a file name or a list of +file names. -(fn FILE)" t) +(fn FILE-OR-FILES)" t) (autoload 'vc-rename-file "vc" "\ Rename file OLD to NEW in both work area and repository. If called interactively, read OLD and NEW, defaulting OLD to the