463 |
(set-syntax-table emacs-lisp-mode-syntax-table) |
(set-syntax-table emacs-lisp-mode-syntax-table) |
464 |
(narrow-to-region from to) |
(narrow-to-region from to) |
465 |
(goto-char (point-min)) |
(goto-char (point-min)) |
466 |
(while (not (eobp)) |
(condition-case nil |
467 |
(cond |
(while (not (eobp)) |
468 |
((looking-at "\"") (forward-sexp 1)) |
(cond |
469 |
((looking-at "#<") (search-forward ">" nil 'move)) |
((looking-at "\"") (forward-sexp 1)) |
470 |
((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)") |
((looking-at "#<") (search-forward ">" nil 'move)) |
471 |
(let* ((sym (intern-soft (match-string 1))) |
((looking-at "\\(\\(\\sw\\|\\s_\\)+\\)") |
472 |
(type (cond ((fboundp sym) 'help-function) |
(let* ((sym (intern-soft (match-string 1))) |
473 |
((or (memq sym '(t nil)) |
(type (cond ((fboundp sym) 'help-function) |
474 |
(keywordp sym)) |
((or (memq sym '(t nil)) |
475 |
nil) |
(keywordp sym)) |
476 |
((and sym (boundp sym)) |
nil) |
477 |
'help-variable)))) |
((and sym (boundp sym)) |
478 |
(when type (help-xref-button 1 type sym))) |
'help-variable)))) |
479 |
(goto-char (match-end 1))) |
(when type (help-xref-button 1 type sym))) |
480 |
(t (forward-char 1)))))) |
(goto-char (match-end 1))) |
481 |
|
(t (forward-char 1)))) |
482 |
|
(error nil)))) |
483 |
(set-syntax-table ost)))) |
(set-syntax-table ost)))) |
484 |
|
|
485 |
|
|