Mercurial > hg > xemacs-beta

diff lisp/w3/w3.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 e04119814345
children 1a767b41a199
line wrap: on
line diff
--- a/lisp/w3/w3.el	Mon Aug 13 08:53:21 2007 +0200
+++ b/lisp/w3/w3.el	Mon Aug 13 08:53:38 2007 +0200
@@ -1,7 +1,7 @@
 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions
 ;; Author: wmperry
-;; Created: 1997/03/14 06:39:41
-;; Version: 1.98
+;; Created: 1997/03/18 00:47:35
+;; Version: 1.99
 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -1226,7 +1226,8 @@
                
 (defun w3-popup-info (&optional url)
   "Show information about the link under point. (All SGML attributes)"
-  (interactive (list (w3-read-url-with-default)))
+  (interactive (list (or (w3-view-this-url t)
+			 (w3-read-url-with-default))))
   (let (dat widget)
     (if (interactive-p)
 	nil