On 1/15/13 12:34 PM, Achim Gratz wrote:
Achim Gratz writes:
+ (concat invocation-directory invocation-name)
Better make that
+ (expand-file-name invocation-name invocation-directory)
FWIW here's what I use:
(defun run-emacs (command)
"Run the Emacs COMMAND in the background via `shell-command'."
(interactive
(let ((program (expand-file-name invocation-name invocation-directory)))
(list (read-string "Emacs command: "
(cons (concat program
(if (cdr command-line-args)
(mapconcat 'identity
(cdr command-line-args)
" ")
" -Q")
" &")
(1+ (length program)))))))
(shell-command command))
--
Kevin Rodgers
Denver, Colorado, USA