Mercurial > emacs
comparison lisp/obsolete/mlsupport.el @ 65102:3b647b8b1789
(filter-region, execute-monitor-command): Use `let*' instead of `let'.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Wed, 24 Aug 2005 15:20:18 +0000 |
| parents | 5b1a238fcbb4 |
| children | e8a3fb527b77 2d92f5c9d6ae |
comparison
equal
deleted
inserted
replaced
| 65101:023a3b40a5d4 | 65102:3b647b8b1789 |
|---|---|
| 319 | 319 |
| 320 (defvar use-csh-option-f 1 | 320 (defvar use-csh-option-f 1 |
| 321 "Mocklisp compatibility variable; 1 means pass -f when calling csh.") | 321 "Mocklisp compatibility variable; 1 means pass -f when calling csh.") |
| 322 | 322 |
| 323 (defun filter-region (command) | 323 (defun filter-region (command) |
| 324 (let ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh")) | 324 (let* ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh")) |
| 325 (csh (equal (file-name-nondirectory shell) "csh"))) | 325 (csh (equal (file-name-nondirectory shell) "csh"))) |
| 326 (call-process-region (point) (mark) shell t t nil | 326 (call-process-region (point) (mark) shell t t nil |
| 327 (if (and csh use-csh-option-f) "-cf" "-c") | 327 (if (and csh use-csh-option-f) "-cf" "-c") |
| 328 (concat "exec " command)))) | 328 (concat "exec " command)))) |
| 329 | 329 |
| 330 (defun execute-monitor-command (command) | 330 (defun execute-monitor-command (command) |
| 331 (let ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh")) | 331 (let* ((shell (if (/= use-users-shell 0) shell-file-name "/bin/sh")) |
| 332 (csh (equal (file-name-nondirectory shell) "csh"))) | 332 (csh (equal (file-name-nondirectory shell) "csh"))) |
| 333 (call-process shell nil t t | 333 (call-process shell nil t t |
| 334 (if (and csh use-csh-option-f) "-cf" "-c") | 334 (if (and csh use-csh-option-f) "-cf" "-c") |
| 335 (concat "exec " command)))) | 335 (concat "exec " command)))) |
| 336 | 336 |
| 337 (defun use-syntax-table (name) | 337 (defun use-syntax-table (name) |