From 5905ec6debb6dcf9df9843b8f166305c849f0e61 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 17 Jul 2013 13:57:05 +0100
Subject: Make shell-execute work with a universal prefix argument

---
 emacs/elisp/ap-functions.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'emacs')

diff --git a/emacs/elisp/ap-functions.el b/emacs/elisp/ap-functions.el
index b6994643..104b4449 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)))
-- 
cgit 1.4.1