only crosslink exported symbols

This commit is contained in:
Noam Postavsky 2013-11-28 22:42:06 -05:00
parent 21914cfe32
commit f86529c96f

View File

@ -77,14 +77,10 @@
#'(lambda (match) #'(lambda (match)
(let* ((name (downcase (match-string 1 match))) (let* ((name (downcase (match-string 1 match)))
(sym (intern name))) (sym (intern name)))
(if (and (or (boundp sym) (if (memq sym yas--exported-syms)
(fboundp sym)) (format "[[#%s][=%s=]]" name name)
(save-match-data
(string-match "^yas-" name)))
(format "[[#%s][=%s=]]"
name name)
(format "=%s=" name)))) (format "=%s=" name))))
body)) body t))
;; output the paragraph ;; output the paragraph
;; ;;
(concat-lines heading (concat-lines heading