For the sake of consistency, always promptscratch/narrow-to-thing-at-point

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.

1 files changed, 16 insertions, 16 deletions

diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 11ec9f69ba3..3efe1b83c6f 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -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)