mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Juanma Barranquero 2005-08-24 15:20:18 +00:00
parent f0dc3168b2
commit 05470ac85c
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/obsolete/mlsupport.el
View file

@ -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))))