From: Sam Steingold Date: Fri, 9 Nov 2001 17:07:24 +0000 (+0000) Subject: (debugger-make-xrefs): Add buttons to all symbols. X-Git-Tag: ttn-vms-21-2-B4~18722 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=34decfdb951b0b8a2cf417aa92be9d36c709e78c;p=emacs.git (debugger-make-xrefs): Add buttons to all symbols. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ffbaaa6944b..28d65b6fced 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,9 +1,14 @@ +2001-11-09 Sam Steingold + + * emacs-lisp/debug.el (debugger-make-xrefs): + Add buttons to all symbols. + 2001-11-09 Andre Spiegel * vc.el: Add John David Smith to credits. - + Suggested by Kalle Olavi Niemitalo : - + * vc-hooks.el (vc-error-occured): Backquotified. (vc-file-prop-obarray): Use prime length for better efficiency. diff --git a/lisp/emacs-lisp/debug.el b/lisp/emacs-lisp/debug.el index 49303ff6293..15158440945 100644 --- a/lisp/emacs-lisp/debug.el +++ b/lisp/emacs-lisp/debug.el @@ -277,7 +277,7 @@ That buffer should be current already." (set-buffer (or buffer (current-buffer))) (goto-char (point-min)) (let ((buffer-read-only nil)) - (while (re-search-forward "^[* ] (?\\(\\(\\sw\\|\\s_\\)+\\)" nil t) + (while (re-search-forward "\\(\\(\\sw\\|\\s_\\)+\\)" nil t) (let* ((sym (intern-soft (match-string 1))) (file (symbol-file sym))) (when file (help-xref-button 1 'help-function-def sym file)))))))