Re: Debug on error and Emacs client

[Lennart Borgman (gmail)]

Juanma Barranquero wrote:
> On 5/16/07, Lennart Borgman (gmail) <address@hidden> wrote:
>
> > Would it not be easier if you get a normal backtrace if debug-on-error
> > is t?
>
> Perhaps. OTOH, it is an error in an emacsclient-sent string to
> evaluate an Error *in* Emacs?

Eh, you lost me on this one ;-) -- I do not understand the context. Can 
you please explain?


> > Something like this can be used in server.el, server-process-filter:
>
> Can you please send it as a patch? Otherwise it's kind of difficult to
> see what's changing.

It is not much, just two or three new lines actually. (The line numbers 
below are not correct.)

*** c:/DOCUME~1/LENNAR~1/LOCALS~1/Temp/ediff972RQU	2007-05-16 
13:55:37.203125000 +0200
--- c:/emacs/p/070515/emacs/lisp/server.el	2007-05-16 13:32:13.328125000 
+0200
***************
*** 469,477 ****
                 (setq arg (decode-coding-string arg coding-system)))
               (if eval
                   (let* (errorp
!                         (v (condition-case errobj
                                 (eval (car (read-from-string arg)))
!                              (error (setq errorp t) errobj))))
                     (when v
                       (with-temp-buffer
                         (let ((standard-output (current-buffer)))
--- 482,493 ----
                 (setq arg (decode-coding-string arg coding-system)))
               (if eval
                   (let* (errorp
!                         (v
!                          (if debug-on-error
!                              (eval (car (read-from-string arg)))
!                            (condition-case errobj
                                 (eval (car (read-from-string arg)))
!                              (error (setq errorp t) errobj)))))
                     (when v
                       (with-temp-buffer
                         (let ((standard-output (current-buffer)))