           provider))))
 
 (defun +lookup--symbol-or-region (&optional initial)
-  (cond (initial)
+  (cond ((stringp initial)
+         initial)
         ((use-region-p)
          (buffer-substring-no-properties (region-beginning)
                                          (region-end)))

        ((error "Couldn't find references of '%s'" identifier))))

;;;###autoload
(defun +lookup/documentation (identifier &optional other-window)
  "Show documentation for IDENTIFIER (defaults to symbol at point or selection.

First attempts the :documentation handler specified with `set-lookup-handlers!'

  (interactive
   (list (+lookup--symbol-or-region)
         current-prefix-arg))
  (cond ((+lookup--jump-to :documentation identifier t))

        ((user-error "Couldn't find documentation for '%s'" identifier))))

