mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(shell-command-history): New variable.

Browse Source 
(shell-command, shell-command-on-region): Use it.
This commit is contained in:
Richard M. Stallman 1993-07-31 06:10:44 +00:00
parent 2f65feb682
commit 009ef4024d
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/simple.el
View File

@ -633,6 +633,9 @@ then call `undo-more' one or more times to undo them."
(defvar last-shell-command "")
(defvar last-shell-command-on-region "")
(defvar shell-command-history nil
"History list for some commands that read shell commands.")
(defun shell-command (command &optional flag)
"Execute string COMMAND in inferior shell; display output, if any.
If COMMAND ends in ampersand, execute it asynchronously.
@ -641,7 +644,7 @@ 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))
current-prefix-arg nil nil 'shell-command-history))
(if flag
(progn (barf-if-buffer-read-only)
(push-mark)
@ -736,7 +739,8 @@ 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)
last-shell-command-on-region
nil nil 'shell-command-history)
current-prefix-arg
(prefix-numeric-value current-prefix-arg)))
(if flag