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

(shell-command, shell-command-on-region):

Browse source 
Fix bugs in previous change.
This commit is contained in:
Richard M. Stallman 1993-08-08 07:47:33 +00:00
parent 6f5d1a4f52
commit aa00b92d69
1 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/simple.el
View file

@ -630,9 +630,6 @@ then call `undo-more' one or more times to undo them."
(error "No further undo information"))
(setq pending-undo-list (primitive-undo count pending-undo-list)))
(defvar last-shell-command "")
(defvar last-shell-command-on-region "")
(defvar shell-command-history nil
"History list for some commands that read shell commands.")
@ -643,8 +640,9 @@ If COMMAND ends in ampersand, execute it asynchronously.
Optional second arg non-nil (prefix arg, if interactive)
means insert output in current buffer after point (leave mark after it).
This cannot be done asynchronously."
(interactive (list (read-string "Shell command: " last-shell-command)
current-prefix-arg nil nil 'shell-command-history))
(interactive (list (read-from-minibuffer "Shell command: "
nil nil nil 'shell-command-history)
current-prefix-arg))
(if flag
(progn (barf-if-buffer-read-only)
(push-mark)
@ -738,9 +736,8 @@ even though that buffer is not automatically displayed. If there is no output
or output is inserted in the current buffer then `*Shell Command Output*' is
deleted."
(interactive (list (region-beginning) (region-end)
(read-string "Shell command on region: "
last-shell-command-on-region
nil nil 'shell-command-history)
(read-from-minibuffer "Shell command on region: "
nil nil nil 'shell-command-history)
current-prefix-arg
(prefix-numeric-value current-prefix-arg)))
(if flag