7 lines
No EOL
183 B
EmacsLisp
7 lines
No EOL
183 B
EmacsLisp
(setq command-switch-alist '(
|
|
("-exec" . cmdline-exec)))
|
|
|
|
(defun cmdline-exec (name)
|
|
(eval (car (read-from-string (car command-line-args-left))))
|
|
)
|
|
|