Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hsys-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 376386a54a3c
children 131b0175ea99
comparison
equal deleted inserted replaced
35:279432d5c479 36:c53a95d3c46d
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Motorola Inc. 9 ;; ORG: Motorola Inc.
10 ;; 10 ;;
11 ;; ORIG-DATE: 7-Apr-94 at 17:17:39 by Bob Weiner 11 ;; ORIG-DATE: 7-Apr-94 at 17:17:39 by Bob Weiner
12 ;; LAST-MOD: 3-Nov-95 at 23:14:34 by Bob Weiner 12 ;; LAST-MOD: 10-Mar-97 at 12:17:08 by Bob Weiner
13 ;; 13 ;;
14 ;; This file is part of Hyperbole. 14 ;; This file is part of Hyperbole.
15 ;; Available for use and distribution under the same terms as GNU Emacs. 15 ;; Available for use and distribution under the same terms as GNU Emacs.
16 ;; 16 ;;
17 ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc. 17 ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
64 (and (symbolp action-key-url-function) 64 (and (symbolp action-key-url-function)
65 (memq action-key-url-function 65 (memq action-key-url-function
66 '(highlight-headers-follow-url-netscape 66 '(highlight-headers-follow-url-netscape
67 highlight-headers-follow-url-mosaic)) 67 highlight-headers-follow-url-mosaic))
68 (require 'highlight-headers)) 68 (require 'highlight-headers))
69 (funcall action-key-url-function url)) 69 (if window-system
70 (funcall action-key-url-function url)
71 (w3-fetch url)))
70 72
71 (defun www-url:help (&optional but) 73 (defun www-url:help (&optional but)
72 "Displays history list of www nodes previously visited with the W3 browser." 74 "Displays history list of www nodes previously visited with the W3 browser."
73 (interactive) 75 (interactive)
74 (if (fboundp 'w3-show-history-list) 76 (if (fboundp 'w3-show-history-list)