mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

(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

9
lisp/ChangeLog
View file

@ -1,9 +1,14 @@
2001-11-09 Sam Steingold <sds@gnu.org>
* emacs-lisp/debug.el (debugger-make-xrefs):
Add buttons to all symbols.
2001-11-09 Andre Spiegel <spiegel@gnu.org> 2001-11-09 Andre Spiegel <spiegel@gnu.org>
* vc.el: Add John David Smith to credits. * vc.el: Add John David Smith to credits.
Suggested by Kalle Olavi Niemitalo <kon@iki.fi>: Suggested by Kalle Olavi Niemitalo <kon@iki.fi>:
* vc-hooks.el (vc-error-occured): Backquotified. * vc-hooks.el (vc-error-occured): Backquotified.
(vc-file-prop-obarray): Use prime length for better efficiency. (vc-file-prop-obarray): Use prime length for better efficiency.

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

@ -277,7 +277,7 @@ That buffer should be current already."
(set-buffer (or buffer (current-buffer))) (set-buffer (or buffer (current-buffer)))
(goto-char (point-min)) (goto-char (point-min))
(let ((buffer-read-only nil)) (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))) (let* ((sym (intern-soft (match-string 1)))
(file (symbol-file sym))) (file (symbol-file sym)))
(when file (help-xref-button 1 'help-function-def sym file))))))) (when file (help-xref-button 1 'help-function-def sym file)))))))