comparison lisp/simple.el @ 83222:ae7fab96922c

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-626 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-627 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-628 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-629 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-630 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-631 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-632 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-633 Merge from gnus--rel--5.10 * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-634 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-635 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-636 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-637 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-638 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-54 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-55 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-56 Update from CVS: Add lisp/legacy-gnus-agent.el * [e-mail]--gnu-2004/gnus--rel--5.10--patch-57 Update from CVS * [e-mail]--gnu-2004/gnus--rel--5.10--patch-58 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-262

83221:0fc4928cc48e

  "Execute shell command COMMAND and return its output as a string."
  (with-output-to-string
    (with-current-buffer
      standard-output
      (call-process shell-file-name nil t nil shell-command-switch command))))

(defvar universal-argument-map
  (let ((map (make-sparse-keymap)))
    (define-key map [t] 'universal-argument-other-key)
    (define-key map (vector meta-prefix-char t) 'universal-argument-other-key)

83222:ae7fab96922c

  "Execute shell command COMMAND and return its output as a string."
  (with-output-to-string
    (with-current-buffer
      standard-output
      (call-process shell-file-name nil t nil shell-command-switch command))))

(defun process-file (program &optional infile buffer display &rest args)
  "Process files synchronously in a separate process.
Similar to `call-process', but may invoke a file handler based on
`default-directory'.  The current working directory of the
subprocess is `default-directory'.

File names in INFILE and BUFFER are handled normally, but file
names in ARGS should be relative to `default-directory', as they
are passed to the process verbatim.  \(This is a difference to
`call-process' which does not support file handlers for INFILE
and BUFFER.\)

Some file handlers might not support all variants, for example
they might behave as if DISPLAY was nil, regardless of the actual
value passed."
  (let ((fh (find-file-name-handler default-directory 'process-file))
        lc stderr-file)
    (unwind-protect
        (if fh (apply fh 'process-file program infile buffer display args)
          (when infile (setq lc (file-local-copy infile)))
          (setq stderr-file (when (and (consp buffer) (stringp (cadr buffer)))
                              (make-temp-file "emacs"))))
      (prog1
          (apply 'call-process program
                 (or lc infile)
                 (if stderr-file (list (car buffer) stderr-file) buffer)
                 display args)
        (when stderr-file (copy-file stderr-file (cadr buffer))))
      (when stderr-file (delete-file stderr-file))
      (when lc (delete-file lc)))))



(defvar universal-argument-map
  (let ((map (make-sparse-keymap)))
    (define-key map [t] 'universal-argument-other-key)
    (define-key map (vector meta-prefix-char t) 'universal-argument-other-key)