[Emacs-diffs] Changes to emacs/lisp/obsolete/mlsupport.el

[Juanma Barranquero]

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))))