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