Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-xemac.el @ 14:9ee227acff29 r19-15b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b90
author cvs
date Mon, 13 Aug 2007 08:48:42 +0200
parents ac2d302a0011
children 0293115a14e9
comparison
equal deleted inserted replaced
13:13c6d0aaafe5 14:9ee227acff29
1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3 1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1996/07/21 06:38:10 3 ;; Created: 1996/11/27 15:11:46
4 ;; Version: 1.4 4 ;; Version: 1.7
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 ;;; 10 ;;;
10 ;;; This file is part of GNU Emacs. 11 ;;; This file is part of GNU Emacs.
11 ;;; 12 ;;;
12 ;;; 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
13 ;;; 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
18 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 19 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;;; GNU General Public License for more details. 21 ;;; GNU General Public License for more details.
21 ;;; 22 ;;;
22 ;;; You should have received a copy of the GNU General Public License 23 ;;; You should have received a copy of the GNU General Public License
23 ;;; along with GNU Emacs; see the file COPYING. If not, write to 24 ;;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 25 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
26 ;;; Boston, MA 02111-1307, USA.
25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
26 28
27 (require 'w3-imap) 29 (require 'w3-imap)
28 (require 'images) 30 (require 'images)
29 (require 'w3-widget) 31 (require 'w3-widget)
35 "Function to message the url under the mouse cursor" 37 "Function to message the url under the mouse cursor"
36 (interactive "e") 38 (interactive "e")
37 (let* ((pt (event-point e)) 39 (let* ((pt (event-point e))
38 (good (eq (event-window e) (selected-window))) 40 (good (eq (event-window e) (selected-window)))
39 (widget (and good pt (number-or-marker-p pt) (widget-at pt))) 41 (widget (and good pt (number-or-marker-p pt) (widget-at pt)))
40 (link (and widget (widget-get widget 'href))) 42 (link (and widget (or (widget-get widget 'href)
43 (widget-get widget 'name))))
41 (form (and widget (widget-get widget 'w3-form-data))) 44 (form (and widget (widget-get widget 'w3-form-data)))
42 (imag nil) 45 (imag nil)
43 ) 46 )
44 (cond 47 (cond
45 (link (message "%s" link)) 48 (link (w3-widget-echo widget))
46 (form 49 (form
47 (cond 50 (cond
48 ((eq 'submit (w3-form-element-type form)) 51 ((eq 'submit (w3-form-element-type form))
49 (message "Submit form to %s" 52 (message "Submit form to %s"
50 (cdr-safe (assq 'action (w3-form-element-action form))))) 53 (cdr-safe (assq 'action (w3-form-element-action form)))))