Merge from origin/emacs-29
871cf33a45
; * admin/make-tarball.txt: Minor copyedit.4faebba2fe
Fix invocation of File->Close from the menu barcd05fca5f7
; Improve documentation of 'native-comp-enable-subr-tramp...c61a30e160
Update thumbnail buffer's header more4c49452cde
(treesit-query-validate): Fix reusing the output bufferd560dc5044
(rust-ts-mode--font-lock-settings): Highlight closure par...c15bc91e1b
* Fix `native-comp-enable-subr-trampolines' semantic774051873d
Fix documentation of 'just-one-space' and 'delete-horizon...7337f07250
; Remove NEWS entry about deleted variable.fb5299ba09
; Fix wording of last change.9f508cef85
Fix 'display-buffer-use-least-recent-window'5190ea6259
Fix point moving when calling python-shell-send-region6c0d821017
(project-try-vc): Remove unused defvar/require4f9862e435
; Fix typoa638c79bc5
Delete redundant question from Gnus FAQ4a90d67eb6
Slightly improve hashcash documentation6ea3c105ab
Fix cursor motion when there's line-prefix and display st...e985466556
Fix comment in treesit_record_change (bug#61369)1e5cebc88b
Spell out RPN abbreviation in Calc manual intro # Conflicts: # etc/NEWS # lisp/window.el
This commit is contained in:
commit
34f44ae07e
22 changed files with 485 additions and 205 deletions
|
@ -483,7 +483,7 @@ Return them as multiple value."
|
|||
;;; Union specific code.
|
||||
|
||||
(defun comp-cstr-union-homogeneous-no-range (dst &rest srcs)
|
||||
"As `comp-cstr-union' but escluding the irange component.
|
||||
"As `comp-cstr-union' but excluding the irange component.
|
||||
All SRCS constraints must be homogeneously negated or non-negated."
|
||||
|
||||
;; Type propagation.
|
||||
|
|
|
@ -3794,7 +3794,8 @@ Return the trampoline if found or nil otherwise."
|
|||
"Return the absolute filename for a trampoline for SUBR-NAME."
|
||||
(cl-loop
|
||||
with dirs = (if (stringp native-comp-enable-subr-trampolines)
|
||||
(list native-comp-enable-subr-trampolines)
|
||||
(list (expand-file-name native-comp-enable-subr-trampolines
|
||||
invocation-directory))
|
||||
(if native-compile-target-directory
|
||||
(list (expand-file-name comp-native-version-dir
|
||||
native-compile-target-directory))
|
||||
|
|
|
@ -162,8 +162,10 @@ dialogs. Otherwise, the function will always use text-mode dialogs.
|
|||
|
||||
The return value is the matching entry from the CHOICES list.
|
||||
|
||||
If LONG-FORM, do a `completing-read' over the NAME elements in
|
||||
CHOICES instead.
|
||||
If LONG-FORM is non-nil, do a `completing-read' over the NAME elements
|
||||
in CHOICES instead. In this case, GUI dialog is not used, regardless
|
||||
of the value of `use-dialog-box' and whether the function was invoked
|
||||
via a mouse gesture.
|
||||
|
||||
Usage example:
|
||||
|
||||
|
@ -177,8 +179,9 @@ Usage example:
|
|||
prompt choices help-string show-help)))
|
||||
|
||||
(defun read-multiple-choice--short-answers (prompt choices help-string show-help)
|
||||
(let* ((prompt-choices
|
||||
(if show-help choices (append choices '((?? "?")))))
|
||||
(let* ((dialog-p (use-dialog-box-p))
|
||||
(prompt-choices
|
||||
(if (or show-help dialog-p) choices (append choices '((?? "?")))))
|
||||
(altered-names (mapcar #'rmc--add-key-description prompt-choices))
|
||||
(full-prompt
|
||||
(format
|
||||
|
@ -192,16 +195,14 @@ Usage example:
|
|||
(setq buf (rmc--show-help prompt help-string show-help
|
||||
choices altered-names)))
|
||||
(while (not tchar)
|
||||
(message "%s%s"
|
||||
(if wrong-char
|
||||
"Invalid choice. "
|
||||
"")
|
||||
full-prompt)
|
||||
(unless dialog-p
|
||||
(message "%s%s"
|
||||
(if wrong-char
|
||||
"Invalid choice. "
|
||||
"")
|
||||
full-prompt))
|
||||
(setq tchar
|
||||
(if (and (display-popup-menus-p)
|
||||
last-input-event ; not during startup
|
||||
(consp last-nonmenu-event)
|
||||
use-dialog-box)
|
||||
(if dialog-p
|
||||
(x-popup-dialog
|
||||
t
|
||||
(cons prompt
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue