Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-script.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children 1a767b41a199
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
1 ;;; w3-script.el --- Scripting support 1 ;;; w3-script.el --- Scripting support
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/07 14:13:39 3 ;; Created: 1997/03/08 01:28:33
4 ;; Version: 1.5 4 ;; Version: 1.6
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 ;;;
79 (case w3-current-scripting-language 79 (case w3-current-scripting-language
80 (elisp 80 (elisp
81 (let ((st 0) 81 (let ((st 0)
82 (form nil) 82 (form nil)
83 (max (length f))) 83 (max (length f)))
84 (while (and (< st max) (setq form (read-from-string f st))) 84 (condition-case ()
85 (setq st (cdr form) 85 (while (and (< st max) (setq form (read-from-string f st)))
86 form (car form)) 86 (setq st (cdr form)
87 (w3-elisp-safe-eval form)))) 87 form (car form))
88 (w3-elisp-safe-eval form))
89 (error nil))))
88 (otherwise 90 (otherwise
89 (message "Unimplemented scripting language: %S" 91 (message "Unimplemented scripting language: %S"
90 w3-current-scripting-language))))) 92 w3-current-scripting-language)))))
91 93
92 (provide 'w3-script) 94 (provide 'w3-script)