Lines Matching full: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))