diff options
| author | Nicolas Richard | 2015-06-29 09:08:47 +0200 |
|---|---|---|
| committer | Nicolas Richard | 2015-06-29 09:14:58 +0200 |
| commit | 6689b537c84f27eb2dae70a2422f2da99b57aaab (patch) | |
| tree | 0e2e27434a25e8d1371f87312cf4f46f1ccaf0eb | |
| parent | a4760a347ebd61e173e7aa5c229159f7c5ac227a (diff) | |
| download | emacs-6689b537c84f27eb2dae70a2422f2da99b57aaab.tar.gz emacs-6689b537c84f27eb2dae70a2422f2da99b57aaab.zip | |
* package.el (describe-package): Use symbol-at-point as additional guess
| -rw-r--r-- | lisp/emacs-lisp/package.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 88dd6ac70f3..9f563457748 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -2104,7 +2104,8 @@ will be deleted." | |||
| 2104 | (defun describe-package (package) | 2104 | (defun describe-package (package) |
| 2105 | "Display the full documentation of PACKAGE (a symbol)." | 2105 | "Display the full documentation of PACKAGE (a symbol)." |
| 2106 | (interactive | 2106 | (interactive |
| 2107 | (let* ((guess (function-called-at-point))) | 2107 | (let* ((guess (or (function-called-at-point) |
| 2108 | (symbol-at-point)))) | ||
| 2108 | (require 'finder-inf nil t) | 2109 | (require 'finder-inf nil t) |
| 2109 | ;; Load the package list if necessary (but don't activate them). | 2110 | ;; Load the package list if necessary (but don't activate them). |
| 2110 | (unless package--initialized | 2111 | (unless package--initialized |