From 3f2e009ac3352f9384a3f560bf2505223f607913 Mon Sep 17 00:00:00 2001 From: Po Lu Date: Wed, 9 Aug 2023 09:19:11 +0800 Subject: [PATCH] ; Minor adjustments to configury, loaddefs and gitignore * .gitignore: Add exec/aclocal.m4. * configure.ac (bitmapdirs): Circumvent shell substitution that isn't supported by the Bourne shell. * lisp/ldefs-boot.el: Update from loaddefs.el. --- .gitignore | 1 + configure.ac | 8 +- lisp/ldefs-boot.el | 192 ++++++++++++++++++++++++++++++++------------- 3 files changed, 141 insertions(+), 60 deletions(-) diff --git a/.gitignore b/.gitignore index 1cf83b049de..0a68121009d 100644 --- a/.gitignore +++ b/.gitignore @@ -380,6 +380,7 @@ exec/loader exec/test exec/exec1 exec/deps/* +exec/aclocal.m4 exec/autom4te.cache exec/config.h exec/config.h.in diff --git a/configure.ac b/configure.ac index de602371f7b..6e080c1c666 100644 --- a/configure.ac +++ b/configure.ac @@ -2762,16 +2762,16 @@ if test x"${x_includes}" = x; then bitmapdir=/usr/include/X11/bitmaps else # accumulate include directories that have X11 bitmap subdirectories - bmd_acc= + AS_UNSET([bmd_acc]) for bmd in `AS_ECHO(["$x_includes"]) | sed -e 's/:/ /g'`; do if test -d "${bmd}/X11/bitmaps"; then - bmd_acc="${bmd_acc}:${bmd}/X11/bitmaps" + bmd_acc="${bmd_acc+$bmd_acc:}${bmd}/X11/bitmaps" fi if test -d "${bmd}/bitmaps"; then - bmd_acc="${bmd_acc}:${bmd}/bitmaps" + bmd_acc="${bmd_acc+$bmd_acc:}${bmd}/bitmaps" fi done - bitmapdir=${bmd_acc#:} + bitmapdir=$bmd_acc fi NATIVE_IMAGE_API=no diff --git a/lisp/ldefs-boot.el b/lisp/ldefs-boot.el index 898dcd55f58..5b6bcc065eb 100644 --- a/lisp/ldefs-boot.el +++ b/lisp/ldefs-boot.el @@ -302,6 +302,7 @@ usage: (defadvice FUNCTION (CLASS NAME [POSITION] [ARGLIST] FLAG...) (fn FUNCTION ARGS &rest BODY)" nil t) (function-put 'defadvice 'doc-string-elt 3) (function-put 'defadvice 'lisp-indent-function 2) +(make-obsolete 'defadvice '"use advice-add or define-advice" "30.1") (register-definition-prefixes "advice" '("ad-")) @@ -2544,6 +2545,13 @@ The optional argument NEW-WINDOW is not used. Browse URL with the system default browser. Default to the URL around or before point. +(fn URL &optional NEW-WINDOW)" t) +(autoload 'browse-url-default-android-browser "browse-url" "\ +Browse URL with the system default browser. +If `browse-url-android-share' is non-nil, try to share URL using +an external program instead. Default to the URL around or before +point. + (fn URL &optional NEW-WINDOW)" t) (autoload 'browse-url-emacs "browse-url" "\ Ask Emacs to load URL into a buffer and show it in another window. @@ -4645,12 +4653,6 @@ But if you just want to print something, don't call this directly: call other entry points instead, such as `cl-prin1'. (fn OBJECT STREAM)") -(autoload 'cl-print-expand-ellipsis "cl-print" "\ -Print the expansion of an ellipsis to STREAM. -VALUE should be the value of the `cl-print-ellipsis' text property -which was attached to the ellipsis by `cl-prin1'. - -(fn VALUE STREAM)") (autoload 'cl-prin1 "cl-print" "\ Print OBJECT on STREAM according to its type. Output is further controlled by the variables @@ -4671,13 +4673,12 @@ characters with appropriate settings of `print-level' and the arguments VALUE and STREAM and which should respect `print-length' and `print-level'. LIMIT may be nil or zero in which case PRINT-FUNCTION will be called with `print-level' and -`print-length' bound to nil. +`print-length' bound to nil, and it can also be t in which case +PRINT-FUNCTION will be called with the current values of `print-level' +and `print-length'. Use this function with `cl-prin1' to print an object, -abbreviating it with ellipses to fit within a size limit. Use -this function with `cl-prin1-expand-ellipsis' to expand an -ellipsis, abbreviating the expansion to stay within a size -limit. +abbreviating it with ellipses to fit within a size limit. (fn PRINT-FUNCTION VALUE LIMIT)") (register-definition-prefixes "cl-print" '("cl-print-" "help-byte-code")) @@ -4873,6 +4874,36 @@ The files to be removed are those produced from the original source filename (including FILE). (fn FILE)") +(autoload 'native--compile-async "comp" "\ +Compile FILES asynchronously. +FILES is one filename or a list of filenames or directories. + +If optional argument RECURSIVELY is non-nil, recurse into +subdirectories of given directories. + +If optional argument LOAD is non-nil, request to load the file +after compiling. + +The optional argument SELECTOR has the following valid values: + +nil -- Select all files. +a string -- A regular expression selecting files with matching names. +a function -- A function selecting files with matching names. + +The variable `native-comp-async-jobs-number' specifies the number +of (commands) to run simultaneously. + +LOAD can also be the symbol `late'. This is used internally if +the byte code has already been loaded when this function is +called. It means that we request the special kind of load +necessary in that situation, called \"late\" loading. + +During a \"late\" load, instead of executing all top-level forms +of the original files, only function definitions are +loaded (paying attention to have these effective only if the +bytecode definition was not changed in the meantime). + +(fn FILES &optional RECURSIVELY LOAD SELECTOR)") (autoload 'comp-lookup-eln "comp" "\ Given a Lisp source FILENAME return the corresponding .eln file if found. Search happens in `native-comp-eln-load-path'. @@ -4939,7 +4970,7 @@ inferred from the code itself by the native compiler; if it is `know', the type specifier comes from `comp-known-type-specifiers'. (fn FUNCTION)") -(register-definition-prefixes "comp" '("comp-" "make-comp-edge" "native-" "no-native-compile")) +(register-definition-prefixes "comp" '("comp-" "make-comp-edge" "native-comp" "no-native-compile")) ;;; Generated autoloads from cedet/semantic/wisent/comp.el @@ -5638,7 +5669,7 @@ Run `perldoc' on WORD. (fn WORD)" t) (autoload 'cperl-perldoc-at-point "cperl-mode" "\ Run a `perldoc' on the word around point." t) -(register-definition-prefixes "cperl-mode" '("cperl-")) +(register-definition-prefixes "cperl-mode" '("cperl-" "imenu-max-items")) ;;; Generated autoloads from progmodes/cpp.el @@ -8171,7 +8202,6 @@ Switch to *dungeon* buffer and start game." t) ;;; Generated autoloads from emacs-lisp/easy-mmode.el -(defalias 'easy-mmode-define-minor-mode #'define-minor-mode) (autoload 'define-minor-mode "easy-mmode" "\ Define a new minor mode MODE. This defines the toggle command MODE and (by default) a control variable @@ -8246,7 +8276,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 'easy-mmode-define-global-mode #'define-globalized-minor-mode) (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. @@ -8254,14 +8283,17 @@ TURN-ON is a function that will be called with no args in every buffer and that should try to turn MODE on if applicable for that buffer. Each of KEY VALUE is a pair of CL-style keyword arguments. -The :predicate argument specifies in which major modes should the +The :predicate key specifies in which major modes should the globalized minor mode be switched on. The value should be t (meaning switch on the minor mode in all major modes), nil (meaning don't switch on in any major mode), a list of modes (meaning switch on only in those modes and their descendants), or a list (not MODES...), meaning switch on in any major mode except MODES. The value can also mix all of these forms, see the info node `Defining Minor Modes' for -details. +details. The :predicate key causes the macro to create a user option +named the same as MODE, but ending with \"-modes\" instead of \"-mode\". +That user option can then be used to customize in which modes this +globalized minor mode will be switched on. As the minor mode defined by this function is always global, any :global keyword is ignored. Other keywords have the same meaning as in `define-minor-mode', @@ -8325,6 +8357,8 @@ CSS contains a list of syntax specifications of the form (CHAR . SYNTAX). (fn ST CSS DOC &rest ARGS)" nil t) (function-put 'easy-mmode-defsyntax 'doc-string-elt 3) (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") (register-definition-prefixes "easy-mmode" '("easy-mmode-")) @@ -8633,7 +8667,7 @@ A second call of this function without changing point inserts the next match. A call with prefix PREFIX reads the symbol to insert from the minibuffer with completion. -(fn PREFIX)" '("P")) +(fn PREFIX)" t) (autoload 'ebrowse-tags-loop-continue "ebrowse" "\ Repeat last operation on files in tree. FIRST-TIME non-nil means this is not a repetition, but the first time. @@ -10234,6 +10268,9 @@ Look at CONFIG and try to expand GROUP. (autoload 'erc-select-read-args "erc" "\ Prompt the user for values of nick, server, port, and password. With prefix arg, also prompt for user and full name.") +(autoload 'erc-server-select "erc" "\ +Interactively connect to a server from `erc-server-alist'." t) +(make-obsolete 'erc-server-select 'erc-tls "30.1") (autoload 'erc "erc" "\ ERC is a powerful, modular, and extensible IRC client. This function is the main entry point for ERC. @@ -10259,7 +10296,7 @@ for the values of the other parameters. See `erc-tls' for the meaning of ID. -(fn &key SERVER PORT NICK USER PASSWORD FULL-NAME ID)" '((erc-select-read-args))) +(fn &key SERVER PORT NICK USER PASSWORD FULL-NAME ID)" t) (defalias 'erc-select #'erc) (autoload 'erc-tls "erc" "\ ERC is a powerful, modular, and extensible IRC client. @@ -10307,7 +10344,7 @@ See Info node `(erc) Network Identifier' for details. Like CLIENT-CERTIFICATE, this parameter cannot be specified interactively. -(fn &key SERVER PORT NICK USER PASSWORD FULL-NAME CLIENT-CERTIFICATE ID)" '((let ((erc-default-port erc-default-port-tls)) (erc-select-read-args)))) +(fn &key SERVER PORT NICK USER PASSWORD FULL-NAME CLIENT-CERTIFICATE ID)" t) (autoload 'erc-handle-irc-url "erc" "\ Use ERC to IRC on HOST:PORT in CHANNEL. If ERC is already connected to HOST:PORT, simply /join CHANNEL. @@ -10432,10 +10469,13 @@ Return the name of the network or \"Unknown\" as a symbol. Use the server parameter NETWORK if provided, otherwise parse the server name and search for a match in `erc-networks-alist'.") (make-obsolete 'erc-determine-network '"maybe see `erc-networks--determine'" "29.1") -(autoload 'erc-server-select "erc-networks" "\ -Interactively select a server to connect to using `erc-server-alist'." t) (register-definition-prefixes "erc-networks" '("erc-")) + +;;; Generated autoloads from erc/erc-nicks.el + +(register-definition-prefixes "erc-nicks" '("erc-nicks-")) + ;;; Generated autoloads from erc/erc-notify.el @@ -10536,7 +10576,9 @@ it has to be wrapped in `(eval (quote ...))'. If NAME is already defined as a test and Emacs is running in batch mode, an error is signaled. -(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)] BODY...)" nil 'macro) +(fn NAME () [DOCSTRING] [:expected-result RESULT-TYPE] [:tags \\='(TAG...)] BODY...)" nil t) +(function-put 'ert-deftest 'doc-string-elt 3) +(function-put 'ert-deftest 'lisp-indent-function 2) (autoload 'ert-run-tests-batch "ert" "\ Run the tests specified by SELECTOR, printing results to the terminal. @@ -14830,9 +14872,8 @@ to specify a command to run. If CONFIRM is non-nil, the user will be given an opportunity to edit the command before it's run. -Interactively, the user can use the \\`M-c' command while entering -the regexp to indicate whether the grep should be case sensitive -or not. +Interactively, the user can use \\\\[read-regexp-toggle-case-fold] while entering the regexp +to indicate whether the grep should be case sensitive or not. (fn REGEXP &optional FILES DIR CONFIRM)" t) (autoload 'zrgrep "grep" "\ @@ -16409,7 +16450,8 @@ inlined into the compiled format versions. This means that if you change its definition, you should explicitly call `ibuffer-recompile-formats'. -(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)" nil 'macro) +(fn SYMBOL (&key NAME INLINE PROPS SUMMARIZER) &rest BODY)" nil t) +(function-put 'define-ibuffer-column 'lisp-indent-function 'defun) (autoload 'define-ibuffer-sorter "ibuf-macs" "\ Define a method of sorting named NAME. DOCUMENTATION is the documentation of the function, which will be called @@ -16420,7 +16462,9 @@ For sorting, the forms in BODY will be evaluated with `a' bound to one buffer object, and `b' bound to another. BODY should return a non-nil value if and only if `a' is \"less than\" `b'. -(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)" nil 'macro) +(fn NAME DOCUMENTATION (&key DESCRIPTION) &rest BODY)" nil t) +(function-put 'define-ibuffer-sorter 'lisp-indent-function 1) +(function-put 'define-ibuffer-sorter 'doc-string-elt 2) (autoload 'define-ibuffer-op "ibuf-macs" "\ Generate a function which operates on a buffer. OP becomes the name of the function; if it doesn't begin with @@ -16459,7 +16503,9 @@ BODY define the operation; they are forms to evaluate per each marked buffer. BODY is evaluated with `buf' bound to the buffer object. -(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING ACTIVE-OPSTRING BEFORE AFTER COMPLEX) &rest BODY)" nil 'macro) +(fn OP ARGS DOCUMENTATION (&key INTERACTIVE MARK MODIFIER-P DANGEROUS OPSTRING ACTIVE-OPSTRING BEFORE AFTER COMPLEX) &rest BODY)" nil t) +(function-put 'define-ibuffer-op 'lisp-indent-function 2) +(function-put 'define-ibuffer-op 'doc-string-elt 3) (autoload 'define-ibuffer-filter "ibuf-macs" "\ Define a filter named NAME. DOCUMENTATION is the documentation of the function. @@ -16474,7 +16520,9 @@ not a particular buffer should be displayed or not. The forms in BODY will be evaluated with BUF bound to the buffer object, and QUALIFIER bound to the current value of the filter. -(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)" nil 'macro) +(fn NAME DOCUMENTATION (&key READER DESCRIPTION) &rest BODY)" nil t) +(function-put 'define-ibuffer-filter 'lisp-indent-function 2) +(function-put 'define-ibuffer-filter 'doc-string-elt 2) (register-definition-prefixes "ibuf-macs" '("ibuffer-")) @@ -18954,7 +19002,7 @@ The macro is now available for use via \\[kmacro-call-macro], or it can be given a name with \\[kmacro-name-last-macro] and then invoked under that name. -With numeric arg, repeat macro now that many times, +With numeric ARG, repeat the macro that many times, counting the definition just completed as the first repetition. An argument of zero means repeat until error. @@ -19179,7 +19227,7 @@ A major mode to edit GNU ld script files. (put 'less-css-input-file-name 'safe-local-variable #'stringp) (add-to-list 'auto-mode-alist '("\\.less\\'" . less-css-mode)) (autoload 'less-css-mode "less-css-mode" "\ -Major mode for editing Less files (http://lesscss.org/). +Major mode for editing Less files (https://lesscss.org/). Special commands: \\{less-css-mode-map} @@ -20706,6 +20754,8 @@ Also see the `duplicate-line' command. (autoload 'duplicate-line "misc" "\ Duplicate the current line N times. Interactively, N is the prefix numeric argument, and defaults to 1. +The user option `duplicate-line-final-position' specifies where to +move point after duplicating the line. Also see the `copy-from-above-command' command. (fn &optional N)" t) @@ -20715,6 +20765,9 @@ If the region is inactive, duplicate the current line (like `duplicate-line'). Otherwise, duplicate the region, which remains active afterwards. If the region is rectangular, duplicate on its right-hand side. Interactively, N is the prefix numeric argument, and defaults to 1. +The variables `duplicate-line-final-position' and +`duplicate-region-final-position' control the position of point +and the region after the duplication. (fn &optional N)" t) (autoload 'zap-up-to-char "misc" "\ @@ -20766,7 +20819,7 @@ Optional argument BUFFER specifies a buffer to use, instead of The return value is always nil. (fn &optional LOADED-ONLY-P BUFFER)" t) -(register-definition-prefixes "misc" '("list-dynamic-libraries--")) +(register-definition-prefixes "misc" '("duplicate-" "list-dynamic-libraries--")) ;;; Generated autoloads from misearch.el @@ -22508,7 +22561,7 @@ Coloring: ;;; Generated autoloads from org/org.el -(push (purecopy '(org 9 6 6)) package--builtin-versions) +(push (purecopy '(org 9 6 7)) package--builtin-versions) (autoload 'org-babel-do-load-languages "org" "\ Load the languages defined in `org-babel-load-languages'. @@ -24488,11 +24541,6 @@ they are not by default assigned to keys." t) (defalias 'edit-picture 'picture-mode) (register-definition-prefixes "picture" '("picture-")) - -;;; Generated autoloads from language/pinyin.el - -(register-definition-prefixes "pinyin" '("pinyin-character-map")) - ;;; Generated autoloads from textmodes/pixel-fill.el @@ -24527,6 +24575,18 @@ The mode's hook is called both when the mode is enabled and when it is 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. + +(fn DELTA)") +(autoload 'pixel-scroll-precision-scroll-up-page "pixel-scroll" "\ +Scroll the current window up by DELTA pixels. +Note that this function doesn't work if DELTA is larger than +the height of the current window. + +(fn DELTA)") (defvar pixel-scroll-precision-mode nil "\ Non-nil if Pixel-Scroll-Precision mode is enabled. See the `pixel-scroll-precision-mode' command @@ -24618,8 +24678,9 @@ Use streaming commands. Return a string containing the pretty-printed representation of OBJECT. OBJECT can be any Lisp object. Quoting characters are used as needed to make output that `read' can handle, whenever this is possible. +Optional argument PP-FUNCTION overrides `pp-default-function'. -(fn OBJECT)") +(fn OBJECT &optional PP-FUNCTION)") (autoload 'pp-buffer "pp" "\ Prettify the current buffer with printed representation of a Lisp object." t) (autoload 'pp "pp" "\ @@ -24627,11 +24688,7 @@ Output the pretty-printed representation of OBJECT, any Lisp object. Quoting characters are printed as needed to make output that `read' can handle, whenever this is possible. -This function does not apply special formatting rules for Emacs -Lisp code. See `pp-emacs-lisp-code' instead. - -By default, this function won't limit the line length of lists -and vectors. Bind `pp-use-max-width' to a non-nil value to do so. +Uses the pretty-printing code specified in `pp-default-function'. Output stream is STREAM, or value of `standard-output' (which see). @@ -24669,8 +24726,10 @@ Ignores leading comment characters. Insert SEXP into the current buffer, formatted as Emacs Lisp code. Use the `pp-max-width' variable to control the desired line length. Note that this could be slow for large SEXPs. +Can also be called with two arguments, in which case they're taken to be +the bounds of a region containing Lisp code to pretty-print. -(fn SEXP)") +(fn SEXP &optional END)") (register-definition-prefixes "pp" '("pp-")) @@ -25261,8 +25320,10 @@ Return the project instance in DIRECTORY, defaulting to `default-directory'. When no project is found in that directory, the result depends on the value of MAYBE-PROMPT: if it is nil or omitted, return nil, -else ask the user for a directory in which to look for the -project, and if no project is found there, return a \"transient\" +else prompt the user for the project to use. To prompt for a +project, call the function specified by `project-prompter', which +returns the directory in which to look for the project. If no +project is found in that directory, return a \"transient\" project instance. The \"transient\" project instance is a special kind of value @@ -25468,6 +25529,15 @@ When called in a program, it will use the project corresponding to directory DIR. (fn DIR)" t) +(autoload 'project-uniquify-dirname-transform "project" "\ +Uniquify name of directory DIRNAME using `project-name', if in a project. + +If you set `uniquify-dirname-transform' to this function, +slash-separated components from `project-name' will be appended to +the buffer's directory name when buffers from two different projects +would otherwise have the same name. + +(fn DIRNAME)") (register-definition-prefixes "project" '("project-")) @@ -25832,6 +25902,7 @@ Major mode for editing Python files, using tree-sitter library. \\{python-ts-mode-map} (fn)" t) +(add-to-list 'auto-mode-alist '("/\\(?:Pipfile\\|\\.?flake8\\)\\'" . conf-mode)) (register-definition-prefixes "python" '("inferior-python-mode" "python-" "run-python-internal")) @@ -27501,8 +27572,8 @@ Currently there are `ruby-mode' and `ruby-ts-mode'. Major mode for editing Ruby code. (fn)" t) -(add-to-list 'auto-mode-alist (cons (purecopy (concat "\\(?:\\.\\(?:" "rbw?\\|ru\\|rake\\|thor" "\\|jbuilder\\|rabl\\|gemspec\\|podspec" "\\)" "\\|/" "\\(?:Gem\\|Rake\\|Cap\\|Thor" "\\|Puppet\\|Berks\\|Brew" "\\|Vagrant\\|Guard\\|Pod\\)file" "\\)\\'")) 'ruby-mode)) -(dolist (name (list "ruby" "rbx" "jruby" "ruby1.9" "ruby1.8")) (add-to-list 'interpreter-mode-alist (cons (purecopy name) 'ruby-mode))) +(add-to-list 'auto-mode-alist (cons (purecopy (concat "\\(?:\\.\\(?:" "rbw?\\|ru\\|rake\\|thor\\|axlsx" "\\|jbuilder\\|rabl\\|gemspec\\|podspec" "\\)" "\\|/" "\\(?:Gem\\|Rake\\|Cap\\|Thor" "\\|Puppet\\|Berks\\|Brew\\|Fast" "\\|Vagrant\\|Guard\\|Pod\\)file" "\\)\\'")) 'ruby-mode)) +(dolist (name (list "ruby" "rbx" "jruby" "j?ruby\\(?:[0-9.]+\\)")) (add-to-list 'interpreter-mode-alist (cons (purecopy name) 'ruby-mode))) (register-definition-prefixes "ruby-mode" '("ruby-")) @@ -30433,7 +30504,7 @@ this defaults to the current buffer. Query the user for a process and return the process object. (fn PROMPT)") -(register-definition-prefixes "subr-x" '("emacs-etc--hide-local-variables" "eval-command-interactive-spec" "hash-table-" "internal--thread-argument" "replace-region-contents" "string-" "thread-" "with-buffer-unmodified-if-unchanged")) +(register-definition-prefixes "subr-x" '("emacs-etc--hide-local-variables" "hash-table-" "internal--thread-argument" "replace-region-contents" "string-" "thread-" "with-buffer-unmodified-if-unchanged")) ;;; Generated autoloads from progmodes/subword.el @@ -31307,7 +31378,7 @@ See also: variables `tar-update-datestamp' and `tar-anal-blocksize'. \\{tar-mode-map} (fn)" t) -(register-definition-prefixes "tar-mode" '("tar-")) +(register-definition-prefixes "tar-mode" '("pax-" "tar-")) ;;; Generated autoloads from progmodes/tcl.el @@ -32670,7 +32741,7 @@ FROM-MAP must contain appropriate binding for `[menu-bar]' which holds a keymap. (fn COMMAND ICON IN-MAP &optional FROM-MAP &rest PROPS)") -(register-definition-prefixes "tool-bar" '("toggle-tool-bar-mode-from-frame" "tool-bar-")) +(register-definition-prefixes "tool-bar" '("modifier-bar-" "secondary-tool-bar-map" "toggle-tool-bar-mode-from-frame" "tool-bar-")) ;;; Generated autoloads from tooltip.el @@ -32771,6 +32842,11 @@ Add Tramp file name handlers to `file-name-handler-alist' during autoload." (unl (tramp-register-autoload-file-name-handlers) (defun tramp-unload-file-name-handlers nil "\ Unload Tramp file name handlers from `file-name-handler-alist'." (dolist (fnh file-name-handler-alist) (when (and (symbolp (cdr fnh)) (string-prefix-p "tramp-" (symbol-name (cdr fnh)))) (setq file-name-handler-alist (delq fnh file-name-handler-alist))))) +(defun inhibit-remote-files nil "\ +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)) (defun tramp-unload-tramp nil "\ Discard Tramp from loading remote files." (interactive) (ignore-errors (unload-feature 'tramp 'force))) (register-definition-prefixes "tramp" '("tramp-" "with-")) @@ -32846,6 +32922,11 @@ Add archive file name handler to `file-name-handler-alist'." (when (and tramp-ar (register-definition-prefixes "tramp-integration" '("tramp-")) + +;;; Generated autoloads from net/tramp-message.el + +(register-definition-prefixes "tramp-message" '("tramp-" "with-tramp-debug-message")) + ;;; Generated autoloads from net/tramp-rclone.el @@ -33245,7 +33326,7 @@ The JSX-specific faces are used when `treesit-font-lock-level' is at least 3 (which is the default value). (fn)" t) -(register-definition-prefixes "typescript-ts-mode" '("typescript-ts-mode-")) +(register-definition-prefixes "typescript-ts-mode" '("tsx-ts-mode--" "typescript-ts-mode-")) ;;; Generated autoloads from international/ucs-normalize.el @@ -36636,7 +36717,7 @@ The optional ARGS are additional keyword arguments. Call `insert' with ARGS even if surrounding text is read only. (fn &rest ARGS)") -(defvar widget-keymap (let ((map (make-sparse-keymap))) (define-key map "\11" 'widget-forward) (define-key map "\33\11" 'widget-backward) (define-key map [(shift tab)] 'widget-backward) (put 'widget-backward :advertised-binding [(shift tab)]) (define-key map [backtab] 'widget-backward) (define-key map [down-mouse-2] 'widget-button-click) (define-key map [down-mouse-1] 'widget-button-click) (define-key map [(control 109)] 'widget-button-press) map) "\ +(defvar widget-keymap (let ((map (make-sparse-keymap))) (define-key map "\11" 'widget-forward) (define-key map "\33\11" 'widget-backward) (define-key map [(shift tab)] 'widget-backward) (put 'widget-backward :advertised-binding [(shift tab)]) (define-key map [backtab] 'widget-backward) (define-key map [down-mouse-2] 'widget-button-click) (define-key map [down-mouse-1] 'widget-button-click) (define-key map [touchscreen-begin] 'widget-button-click) (define-key map [(control 109)] 'widget-button-press) map) "\ Keymap containing useful binding for buffers containing widgets. Recommended as a parent keymap for modes using widgets. Note that such modes will need to require wid-edit.") @@ -37282,7 +37363,6 @@ run a specific program. The program must be a member of ;; Local Variables: ;; version-control: never ;; no-update-autoloads: t -;; no-byte-compile: t ;; no-native-compile: t ;; coding: utf-8-emacs-unix ;; End: -- 2.39.2