478 |
(and (symbolp obj) (boundp obj) obj)))) |
(and (symbolp obj) (boundp obj) obj)))) |
479 |
(error nil)) |
(error nil)) |
480 |
(let* ((str (find-tag-default)) |
(let* ((str (find-tag-default)) |
481 |
(obj (if str (intern str)))) |
(sym (if str (intern-soft str)))) |
482 |
(and (symbolp obj) (boundp obj) obj)) |
(if (and sym (boundp sym)) |
483 |
|
sym |
484 |
|
(save-match-data |
485 |
|
(when (and str (string-match "\\`\\W*\\(.*?\\)\\W*\\'" str)) |
486 |
|
(setq sym (intern-soft (match-string 1 str))) |
487 |
|
(and (boundp sym) sym))))) |
488 |
0)) |
0)) |
489 |
|
|
490 |
;;;###autoload |
;;;###autoload |