procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
of a line.
This commit is contained in:
Lute Kamstra 2005-03-14 17:46:09 +00:00
parent adf9acf885
commit dc64809a6f
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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

7
lisp/emacs-lisp/debug.el
View file

@ -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))))