diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-11-20 21:59:02 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-11-20 21:59:02 +0000 |
| commit | 4305547f3c9107a16b09fefa9eddc39195be2d39 (patch) | |
| tree | 126d6baca7e9426aff8c4d722a7f93be3224b819 /lisp/help.el | |
| parent | 1caeb666faef5bfcc4e6ae3c69dae4b66613a7ba (diff) | |
| download | emacs-4305547f3c9107a16b09fefa9eddc39195be2d39.tar.gz | |
(describe-variable): Don't use symbol-name if v isn't symbol.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index a7d0155c89c..2ab2c9cb0a1 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -633,7 +633,8 @@ Returns the documentation as a string, also." (setq val (completing-read (if (symbolp v) (format "Describe variable (default %s): " v) "Describe variable: ") - obarray 'boundp t nil nil (symbol-name v))) + obarray 'boundp t nil nil + (if (symbolp v) (symbol-name v)))) (list (if (equal val "") v (intern val))))) (if (symbolp variable) |