Mercurial > emacs

changeset 65102:3b647b8b1789

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(filter-region, execute-monitor-command): Use `let*' instead of `let'.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 24 Aug 2005 15:20:18 +0000
parents 023a3b40a5d4
children 27425eb4706a
files lisp/obsolete/mlsupport.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/obsolete/mlsupport.el	Wed Aug 24 15:10:45 2005 +0000
+++ b/lisp/obsolete/mlsupport.el	Wed Aug 24 15:20:18 2005 +0000
@@ -321,15 +321,15 @@
   "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")))
+  (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")))
+  (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))))