Mercurial > emacs

comparison lisp/obsolete/mlsupport.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents eb1ac743e2c7
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; mlsupport.el --- run-time support for mocklisp code 1 ;;; mlsupport.el --- run-time support for mocklisp code
2 2
3 ;; Copyright (C) 1985 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: FSF 5 ;; Maintainer: FSF
6 ;; Keywords: extensions 6 ;; Keywords: extensions
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the 21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02111-1307, USA. 23 ;; Boston, MA 02110-1301, USA.
24 24
25 ;;; Commentary: 25 ;;; Commentary:
26 26
27 ;; This package provides equivalents of certain primitives from Gosling 27 ;; This package provides equivalents of certain primitives from Gosling
28 ;; Emacs (including the commercial UniPress versions). These have an 28 ;; Emacs (including the commercial UniPress versions). These have an
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)
430 args (cdr args))) 430 args (cdr args)))
431 (apply 'concat (nreverse newargs)))) 431 (apply 'concat (nreverse newargs))))
432 432
433 (provide 'mlsupport) 433 (provide 'mlsupport)
434 434
435 ;;; arch-tag: b0ad09bc-8cb2-4be0-8888-2e874839bcbc
435 ;;; mlsupport.el ends here 436 ;;; mlsupport.el ends here