* package.el (describe-package): Use symbol-at-point as additional guess

diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 88dd6ac70f3e3a4a07a9bd006560f7d82f77284d..9f5634577482188a986272cb86ca542d346436d6 100644 (file)
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -2104,7 +2104,8 @@ will be deleted."
 (defun describe-package (package)
   "Display the full documentation of PACKAGE (a symbol)."
   (interactive
-   (let* ((guess (function-called-at-point)))
+   (let* ((guess (or (function-called-at-point)
+                     (symbol-at-point))))
      (require 'finder-inf nil t)
      ;; Load the package list if necessary (but don't activate them).
      (unless package--initialized