summary refs log tree commit diff stats
path: root/emacs/elisp
diff options
context:
space:
mode:
authorAlan Pearce2013-08-02 10:32:18 +0100
committerAlan Pearce2013-08-02 10:32:18 +0100
commitcfc894f238825d3c7079eae2c6d9fb7798a0d0be (patch)
treee7fe7d5d4b68e387784a92684d78fb5d3b269e53 /emacs/elisp
parent1e5ba0b55f289e00d9c78683b79aefc9fd55f4e2 (diff)
parent1ba96a0584267853ff15e255bfae7afb39bceb7c (diff)
downloaddotfiles-cfc894f238825d3c7079eae2c6d9fb7798a0d0be.tar.lz
dotfiles-cfc894f238825d3c7079eae2c6d9fb7798a0d0be.tar.zst
dotfiles-cfc894f238825d3c7079eae2c6d9fb7798a0d0be.zip
Merge branch 'master' of home:dotfiles
Diffstat (limited to 'emacs/elisp')
-rw-r--r--emacs/elisp/ap-functions.el6
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)))