diff options
| author | Nicolas Richard | 2014-05-14 22:41:53 +0200 |
|---|---|---|
| committer | David Engster | 2014-05-14 22:41:53 +0200 |
| commit | ec264fbb7cb99b193619db76a8d25a228634ffa3 (patch) | |
| tree | 52d928aed5e8ec8f958b458ba06a52629e3bf839 | |
| parent | 34cba8e885f2ed1c0e9c805ad89b9464e0b5766a (diff) | |
| download | emacs-ec264fbb7cb99b193619db76a8d25a228634ffa3.tar.gz emacs-ec264fbb7cb99b193619db76a8d25a228634ffa3.zip | |
Deal with EIEIO methods without doc strings (Bug#17490).
* emacs-lisp/eieio-opt.el (eieio-help-class): Correctly deal with
methods which do not have a doc string. (Bug#17490)
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio-opt.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c4df237a668..5ec35ffd14f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-05-14 Nicolas Richard <theonewiththeevillook@yahoo.fr> | ||
| 2 | |||
| 3 | * emacs-lisp/eieio-opt.el (eieio-help-class): Correctly deal with | ||
| 4 | methods which do not have a doc string. (Bug#17490) | ||
| 5 | |||
| 1 | 2014-05-14 Stephen Berman <stephen.berman@gmx.net> | 6 | 2014-05-14 Stephen Berman <stephen.berman@gmx.net> |
| 2 | Stefan Monnier <monnier@iro.umontreal.ca> | 7 | Stefan Monnier <monnier@iro.umontreal.ca> |
| 3 | 8 | ||
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el index a502901a469..ca9b91bed58 100644 --- a/lisp/emacs-lisp/eieio-opt.el +++ b/lisp/emacs-lisp/eieio-opt.el | |||
| @@ -141,7 +141,7 @@ If CLASS is actually an object, then also display current values of that object. | |||
| 141 | (insert " " (aref type counter) " " | 141 | (insert " " (aref type counter) " " |
| 142 | (prin1-to-string (car cur) (current-buffer)) | 142 | (prin1-to-string (car cur) (current-buffer)) |
| 143 | "\n" | 143 | "\n" |
| 144 | (cdr cur))) | 144 | (or (cdr cur) ""))) |
| 145 | (setq counter (1+ counter)))) | 145 | (setq counter (1+ counter)))) |
| 146 | (insert "\n\n") | 146 | (insert "\n\n") |
| 147 | (setq methods (cdr methods)))))) | 147 | (setq methods (cdr methods)))))) |