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))))
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
