* bug#17490: 24.3.91; describe-function on some eieio class give (wrong-type-argument char-or-string-p nil)
@ 2014-05-14 9:32 Nicolas Richard
2014-05-14 20:58 ` David Engster
0 siblings, 1 reply; 2+ messages in thread
From: Nicolas Richard @ 2014-05-14 9:32 UTC (permalink / raw)
To: 17490
Hi,
Eval the following snippet (taken from (info "(eieio) Quick Start"),
except that I removed the docstring in the method):
(progn
(defclass record ()
((name :initarg :name
:initform ""
:type string
:custom string
:documentation "The name of a person.")
(birthday :initarg :birthday
:initform "Jan 1, 1970"
:custom string
:type string
:documentation "The person's birthday.")
(phone :initarg :phone
:initform ""
:documentation "Phone number."))
"A single record for tracking people I know.")
(defmethod call-record ((rec record) &optional scriptname)
(message "Dialing the phone for %s" (oref rec name))
(shell-command (concat (or scriptname "dialphone.sh")
" "
(oref rec phone)))))
Then do C-h f record RET. This makes an error. Here's the backtrace:
Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
eieio-help-class(record)
class = record
doc = (nil nil ((rec &optional scriptname)))
counter = 2
type = [":STATIC" ":BEFORE" ":PRIMARY" ":AFTER"]
methods = (call-record)
cur = ((rec &optional scriptname))
--dolist-tail-- = (((rec &optional scriptname)))
debugger-may-continue = t
inhibit-redisplay = nil
inhibit-debugger = t
eieio-help-constructor(record)
ctr = record
def = (lambda (newname &rest slots) "Create a new object with name NAME of class type record" (apply (quote constructor) record newname slots))
location = nil
run-hook-with-args(eieio-help-constructor record)
[no locals]
describe-function-1(record)
[no locals]
describe-function(record)
The error comes from this part of the code:
(insert " " (aref type counter) " "
(prin1-to-string (car cur) (current-buffer))
"\n"
(cdr cur))
(cdr cur) is nil and can't be inserted
FWIW I did this to fix it :
Modified lisp/emacs-lisp/eieio-opt.el
diff --git a/lisp/emacs-lisp/eieio-opt.el b/lisp/emacs-lisp/eieio-opt.el
index a502901..4e0470d 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.
(insert " " (aref type counter) " "
(prin1-to-string (car cur) (current-buffer))
"\n"
- (cdr cur)))
+ (or (cdr cur) " Undocumented")))
(setq counter (1+ counter))))
(insert "\n\n")
(setq methods (cdr methods))))))
In GNU Emacs 24.3.91.1 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
of 2014-05-12 on geodiff-mac3
Windowing system distributor `The X.Org Foundation', version 11.0.11304000
System Description: Gentoo Base System release 2.2
Configured using:
`configure --with-x-toolkit=lucid --enable-checking 'CFLAGS= -O0 -g3''
Important settings:
value of $LANG: fr_FR.UTF-8
locale-coding-system: utf-8-unix
--
Nico.
^ permalink raw reply related [flat|nested] 2+ messages in thread
* bug#17490: 24.3.91; describe-function on some eieio class give (wrong-type-argument char-or-string-p nil)
2014-05-14 9:32 bug#17490: 24.3.91; describe-function on some eieio class give (wrong-type-argument char-or-string-p nil) Nicolas Richard
@ 2014-05-14 20:58 ` David Engster
0 siblings, 0 replies; 2+ messages in thread
From: David Engster @ 2014-05-14 20:58 UTC (permalink / raw)
To: Nicolas Richard; +Cc: 17490-done
Nicolas Richard writes:
> Eval the following snippet (taken from (info "(eieio) Quick Start"),
> except that I removed the docstring in the method):
[...]
> FWIW I did this to fix it :
> --- a/lisp/emacs-lisp/eieio-opt.el
> +++ b/lisp/emacs-lisp/eieio-opt.el
[...]
> - (cdr cur)))
> + (or (cdr cur) " Undocumented")))
Thanks for the report and the fix, which I just pushed to the emacs-24
branch, albeit with a small change: Instead of printing "Undocumented",
it simply prints nothing, since the other EIEIO help functions don't
explicitly denote a lack of documentation either. That might be a
mistake though, since describe-function/variable do that. I guess this
should be changed, but that would belong to trunk.
-David
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2014-05-14 20:58 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2014-05-14 9:32 bug#17490: 24.3.91; describe-function on some eieio class give (wrong-type-argument char-or-string-p nil) Nicolas Richard
2014-05-14 20:58 ` David Engster
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.