Skip to content

Instantly share code, notes, and snippets.

@hidsh
Created December 2, 2011 10:41
Show Gist options
  • Save hidsh/1422759 to your computer and use it in GitHub Desktop.
Save hidsh/1422759 to your computer and use it in GitHub Desktop.
xyzzy: open command prompt using ckw "M-x c"
(defun c ()
(interactive)
(let ((cmd "C:\\Users\\g\\Dropbox\\apps\\ckw-mod-0.9.0-d2\\ckw-mod-0.9.0-d2\\ckw.exe")
(path (get-buffer-file-name))
(opt ""))
(when path
(setq opt (concat " -cd \"" (directory-namestring path) "\"")))
(call-process (concat cmd opt) :wait nil)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment