Re: Fix C-M-x on defcustoms

[Stefan Monnier <monnier@IRO.UMontreal.CA>]

>>>>> "Jambunathan" == Jambunathan K <kjambunathan@gmail.com> writes:

> 1. M-x find-library RET vc-dir.el
> 2. C-s defcustom
> 3. C-M-x.  Note the following backtrace.

> ,----
> | Debugger entered--Lisp error: (invalid-function (\, (lambda nil nil)))
> |   (\, (lambda nil nil))()
> |   funcall((\, (lambda nil nil)))
> |   eval((funcall (function (\, (lambda nil nil)))) t)
> |   eval-defun-1((custom-declare-variable (quote vc-dir-mode-hook) (\`
> | (funcall (function (\, (lambda nil nil))))) "Normal hook run by
> | vc-dir-mode'.\nSee `run-hooks'." :type (quote hook) :group (quote vc)))
> |   eval-defun-2()
> |   eval-defun(nil)
> |   call-interactively(eval-defun nil nil)
> `----

> It looks to me that it is an issue of orphaned "comma".

No, it was just a bug in eval-defun-1 which assumed that the second arg
to custom-declare-variable is always a quoted constant expression,
whereas it can really be any expression returning an expression.

Andreas beat me to the fix,


        Stefan