diff options
| author | Sam Steingold | 2001-11-09 17:07:24 +0000 |
|---|---|---|
| committer | Sam Steingold | 2001-11-09 17:07:24 +0000 |
| commit | 34decfdb951b0b8a2cf417aa92be9d36c709e78c (patch) | |
| tree | 75a9da23cdb83240ee405d9f01309dad17ecb6da /lisp/emacs-lisp/debug.el | |
| parent | 0d8305851de60ddd0a6c65ebb37faafe2be017c8 (diff) | |
| download | emacs-34decfdb951b0b8a2cf417aa92be9d36c709e78c.tar.gz emacs-34decfdb951b0b8a2cf417aa92be9d36c709e78c.zip | |
(debugger-make-xrefs): Add buttons to all symbols.
Diffstat (limited to 'lisp/emacs-lisp/debug.el')
| -rw-r--r-- | lisp/emacs-lisp/debug.el | 2 |
1 files changed, 1 insertions, 1 deletions
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." | |||
| 277 | (set-buffer (or buffer (current-buffer))) | 277 | (set-buffer (or buffer (current-buffer))) |
| 278 | (goto-char (point-min)) | 278 | (goto-char (point-min)) |
| 279 | (let ((buffer-read-only nil)) | 279 | (let ((buffer-read-only nil)) |
| 280 | (while (re-search-forward "^[* ] (?\\(\\(\\sw\\|\\s_\\)+\\)" nil t) | 280 | (while (re-search-forward "\\(\\(\\sw\\|\\s_\\)+\\)" nil t) |
| 281 | (let* ((sym (intern-soft (match-string 1))) | 281 | (let* ((sym (intern-soft (match-string 1))) |
| 282 | (file (symbol-file sym))) | 282 | (file (symbol-file sym))) |
| 283 | (when file (help-xref-button 1 'help-function-def sym file))))))) | 283 | (when file (help-xref-button 1 'help-function-def sym file))))))) |