--- a/lisp/w3/w3-xemac.el	Mon Aug 13 09:05:44 2007 +0200
+++ b/lisp/w3/w3-xemac.el	Mon Aug 13 09:06:37 2007 +0200
@@ -1,11 +1,12 @@
 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3
 ;; Author: wmperry
-;; Created: 1996/07/21 06:38:10
-;; Version: 1.4
+;; Created: 1996/11/27 15:11:46
+;; Version: 1.7
 ;; Keywords: faces, help, mouse, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Copyright (c) 1993 - 1996 by William M. Perry (wmperry@cs.indiana.edu)
+;;; Copyright (c) 1996 Free Software Foundation, Inc.
 ;;;
 ;;; This file is part of GNU Emacs.
 ;;;
@@ -20,8 +21,9 @@
 ;;; GNU General Public License for more details.
 ;;;
 ;;; You should have received a copy of the GNU General Public License
-;;; along with GNU Emacs; see the file COPYING.  If not, write to
-;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;;; Boston, MA 02111-1307, USA.
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (require 'w3-imap)
@@ -37,12 +39,13 @@
   (let* ((pt (event-point e))
 	 (good (eq (event-window e) (selected-window)))
 	 (widget (and good pt (number-or-marker-p pt) (widget-at pt)))
-	 (link (and widget (widget-get widget 'href)))
+	 (link (and widget (or (widget-get widget 'href)
+			       (widget-get widget 'name))))
 	 (form (and widget (widget-get widget 'w3-form-data)))
 	 (imag nil)
 	 )
     (cond
-     (link (message "%s" link))
+     (link (w3-widget-echo widget))
      (form
       (cond
        ((eq 'submit (w3-form-element-type form))