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

(debugger-make-xrefs): Add buttons to all symbols.

Browse source
This commit is contained in:
Sam Steingold 2001-11-09 17:07:24 +00:00
parent 0d8305851d
commit 34decfdb95
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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