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

2015-06-29 09:08:47 +02:00
parent a4760a347e
commit 6689b537c8
1 changed files with 2 additions and 1 deletions
--- 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