diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2023-01-15 13:08:02 +0100 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2023-01-15 13:08:02 +0100 |
commit | cc576cc410fd7567d6b22c0e80debfd835593847 (patch) | |
tree | 5acafa81bbaf1e8b41cb1cc6368d25ca79661347 /lisp/simple.el | |
parent | 77ca6aa56e3425c87861cab8abce52bee3697cf4 (diff) | |
parent | 920a7d38e96134289393b7bfcc3a7b88be73925b (diff) | |
download | emacs-cc576cc410fd7567d6b22c0e80debfd835593847.tar.gz |
Merge from origin/emacs-29
920a7d38e96 ; Fix typos
48a62c55465 Add constructor_declaration as java-ts-mode defun
72c45fa9109 Further improvement for non-string values in pcomplete
1ef359095ec ; * etc/NEWS (--with-native-compilation=aot): Tweak wording.
a8eb9dd4006 Fix the case in first-completion revealed by minibuffer-t...
# Conflicts:
# doc/misc/modus-themes.org
# etc/NEWS
Diffstat (limited to 'lisp/simple.el')
-rw-r--r-- | lisp/simple.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index bbcb32cb04f..4b09f41de55 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2228,8 +2228,8 @@ are available: This includes commands marked as specific to the current buffer's modes and commands that have keybindings in the current buffer's active local keymaps. It also includes - several commands, like Cuztomize commands, which should - always be avaliable." + several commands, like Customize commands, which should + always be available." :version "28.1" :group 'completion :type '(choice (const :tag "Don't exclude any commands" nil) @@ -9741,7 +9741,11 @@ the completions is popped up and down." "Move to the first item in the completion list." (interactive) (goto-char (point-min)) - (unless (get-text-property (point) 'mouse-face) + (if (get-text-property (point) 'mouse-face) + (unless (get-text-property (point) 'first-completion) + (let ((inhibit-read-only t)) + (add-text-properties (point) (min (1+ (point)) (point-max)) + '(first-completion t)))) (when-let ((pos (next-single-property-change (point) 'mouse-face))) (goto-char pos)))) |