Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-xemac.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 441bb1e64a06
children 131b0175ea99
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3 1 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3
2 ;; Author: wmperry 2 ;; Author: wmperry
3 ;; Created: 1997/02/17 23:09:24 3 ;; Created: 1997/03/09 01:59:33
4 ;; Version: 1.15 4 ;; Version: 1.16
5 ;; Keywords: faces, help, mouse, hypermedia 5 ;; Keywords: faces, help, 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.
142 (if (featurep 'mouse) 142 (if (featurep 'mouse)
143 (progn 143 (progn
144 (if (not w3-track-mouse) 144 (if (not w3-track-mouse)
145 (setq inhibit-help-echo nil)) 145 (setq inhibit-help-echo nil))
146 (setq mode-motion-hook 'w3-mouse-handler))) 146 (setq mode-motion-hook 'w3-mouse-handler)))
147 (if (eq (device-type) 'tty) 147 (case (device-type)
148 nil 148 ((tty stream) ; TTY or batch
149 (w3-add-toolbar-to-buffer)) 149 nil)
150 (otherwise
151 (w3-add-toolbar-to-buffer)))
150 (setq mode-popup-menu w3-popup-menu)) 152 (setq mode-popup-menu w3-popup-menu))
151 153
152 (require 'w3-toolbar) 154 (require 'w3-toolbar)
153 (provide 'w3-xemacs) 155 (provide 'w3-xemacs)
154 (provide 'w3-xemac) 156 (provide 'w3-xemac)