[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/obsolete/mlsupport.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/obsolete/mlsupport.el |
Date: |
Wed, 24 Aug 2005 11:20:18 -0400 |
Index: emacs/lisp/obsolete/mlsupport.el
diff -c emacs/lisp/obsolete/mlsupport.el:1.4
emacs/lisp/obsolete/mlsupport.el:1.5
*** emacs/lisp/obsolete/mlsupport.el:1.4 Sat Aug 6 17:48:15 2005
--- emacs/lisp/obsolete/mlsupport.el Wed Aug 24 15:20:18 2005
***************
*** 321,335 ****
"Mocklisp compatibility variable; 1 means pass -f when calling csh.")
(defun filter-region (command)
! (let ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh"))
! (csh (equal (file-name-nondirectory shell) "csh")))
(call-process-region (point) (mark) shell t t nil
(if (and csh use-csh-option-f) "-cf" "-c")
(concat "exec " command))))
(defun execute-monitor-command (command)
! (let ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh"))
! (csh (equal (file-name-nondirectory shell) "csh")))
(call-process shell nil t t
(if (and csh use-csh-option-f) "-cf" "-c")
(concat "exec " command))))
--- 321,335 ----
"Mocklisp compatibility variable; 1 means pass -f when calling csh.")
(defun filter-region (command)
! (let* ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh"))
! (csh (equal (file-name-nondirectory shell) "csh")))
(call-process-region (point) (mark) shell t t nil
(if (and csh use-csh-option-f) "-cf" "-c")
(concat "exec " command))))
(defun execute-monitor-command (command)
! (let* ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh"))
! (csh (equal (file-name-nondirectory shell) "csh")))
(call-process shell nil t t
(if (and csh use-csh-option-f) "-cf" "-c")
(concat "exec " command))))