all repos — archive/dotfiles @ cfc894f238825d3c7079eae2c6d9fb7798a0d0be

Superseded by nixfiles

Merge branch 'master' of home:dotfiles

Alan Pearce
commit

cfc894f238825d3c7079eae2c6d9fb7798a0d0be

parent

1e5ba0b55f289e00d9c78683b79aefc9fd55f4e2

1 file changed, 3 insertions(+), 3 deletions(-)

changed files
M emacs/elisp/ap-functions.elemacs/elisp/ap-functions.el
@@ -37,10 +37,10 @@ (t (let (byte-compile-dest-file-function)
(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)))