Re: eval-buffer with debug-on-error t

[Richard M. Stallman]

    I have debug-on-error set to t. When I do an eval-buffer and there is an 
    undefined function:

       (this-is-no-fun)

    I get the error "Wrong type argument: stringp, nul

Does this fix it?  (I installed a more elaborate patch.)

*** debug.el    05 Jul 2005 00:45:47 -0400      1.90
--- debug.el    09 Jul 2005 00:05:50 -0400      
***************
*** 315,322 ****
      (while (re-search-forward "^  eval-buffer(" nil t)
        (end-of-line)
        (insert (format "\n  ;;; Reading at buffer position %d"
!                     (with-current-buffer (nth 2 (backtrace-frame 
(debugger-frame-number)))
!                       (point))))))
    (debugger-make-xrefs))
  
  (defun debugger-make-xrefs (&optional buffer)
--- 315,325 ----
      (while (re-search-forward "^  eval-buffer(" nil t)
        (end-of-line)
        (insert (format "\n  ;;; Reading at buffer position %d"
!                     (with-current-buffer
!                         (or (nth 2 (backtrace-frame (debugger-frame-number)))
!                             debugger-old-buffer)
!                       (point))))
!       ))
    (debugger-make-xrefs))
  
  (defun debugger-make-xrefs (&optional buffer)