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