/[emacs]/emacs/lisp/emacs-lisp/debug.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/debug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.46 by sds, Wed Oct 31 19:32:26 2001 UTC revision 1.47 by sds, Fri Nov 9 17:07:24 2001 UTC
# Line 277  That buffer should be current already." Line 277  That buffer should be current already."
277      (set-buffer (or buffer (current-buffer)))      (set-buffer (or buffer (current-buffer)))
278      (goto-char (point-min))      (goto-char (point-min))
279      (let ((buffer-read-only nil))      (let ((buffer-read-only nil))
280        (while (re-search-forward "^[* ] (?\\(\\(\\sw\\|\\s_\\)+\\)" nil t)        (while (re-search-forward "\\(\\(\\sw\\|\\s_\\)+\\)" nil t)
281          (let* ((sym (intern-soft (match-string 1)))          (let* ((sym (intern-soft (match-string 1)))
282                 (file (symbol-file sym)))                 (file (symbol-file sym)))
283            (when file (help-xref-button 1 'help-function-def sym file)))))))            (when file (help-xref-button 1 'help-function-def sym file)))))))

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26