diff options
author | Alan Pearce | 2013-08-02 10:32:18 +0100 |
---|---|---|
committer | Alan Pearce | 2013-08-02 10:32:18 +0100 |
commit | cfc894f238825d3c7079eae2c6d9fb7798a0d0be (patch) | |
tree | e7fe7d5d4b68e387784a92684d78fb5d3b269e53 /emacs/elisp/ap-functions.el | |
parent | 1e5ba0b55f289e00d9c78683b79aefc9fd55f4e2 (diff) | |
parent | 1ba96a0584267853ff15e255bfae7afb39bceb7c (diff) | |
download | dotfiles-cfc894f238825d3c7079eae2c6d9fb7798a0d0be.tar.lz dotfiles-cfc894f238825d3c7079eae2c6d9fb7798a0d0be.tar.zst dotfiles-cfc894f238825d3c7079eae2c6d9fb7798a0d0be.zip |
Merge branch 'master' of home:dotfiles
Diffstat (limited to 'emacs/elisp/ap-functions.el')
-rw-r--r-- | emacs/elisp/ap-functions.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/emacs/elisp/ap-functions.el b/emacs/elisp/ap-functions.el index b699464..104b444 100644 --- a/emacs/elisp/ap-functions.el +++ b/emacs/elisp/ap-functions.el @@ -37,10 +37,10 @@ (byte-compile-dest-file filename)))))) ;;;###autoload -(defun shell-execute () - (interactive) +(defun shell-execute (to-current-buffer) + (interactive "P") (let ((file-buffer (if (buffer-file-name) (file-name-nondirectory (buffer-file-name)) "")) (command (read-shell-command "Shell command: " nil nil nil))) - (shell-command (replace-regexp-in-string "%" file-buffer command)))) + (shell-command (replace-regexp-in-string "%" file-buffer command) to-current-buffer))) |