(debugger-make-xrefs): Docstring fix. Ignore a `*' at the beginning

of a line.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 028598c71cff0979e51816c5fb4f7234972750c1..61c32c37b09ba805899083f7455b7c5a022353c6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2005-03-14  Lute Kamstra  <lute@gnu.org>
 
+       * emacs-lisp/debug.el (debugger-make-xrefs): Docstring fix.
+       Ignore a `*' at the beginning of a line.
+
        * subr.el (macro-declaration-function): Move to
        emacs-lisp/byte-run.el.
        * emacs-lisp/byte-run.el (macro-declaration-function): Move from

diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el
index 2be217a41c6711c7a564f0095ffb5fadc7efdf4a..e97e9012fc12f3c3413aca4f41f45614ec9c5e24 100644 (file)
--- a/lisp/emacs-lisp/debug.el
+++ b/lisp/emacs-lisp/debug.el
@@ -302,7 +302,7 @@ That buffer should be current already."
   (debugger-make-xrefs))
 
 (defun debugger-make-xrefs (&optional buffer)
-  "Attach cross-references to symbol names in the `*Backtrace*' buffer."
+  "Attach cross-references to function names in the `*Backtrace*' buffer."
   (interactive "b")
   (save-excursion
     (set-buffer (or buffer (current-buffer)))
@@ -353,6 +353,7 @@ That buffer should be current already."
       ;; 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,8 +365,8 @@ That buffer should be current already."
            (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)))
+           (re-search-forward "\\(\\sw\\|\\s_\\)+")
+           (help-xref-button 0 'help-function-def sym file)))
        (forward-line 1))
       (widen))
     (setq debugger-previous-backtrace (buffer-string))))