(filter-region, execute-monitor-command): Use `let*' instead of `let'.

diff --git a/lisp/obsolete/mlsupport.el b/lisp/obsolete/mlsupport.el
index 1df047878e1a556a5a1032a4246aa3c417c5ef55..22356f1df64cbba72ef392a2ae255685c5ffa1e7 100644 (file)
--- a/lisp/obsolete/mlsupport.el
+++ b/lisp/obsolete/mlsupport.el
@@ -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))))