a guest Oct 20th, 2017 73 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- (defun test-mode (command output-file)
- "Test this code in a buffer."
- (setq old-buffer (current-buffer))
- (list (read-shell-command "shell command:" nil nil)
- (read-file-name "file name:")))
- (start-process-shell-command command "test-mode-process" command)
- (find-file-other-window output-file)
- (revert-buffer t t t)
- (setq buffer-read-only t)
- (other-window 1))
RAW Paste Data