Lines Matching defs:symbols
1 ;;; libxml-doc.el - look up libxml-symbols and start browser on documentation
29 ;; "Look up libxml-symbols and start browser on documentation." t)
32 ;; "Look up libxml-symbols and start browser on documentation." t)
74 ;; - Now keeps the list of symbols between calls to speed things up.
92 ;; - keep (match-string 1) in a variable (libxmldoc-get-list-of-symbols)
104 "Symbols that match this regular expression will be excluded when doing
118 "History for looking up libxml-symbols.")
119 (defvar libxmldoc-symbols nil
120 "The list of libxml-symbols.")
129 (if (null libxmldoc-symbols)
130 (setq libxmldoc-symbols (libxmldoc-get-list-of-symbols)))
134 (if (not (assoc symbol libxmldoc-symbols))
136 ((assoc (thing-at-point 'symbol) libxmldoc-symbols)
140 ((assoc (concat "*" (thing-at-point 'symbol)) libxmldoc-symbols)
146 "Libxml: " libxmldoc-symbols
158 (list (cdr (assoc symbol libxmldoc-symbols)))))
162 ;; libxmldoc-symbols
169 ;; libxmldoc-symbols))
180 (defun libxmldoc-get-list-of-symbols()
190 (symbols ())
193 (message "collecting libxml-symbols...")
207 (error "regexp error while getting libxml-symbols.."))
210 (add-to-list 'symbols (cons (match-string 1) uri))))
211 ;; (setq symbols (cons (cons (match-string 1) uri) symbols)))
214 symbols))
