diff options
| author | Lute Kamstra <lute@gnu.org> | 2005-03-14 17:46:09 +0000 |
|---|---|---|
| committer | Lute Kamstra <lute@gnu.org> | 2005-03-14 17:46:09 +0000 |
| commit | dc64809a6f2408457b084cd7c89c463b64567de5 (patch) | |
| tree | aa321791ebe547c4dabae018690b3f0a4f233022 /lisp | |
| parent | adf9acf885648b52b68c50536d8ce047794eb5ce (diff) | |
| download | emacs-dc64809a6f2408457b084cd7c89c463b64567de5.tar.gz | |
(debugger-make-xrefs): Docstring fix. Ignore a `*' at the beginning
of a line.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | 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 <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 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)))) |