Lines Matching defs:list
8 ;; notice, this list of conditions and the following disclaimer.
10 ;; notice, this list of conditions and the following disclaimer in the
35 (defvar xlate-list nil
39 "Grab all of the defined names in the region and save them in xlate-list."
42 (setq xlate-list nil)
47 (setq xlate-list (cons (buffer-substring (match-beginning 1)
49 xlate-list)))
53 (setq xlate-list (nreverse xlate-list)))
55 (defun build-xlate (&optional list)
58 (or list
59 (setq list xlate-list))
63 (while list
64 (insert "\t{ " (car list) ",\n")
68 (insert "\"" (car list) "\"")
73 (setq list (cdr list)))
