www.nico.schottelius.org/software/gpm/browse_source/gpm-1.99.7/contrib/emacs/exec.el

7 lines
183 B
EmacsLisp
Raw Normal View History

(setq command-switch-alist '(
("-exec" . cmdline-exec)))
(defun cmdline-exec (name)
(eval (car (read-from-string (car command-line-args-left))))
)