/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.518 by rms, Sun Jan 13 04:01:11 2002 UTC revision 1.519 by rms, Fri Feb 1 04:20:02 2002 UTC
# Line 1421  or buffer name to which to direct the co Line 1421  or buffer name to which to direct the co
1421  If it is nil, error output is mingled with regular output.  If it is nil, error output is mingled with regular output.
1422  In an interactive call, the variable `shell-command-default-error-buffer'  In an interactive call, the variable `shell-command-default-error-buffer'
1423  specifies the value of ERROR-BUFFER."  specifies the value of ERROR-BUFFER."
1424    (interactive (let ((string    (interactive (let (string)
1425                        ;; Do this before calling region-beginning                   (unless (mark)
1426                        ;; and region-end, in case subprocess output                     (error "The mark is not set now, so there is no region"))
1427                        ;; relocates them while we are in the minibuffer.                   ;; Do this before calling region-beginning
1428                        (read-from-minibuffer "Shell command on region: "                   ;; and region-end, in case subprocess output
1429                                              nil nil nil                   ;; relocates them while we are in the minibuffer.
1430                                              'shell-command-history)))                   (setq string (read-from-minibuffer "Shell command on region: "
1431                                                        nil nil nil
1432                                                        'shell-command-history))
1433                   ;; call-interactively recognizes region-beginning and                   ;; call-interactively recognizes region-beginning and
1434                   ;; region-end specially, leaving them in the history.                   ;; region-end specially, leaving them in the history.
1435                   (list (region-beginning) (region-end)                   (list (region-beginning) (region-end)

Legend:
Removed from v.1.518  
changed lines
  Added in v.1.519

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26