diff options
| author | Juanma Barranquero | 2011-04-05 00:08:01 +0200 |
|---|---|---|
| committer | Juanma Barranquero | 2011-04-05 00:08:01 +0200 |
| commit | 8d17e7ca1fa68263a45db1e38506875a387ccc24 (patch) | |
| tree | b6e6aebabe564ec18e002ac749b173b7631fc7a5 | |
| parent | d451951a53a19d2a484cdf94b055c461b64be2c9 (diff) | |
| download | emacs-8d17e7ca1fa68263a45db1e38506875a387ccc24.tar.gz emacs-8d17e7ca1fa68263a45db1e38506875a387ccc24.zip | |
lisp/help-fns.el (describe-variable): Fix completion.
http://lists.gnu.org/archive/html/emacs-devel/2011-04/msg00112.html
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/help-fns.el | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 142e6bc57e0..8c978e2b33c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,11 @@ | |||
| 1 | 2011-04-04 Juanma Barranquero <lekktu@gmail.com> | 1 | 2011-04-04 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 2 | ||
| 3 | * help-fns.el (describe-variable): Complete all variables having | ||
| 4 | documentation, including keywords. | ||
| 5 | http://lists.gnu.org/archive/html/emacs-devel/2011-04/msg00112.html | ||
| 6 | |||
| 7 | 2011-04-04 Juanma Barranquero <lekktu@gmail.com> | ||
| 8 | |||
| 3 | Convert to lexical-binding. | 9 | Convert to lexical-binding. |
| 4 | 10 | ||
| 5 | * bs.el (bs-refresh, bs-sort-buffer-interns-are-last) | 11 | * bs.el (bs-refresh, bs-sort-buffer-interns-are-last) |
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 71316c102fc..0876b34d3ed 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -635,8 +635,8 @@ it is displayed along with the global value." | |||
| 635 | "Describe variable: ") | 635 | "Describe variable: ") |
| 636 | obarray | 636 | obarray |
| 637 | (lambda (vv) | 637 | (lambda (vv) |
| 638 | (or (special-variable-p vv) | 638 | (or (get vv 'variable-documentation) |
| 639 | (get vv 'variable-documentation))) | 639 | (not (keywordp vv)))) |
| 640 | t nil nil | 640 | t nil nil |
| 641 | (if (symbolp v) (symbol-name v)))) | 641 | (if (symbolp v) (symbol-name v)))) |
| 642 | (list (if (equal val "") | 642 | (list (if (equal val "") |