Lines Matching full:libxmldoc
28 ;; (autoload 'libxmldoc-lookup-symbol "~/elisp/libxml-doc"
31 ;; (autoload 'libxmldoc-lookup-symbol "libxml-doc"
34 ;; 2. adapt libxmldoc-root:
35 ;; i.e. (setq libxmldoc-root "~/libxml2-2.0.0/doc/html")
38 ;; html-functions are excluded (C-h v libxmldoc-filter-regexp)
40 ;; 4. consider customizing libxmldoc-browse-url (lynx by default);
44 ;; call M-x libxmldoc-lookup-symbol: this will prompt with completion and
47 ;; libxmldoc-lookup-symbol noninteractively and pass the symbol.
61 ;; Wed Jun 21 01:45:29 2000: added libxmldoc-lookup-symbol-at-point
62 ;; Wed Jun 21 23:37:58 2000: libxmldoc-lookup-symbol now uses
65 ;; Thu Jun 22 21:03:41 2000: libxmldoc-browse-url can be customized
72 ;; complete rewrite of libxmldoc-lookup-symbol
78 ;; libxmldoc-filter-regexp is non-nil.
91 ;; - use command-execute for libxmldoc-browse-url
92 ;; - keep (match-string 1) in a variable (libxmldoc-get-list-of-symbols)
101 (defvar libxmldoc-root "~/src/libxml2-2.3.8/doc/html"
103 (defvar libxmldoc-filter-regexp "^html\\|^\\*\\|^[A-Z_]+"
114 (defvar libxmldoc-browse-url 'browse-url-lynx-emacs
117 (defvar libxmldoc-symbol-history nil
119 (defvar libxmldoc-symbols nil
124 (defun libxmldoc-lookup-symbol(&optional symbol)
126 ;; setting case-fold-search is now done in libxmldoc-string-match-cs
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
147 (if (or symbol (null libxmldoc-filter-regexp))
150 (not (libxmldoc-string-match-cs libxmldoc-filter-regexp
153 'libxmldoc-symbol-history))
157 (apply libxmldoc-browse-url
158 (list (cdr (assoc symbol libxmldoc-symbols)))))
161 ;; (null libxmldoc-filter-regexp))
162 ;; libxmldoc-symbols
166 ;; libxmldoc-filter-regexp
169 ;; libxmldoc-symbols))
174 (defun libxmldoc-string-match-cs(regexp str)
180 (defun libxmldoc-get-list-of-symbols()
184 libxmldoc-root t
185 (concat "^" (if (file-exists-p (concat libxmldoc-root
204 (setq uri (concat "file://" (expand-file-name libxmldoc-root)
216 (provide 'libxmldoc)
