[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/debug.el

[Lute Kamstra]

Index: emacs/lisp/emacs-lisp/debug.el
diff -c emacs/lisp/emacs-lisp/debug.el:1.76 emacs/lisp/emacs-lisp/debug.el:1.77
*** emacs/lisp/emacs-lisp/debug.el:1.76 Sun Mar 13 20:53:14 2005
--- emacs/lisp/emacs-lisp/debug.el      Mon Mar 14 17:44:56 2005
***************
*** 302,308 ****
    (debugger-make-xrefs))
  
  (defun debugger-make-xrefs (&optional buffer)
!   "Attach cross-references to symbol names in the `*Backtrace*' buffer."
    (interactive "b")
    (save-excursion
      (set-buffer (or buffer (current-buffer)))
--- 302,308 ----
    (debugger-make-xrefs))
  
  (defun debugger-make-xrefs (&optional buffer)
!   "Attach cross-references to function names in the `*Backtrace*' buffer."
    (interactive "b")
    (save-excursion
      (set-buffer (or buffer (current-buffer)))
***************
*** 353,358 ****
--- 353,359 ----
        ;; Scan the new part of the backtrace, inserting xrefs.
        (goto-char (point-min))
        (while (progn
+              (goto-char (+ (point) 2))
               (skip-syntax-forward "^w_")
               (not (eobp)))
        (let* ((beg (point))
***************
*** 364,371 ****
            (goto-char beg)
            ;; help-xref-button needs to operate on something matched
            ;; by a regexp, so set that up for it.
!           (re-search-forward "\\(\\(\\sw\\|\\s_\\)+\\)")
!           (help-xref-button 1 'help-function-def sym file)))
        (forward-line 1))
        (widen))
      (setq debugger-previous-backtrace (buffer-string))))
--- 365,372 ----
            (goto-char beg)
            ;; help-xref-button needs to operate on something matched
            ;; by a regexp, so set that up for it.
!           (re-search-forward "\\(\\sw\\|\\s_\\)+")
!           (help-xref-button 0 'help-function-def sym file)))
        (forward-line 1))
        (widen))
      (setq debugger-previous-backtrace (buffer-string))))