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

Fix previous commit regarding revert-buffer-function

Browse source 
* simple.el (shell-command, shell-command-on-region): Set
revert-buffer-function buffer-locally, not globally.  Also, avoid an
unnecessary call to (current-buffer) by taking advantage of the
closure (bug#46151).
This commit is contained in:
Sean Whitton 2021-01-29 08:18:52 +01:00 • committed by Lars Ingebrigtsen
parent 4e27a260e5
commit 19afd6de25
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/simple.el
View file

@ -3991,9 +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))))
(setq-local revert-buffer-function
(lambda (&rest _)
(async-shell-command command buffer)))
(set-process-sentinel proc #'shell-command-sentinel)
;; Use the comint filter for proper handling of
;; carriage motion (see comint-inhibit-carriage-motion).
@ -4260,9 +4260,9 @@ characters."
buffer))))
;; Report the output.
(with-current-buffer buffer
(setq revert-buffer-function
(lambda (&rest _)
(shell-command command)))
(setq-local revert-buffer-function
(lambda (&rest _)
(shell-command command)))
(setq mode-line-process
(cond ((null exit-status)
" - Error")