Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-forms.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents ec9a17fef872
children 1a767b41a199
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
1 ;;; w3-forms.el --- Emacs-w3 forms parsing code for new display engine 1 ;;; w3-forms.el --- Emacs-w3 forms parsing code for new display engine
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/07 14:26:02 3 ;; Created: 1997/03/15 00:31:11
4 ;; Version: 1.77 4 ;; Version: 1.78
5 ;; Keywords: faces, help, comm, data, languages 5 ;; Keywords: faces, help, comm, data, languages
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
247 ;; Custom support. 247 ;; Custom support.
248 (defvar w3-custom-options nil) 248 (defvar w3-custom-options nil)
249 (make-variable-buffer-local 'w3-custom-options) 249 (make-variable-buffer-local 'w3-custom-options)
250 250
251 (defun w3-form-create-custom (el face) 251 (defun w3-form-create-custom (el face)
252 (require 'custom-edit) 252 (condition-case ()
253 (require 'cus-edit)
254 (error (require 'custom-edit)))
253 (let* ((name (w3-form-element-name el)) 255 (let* ((name (w3-form-element-name el))
254 (var-name (w3-form-element-value el)) 256 (var-name (w3-form-element-value el))
255 (type (plist-get (w3-form-element-plist el) 'custom-type)) 257 (type (plist-get (w3-form-element-plist el) 'custom-type))
256 (widget (widget-create (cond ((string-equal type "variable") 258 (widget (widget-create (cond ((string-equal type "variable")
257 'custom-variable) 259 'custom-variable)