Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-e19.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 9ee227acff29
children 441bb1e64a06
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
1 ;;; w3-e19.el --- Emacs 19.xx specific functions for emacs-w3 1 ;;; w3-e19.el --- Emacs 19.xx specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/12/31 15:38:51 3 ;; Created: 1997/01/19 20:04:48
4 ;; Version: 1.12 4 ;; Version: 1.16
5 ;; Keywords: faces, help, mouse, hypermedia 5 ;; Keywords: faces, help, mouse, hypermedia
6 6
7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 7 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu) 8 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
9 ;;; Copyright (c) 1996 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
10 ;;; 10 ;;;
11 ;;; This file is part of GNU Emacs. 11 ;;; This file is part of GNU Emacs.
12 ;;; 12 ;;;
13 ;;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;;; it under the terms of the GNU General Public License as published by 14 ;;; it under the terms of the GNU General Public License as published by
108 (let* ((pt (posn-point (event-start e))) 108 (let* ((pt (posn-point (event-start e)))
109 (good (eq (posn-window (event-start e)) (selected-window))) 109 (good (eq (posn-window (event-start e)) (selected-window)))
110 (widget (and good pt (number-or-marker-p pt) (widget-at pt))) 110 (widget (and good pt (number-or-marker-p pt) (widget-at pt)))
111 (link (and widget (or (widget-get widget 'href) 111 (link (and widget (or (widget-get widget 'href)
112 (widget-get widget 'name)))) 112 (widget-get widget 'name))))
113 (form (and widget (widget-get widget 'w3-form-data))) 113 (form (and widget (widget-get widget :w3-form-data)))
114 (imag nil) ; (nth 1 (memq 'w3graphic props)))) 114 (imag nil) ; (nth 1 (memq 'w3graphic props))))
115 ) 115 )
116 (cond 116 (cond
117 (link (w3-widget-echo widget)) 117 (link (message "%s" (w3-widget-echo widget)))
118 (form 118 (form
119 (cond 119 (cond
120 ((eq 'submit (w3-form-element-type form)) 120 ((eq 'submit (w3-form-element-type form))
121 (message "Submit form to %s" 121 (message "Submit form to %s"
122 (cdr-safe (assq 'action (w3-form-element-action form))))) 122 (cdr-safe (assq 'action (w3-form-element-action form)))))