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

This commit is contained in:
Nicolas Richard 2015-06-29 09:08:47 +02:00
parent a4760a347e
commit 6689b537c8

View file

@ -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