From dc64809a6f2408457b084cd7c89c463b64567de5 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Mon, 14 Mar 2005 17:46:09 +0000 Subject: [PATCH] (debugger-make-xrefs): Docstring fix. Ignore a `*' at the beginning of a line. --- lisp/ChangeLog | 3 +++ lisp/emacs-lisp/debug.el | 7 ++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 028598c71cf..61c32c37b09 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2005-03-14 Lute Kamstra + * 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 2be217a41c6..e97e9012fc1 100644 --- 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)))) -- 2.39.2