diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2005-08-24 15:20:18 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2005-08-24 15:20:18 +0000 |
| commit | 05470ac85c1a925c04ed571066f79949bbad772f (patch) | |
| tree | b0c1fc0305c45e3f3a119981935f0d9756758e1b /lisp/obsolete | |
| parent | f0dc3168b22afc77f229a67ec1e23d69bd4eb1a9 (diff) | |
| download | emacs-05470ac85c1a925c04ed571066f79949bbad772f.tar.gz | |
(filter-region, execute-monitor-command): Use `let*' instead of `let'.
Diffstat (limited to 'lisp/obsolete')
| -rw-r--r-- | lisp/obsolete/mlsupport.el | 8 |
1 files 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)))) |