Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-script.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents ec9a17fef872
children e04119814345
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
1 ;;; w3-script.el --- Scripting support 1 ;;; w3-script.el --- Scripting support
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/18 23:32:46 3 ;; Created: 1997/03/07 14:13:39
4 ;; Version: 1.4 4 ;; Version: 1.5
5 ;; Keywords: hypermedia, scripting 5 ;; Keywords: hypermedia, scripting
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1997 Free Software Foundation, Inc. 8 ;;; Copyright (c) 1997 Free Software Foundation, Inc.
9 ;;; 9 ;;;
84 (while (and (< st max) (setq form (read-from-string f st))) 84 (while (and (< st max) (setq form (read-from-string f st)))
85 (setq st (cdr form) 85 (setq st (cdr form)
86 form (car form)) 86 form (car form))
87 (w3-elisp-safe-eval form)))) 87 (w3-elisp-safe-eval form))))
88 (otherwise 88 (otherwise
89 (error "Unimplemented scripting language: %S" 89 (message "Unimplemented scripting language: %S"
90 w3-current-scripting-language))))) 90 w3-current-scripting-language)))))
91 91
92 (provide 'w3-script) 92 (provide 'w3-script)