Mercurial > emacs
changeset 60600:4cc59db6dfeb
(debugger-make-xrefs): Docstring fix. Ignore a `*' at the beginning
of a line.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Mon, 14 Mar 2005 17:44:56 +0000 |
| parents | 2ee584622d07 |
| children | 8f0fcece519d |
| files | lisp/emacs-lisp/debug.el |
| diffstat | 1 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/debug.el Mon Mar 14 14:07:38 2005 +0000 +++ b/lisp/emacs-lisp/debug.el Mon Mar 14 17:44:56 2005 +0000 @@ -302,7 +302,7 @@ (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 @@ ;; 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 @@ (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))))