Lines Matching full:xlate
32 (global-set-key "\C-cG" 'grab-xlate)
33 (global-set-key "\C-cB" 'build-xlate)
35 (defvar xlate-list nil
36 "See grab-xlate and build-xlate.")
38 (defun grab-xlate (beg end)
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)
59 (setq list xlate-list))
