From: Lute Kamstra Date: Mon, 14 Mar 2005 17:46:09 +0000 (+0000) Subject: (debugger-make-xrefs): Docstring fix. Ignore a `*' at the beginning X-Git-Tag: ttn-vms-21-2-B4~1809 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dc64809a6f2408457b084cd7c89c463b64567de5;p=emacs.git (debugger-make-xrefs): Docstring fix. Ignore a `*' at the beginning of a line. --- 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))))