[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5f65042 2/3: Set revert-buffer-function in shell command output b
From: |
Lars Ingebrigtsen |
Subject: |
master 5f65042 2/3: Set revert-buffer-function in shell command output buffers |
Date: |
Fri, 29 Jan 2021 01:04:57 -0500 (EST) |
branch: master
commit 5f650422e4a4c44ffc5ee0be4ec969765a307c7b
Author: Sean Whitton <spwhitton@spwhitton.name>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Set revert-buffer-function in shell command output buffers
* simple.el (shell-command, shell-command-on-region): Set
revert-buffer-function in shell command output buffers (bug#46151).
---
lisp/simple.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/lisp/simple.el b/lisp/simple.el
index e82b138..64ee042 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3991,6 +3991,9 @@ impose the use of a shell (with its need to quote
arguments)."
(start-process-shell-command "Shell" buffer command)))
(setq mode-line-process '(":%s"))
(shell-mode)
+ (setq revert-buffer-function
+ (lambda (&rest _)
+ (async-shell-command command (current-buffer))))
(set-process-sentinel proc #'shell-command-sentinel)
;; Use the comint filter for proper handling of
;; carriage motion (see comint-inhibit-carriage-motion).
@@ -4257,6 +4260,9 @@ characters."
buffer))))
;; Report the output.
(with-current-buffer buffer
+ (setq revert-buffer-function
+ (lambda (&rest _)
+ (shell-command command)))
(setq mode-line-process
(cond ((null exit-status)
" - Error")