commit - 36267e0bf9ca63a9bf33f5fe6fb72a7509b7c278
commit + 123035ffd1faf68a00608dbc22ea736938fbe580
blob - bc5ba2f5af0fa7bed61e2abc9527cfefdff622f7
blob + 97cf1d76b5ff8f7b8b9c860636f45149c3a8eb51
--- vmd.el
+++ vmd.el
(shell-command (mapconcat #'shell-quote-argument (cons vmd-vmctl-cmd args) " ")))
(defun vmd-console (vm)
- "Open a console for the virtual machine VM at point."
+ "Open a console for the VM at point."
(interactive (list (vmd--vm-at-point)) vmd-mode)
(funcall vmd-console-function
(concat "vmd console " vm)
(list vmd-vmctl-cmd "console" vm))))
(defun vmd-pause (vm)
- "Pause the virtual machine VM at point."
+ "Pause the VM at point."
(interactive (list (vmd--vm-at-point)) vmd-mode)
(vmd--vmctl "pause" vm)
(vmd--update-table))
(defun vmd-start (vm)
- "Start the virtual machine VM at point."
+ "Start the VM at point."
(interactive (list (vmd--vm-at-point)) vmd-mode)
(vmd--vmctl "start" vm)
(vmd--update-table))
(defun vmd-stop (vm)
- "Stop the virtual machine VM at point."
+ "Stop the VM at point."
(interactive (list (vmd--vm-at-point)) vmd-mode)
(vmd--vmctl "stop" vm)
(vmd--update-table))
(defun vmd-unpause (vm)
- "Unpause the virtual machine VM at point."
+ "Unpause the VM at point."
(interactive (list (vmd--vm-at-point)) vmd-mode)
(vmd--vmctl "unpause" vm)
(vmd--update-table))