procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/ibuf-ext.el (ibuffer-do-shell-command-file):

Browse source 
Fix non-file-visiting-buffer case.  (Bug#22678)

(cherry picked from commit 738738259b)
This commit is contained in:
Tino Calancha 2016-06-07 19:24:51 -04:00 • committed by Glenn Morris
parent cf3c19b029
commit b0c447e466
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/ibuf-ext.el
View file

@ -347,10 +347,14 @@ the mode if ARG is omitted or nil."
:modifier-p nil) :modifier-p nil)
(shell-command (concat command " " (shell-command (concat command " "
(shell-quote-argument (shell-quote-argument
(if buffer-file-name (or buffer-file-name
buffer-file-name (let ((file
(make-temp-file (make-temp-file
(substring (buffer-name) 0 (min 10 (length (buffer-name)))))))))) (substring
(buffer-name) 0
(min 10 (length (buffer-name)))))))
(write-region nil nil file nil 0)
file))))))
;;;###autoload (autoload 'ibuffer-do-eval "ibuf-ext") ;;;###autoload (autoload 'ibuffer-do-eval "ibuf-ext")
(define-ibuffer-op eval (form) (define-ibuffer-op eval (form)