From 05470ac85c1a925c04ed571066f79949bbad772f Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 24 Aug 2005 15:20:18 +0000 Subject: [PATCH] (filter-region, execute-monitor-command): Use `let*' instead of `let'. --- lisp/obsolete/mlsupport.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/obsolete/mlsupport.el b/lisp/obsolete/mlsupport.el index 1df047878e1..22356f1df64 100644 --- 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)))) -- 2.39.2