Lines Matching refs:symbol
28 ;; (autoload 'libxmldoc-lookup-symbol "~/elisp/libxml-doc"
31 ;; (autoload 'libxmldoc-lookup-symbol "libxml-doc"
44 ;; call M-x libxmldoc-lookup-symbol: this will prompt with completion and
46 ;; point matches a symbol, that is used instead. You can also call
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
63 ;; (thing-at-point 'word) if it matches a symbol
68 ;; - Changed the 'word match from thing-at-point into 'symbol.
72 ;; complete rewrite of libxmldoc-lookup-symbol
75 ;; - filtering is only used when no symbol is passed and
76 ;; thing-at-point does not match a symbol and "*" + thing-at-point
77 ;; does not match a symbol (this is used to catch callbacks) and
105 completion and no symbol is specified.
117 (defvar libxmldoc-symbol-history nil
124 (defun libxmldoc-lookup-symbol(&optional symbol)
125 "Look up xml-symbol." (interactive)
128 ;; Build up a symbol list if necessary
133 (symbol ;; symbol is specified as argument
134 (if (not (assoc symbol libxmldoc-symbols))
135 (setq symbol nil)))
136 ((assoc (thing-at-point 'symbol) libxmldoc-symbols)
137 (setq symbol (thing-at-point 'symbol)))
140 ((assoc (concat "*" (thing-at-point 'symbol)) libxmldoc-symbols)
141 (setq symbol (concat "*" (thing-at-point 'symbol))))
145 (setq symbol (completing-read
147 (if (or symbol (null libxmldoc-filter-regexp))
152 t symbol
153 'libxmldoc-symbol-history))
158 (list (cdr (assoc symbol libxmldoc-symbols)))))
160 ;; (if (or symbol