1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00

Merge from savannah/emacs-30

7dcf9b71e6 ; Don't document package-x.el
a5fd518d52 ; Document spurious warnings on macOS 15
625ed68aea Fix the use of xref-window-local-history together with Xr...
8091772767 completing-read-multiple: Fix support for ":" as separator
38cc36a375 ; Improve docstring of cl-check-type
This commit is contained in:
Po Lu 2025-03-04 14:32:33 +08:00
commit 9daab9be34
5 changed files with 45 additions and 15 deletions

View file

@ -3576,7 +3576,10 @@ Of course, we really can't know that for sure, so it's just a heuristic."
;;;###autoload
(defmacro cl-check-type (form type &optional string)
"Verify that FORM is of type TYPE; signal an error if not.
STRING is an optional description of the desired type."
STRING is an optional description of the desired type.
Hint: To check the type of an object, use `cl-type-of'.
To define new types, see `cl-deftype'."
(declare (debug (place cl-type-spec &optional stringp)))
(and (or (not (macroexp-compiling-p))
(< cl--optimize-speed 3) (= cl--optimize-safety 3))

View file

@ -269,7 +269,9 @@ with empty strings removed."
(setq-local completion-list-insert-choice-function
(lambda (_start _end choice)
(let* ((beg (save-excursion
(if (search-backward-regexp crm-separator nil t)
(if (search-backward-regexp crm-separator
(field-beginning)
t)
(1+ (point))
(minibuffer-prompt-end))))
(end (save-excursion