Commit 05470ac8 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

parent f0dc3168
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment