Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions 1 ;;; w3.el --- Main functions for emacs-w3 on all platforms/versions
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/03/14 06:39:41 3 ;; Created: 1997/03/18 00:47:35
4 ;; Version: 1.98 4 ;; Version: 1.99
5 ;; Keywords: faces, help, comm, news, mail, processes, mouse, hypermedia 5 ;; Keywords: faces, help, comm, news, mail, processes, 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, 1997 Free Software Foundation, Inc. 9 ;;; Copyright (c) 1996, 1997 Free Software Foundation, Inc.
1224 (or info "")) 1224 (or info ""))
1225 (display-buffer (current-buffer) t)))) 1225 (display-buffer (current-buffer) t))))
1226 1226
1227 (defun w3-popup-info (&optional url) 1227 (defun w3-popup-info (&optional url)
1228 "Show information about the link under point. (All SGML attributes)" 1228 "Show information about the link under point. (All SGML attributes)"
1229 (interactive (list (w3-read-url-with-default))) 1229 (interactive (list (or (w3-view-this-url t)
1230 (w3-read-url-with-default))))
1230 (let (dat widget) 1231 (let (dat widget)
1231 (if (interactive-p) 1232 (if (interactive-p)
1232 nil 1233 nil
1233 (setq widget (widget-at (point)) 1234 (setq widget (widget-at (point))
1234 dat (and widget (widget-get widget 'attributes)))) 1235 dat (and widget (widget-get widget 'attributes))))