Mercurial > hg > xemacs-beta
diff lisp/w3/w3-e19.el @ 16:0293115a14e9 r19-15b91
Import from CVS: tag r19-15b91
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:49:20 +0200 |
parents | 9ee227acff29 |
children | 441bb1e64a06 |
line wrap: on
line diff
--- a/lisp/w3/w3-e19.el Mon Aug 13 08:48:43 2007 +0200 +++ b/lisp/w3/w3-e19.el Mon Aug 13 08:49:20 2007 +0200 @@ -1,12 +1,12 @@ ;;; w3-e19.el --- Emacs 19.xx specific functions for emacs-w3 ;; Author: wmperry -;; Created: 1996/12/31 15:38:51 -;; Version: 1.12 +;; Created: 1997/01/19 20:04:48 +;; Version: 1.16 ;; Keywords: faces, help, mouse, hypermedia ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) -;;; Copyright (c) 1996 Free Software Foundation, Inc. +;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc. ;;; ;;; This file is part of GNU Emacs. ;;; @@ -110,11 +110,11 @@ (widget (and good pt (number-or-marker-p pt) (widget-at pt))) (link (and widget (or (widget-get widget 'href) (widget-get widget 'name)))) - (form (and widget (widget-get widget 'w3-form-data))) + (form (and widget (widget-get widget :w3-form-data))) (imag nil) ; (nth 1 (memq 'w3graphic props)))) ) (cond - (link (w3-widget-echo widget)) + (link (message "%s" (w3-widget-echo widget))) (form (cond ((eq 'submit (w3-form-element-type form))