mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

For the sake of consistency, always prompt

Browse source 
Now that `thing-at-point-things' is more comprehensive, it seems
unlikely unlikely that the list of things would ever be only a single
item; but if that did happen it would probably be quite jarring to not
see the usual prompt.
This commit is contained in:
Phil Sainty 2025-03-29 23:47:38 +13:00
parent 9587301562
commit 0c8f4e141c
1 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lisp/thingatpt.el
View file

@ -909,9 +909,8 @@ validity."
(defun read-thing-at-point-thing (&optional prompt all narrow)
"Return a \"thing\" suitable for `thing-at-point'.
Test the known \"things\" to see which are valid. If only one thing is
valid at point, return its symbol. If more than one thing is valid,
PROMPT the user to choose from the valid options.
Test the known \"things\" to see which are valid, and PROMPT the user
to choose from the valid options.
If ALL is non-nil, choose from all known \"things\" without testing
their validity.
@ -922,19 +921,20 @@ context. (This is currently only `buffer', which means `point-min' to
(let ((things (thing-at-point-things all)))
(when narrow
(setq things (delq 'buffer things)))
(cond ((null things) (user-error "No thing at point"))
((eql 1 (length things)) (car things))
(t (let ((default (cond ((and (use-region-p) (memq 'region things))
'region)
((memq 'sexp things)
'sexp)
(t
(car things)))))
(intern (completing-read
(format (or prompt "Thing (default %s): ")
default)
things nil :require-match nil nil
(symbol-name default))))))))
(when (null things)
(user-error "No thing at point"))
;; Try to offer a useful default.
(let ((default (cond ((and (use-region-p) (memq 'region things))
'region)
((memq 'sexp things)
'sexp)
(t
(car things)))))
(intern (completing-read
(format (or prompt "Thing (default %s): ")
default)
things nil :require-match nil nil
(symbol-name default))))))
;;;###autoload
(defun narrow-to-thing-at-point (thing)