Mercurial > hg > xemacs-beta

comparison lisp/hyperbole/hsys-w3.el @ 114:8619ce7e4c50 r20-1b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b9
author cvs
date Mon, 13 Aug 2007 09:21:54 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
113:2ec2fe4a4c89 114:8619ce7e4c50
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)