Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
009ef402
Commit
009ef402
authored
Jul 31, 1993
by
Richard M. Stallman
Browse files
(shell-command-history): New variable.
(shell-command, shell-command-on-region): Use it.
parent
2f65feb6
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
2 deletions
+6
-2
lisp/simple.el
lisp/simple.el
+6
-2
No files found.
lisp/simple.el
View file @
009ef402
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment