bug#17490: 24.3.91; describe-function on some eieio class give (wrong-type-argument char-or-string-p nil)

[Nicolas Richard]

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.