Merge from origin/emacs-30
defc55bb6fFix treesit-parser-create behavior regarding indirect buf...20ac26e675; Fix with-delayed-message docstring metavars.04034cd9ceFix 'dired-movement-style' in Dired when subdirs are shownf8443dffc1; * lisp/register.el (register-use-preview): Doc fix (bug...f729828bcf; Add texinfo reference to GNU Coding Standards.a6abb88fdc; * lisp/files.el (executable-find): Doc fix. # Conflicts: # src/treesit.c
This commit is contained in:
@@ -1494,9 +1494,10 @@ the Emacs Lisp Reference Manual
|
||||
@subsection Coding Standards
|
||||
@cindex coding standards for Emacs submissions
|
||||
|
||||
Contributed code should follow the GNU Coding Standards
|
||||
@url{https://www.gnu.org/prep/standards/}. This may also be available
|
||||
in info on your system.
|
||||
Contributed code should follow the GNU Coding Standards. This manual
|
||||
is available online at @url{https://www.gnu.org/prep/standards/}. It
|
||||
may also be available locally in Info on your system, see @pxref{Top,,,
|
||||
standards, GNU Coding Standards}.
|
||||
|
||||
If it doesn't, we'll need to find someone to fix the code before we
|
||||
can use it.
|
||||
|
||||
@@ -2935,15 +2935,19 @@ is controlled by `dired-movement-style'."
|
||||
(setq wrapped t))
|
||||
;; `bounded': go back to the last non-empty line.
|
||||
(dired-movement-style ; Either 'bounded or anything else non-nil.
|
||||
(while (and (dired-between-files) (not (zerop arg)))
|
||||
(while (and (dired-between-files)
|
||||
(not (dired-get-subdir))
|
||||
(not (zerop arg)))
|
||||
(funcall jumpfun (- moving-down))
|
||||
;; Point not moving means infinite loop.
|
||||
(if (= old-position (point))
|
||||
(setq arg 0)
|
||||
(setq old-position (point))))
|
||||
;; Encountered a boundary, so let's stop movement.
|
||||
(setq arg (if (dired-between-files) 0 moving-down)))))
|
||||
(unless (dired-between-files)
|
||||
(setq arg (if (and (dired-between-files)
|
||||
(not (dired-get-subdir)))
|
||||
0 moving-down)))))
|
||||
(unless (and (dired-between-files) (not (dired-get-subdir)))
|
||||
;; Has moved to a non-empty line. This movement does
|
||||
;; make sense.
|
||||
(decf arg moving-down))
|
||||
|
||||
@@ -1310,9 +1310,9 @@ the value of the variable `exec-path'."
|
||||
|
||||
(defun executable-find (command &optional remote)
|
||||
"Search for COMMAND in `exec-path' and return the absolute file name.
|
||||
Return nil if COMMAND is not found anywhere in `exec-path'. If
|
||||
REMOTE is non-nil, search on the remote host indicated by
|
||||
`default-directory' instead."
|
||||
Return nil if COMMAND is not found anywhere in `exec-path'.
|
||||
If REMOTE is non-nil, search on a remote host if `default-directory' is
|
||||
remote, otherwise search locally."
|
||||
(if (and remote (file-remote-p default-directory))
|
||||
(let ((res (locate-file
|
||||
command
|
||||
|
||||
@@ -130,11 +130,11 @@ description of the argument. The function to use is set according
|
||||
to the value of `register--read-with-preview-function'.")
|
||||
|
||||
(defcustom register-use-preview 'traditional
|
||||
"Whether to show register preview when modifying registers.
|
||||
"Whether register commands show preview of registers with non-nil values.
|
||||
|
||||
When set to t, show a preview buffer with navigation and highlighting.
|
||||
|
||||
When set `insist', behave as with t, but allow exiting the minibuffer by
|
||||
When set to `insist', behave as with t, but allow exiting the minibuffer by
|
||||
pressing the register name a second time. For example, press \\`a' to
|
||||
select register \"a\", then press \\`a' again to exit the minibuffer.
|
||||
|
||||
|
||||
@@ -7451,7 +7451,7 @@ not a list, return a one-element list containing OBJECT."
|
||||
The MESSAGE form will be evaluated immediately, but the resulting
|
||||
string will be displayed only if BODY takes longer than TIMEOUT seconds.
|
||||
|
||||
\(fn (timeout message) &rest body)"
|
||||
\(fn (TIMEOUT MESSAGE) &rest BODY)"
|
||||
(declare (indent 1))
|
||||
`(funcall-with-delayed-message ,(car args) ,(cadr args)
|
||||
(lambda ()
|
||||
|
||||
@@ -47,5 +47,5 @@ index 9f6c5fe43e47eab441232e54456c5c2b06297b65..7b3f91a8b4ed923c8f43183276e3ab36
|
||||
if __name__ == "__main__":
|
||||
main()
|
||||
|
||||
--
|
||||
--
|
||||
2.40.0
|
||||
|
||||
Reference in New Issue
Block a user