Mercurial > hg > xemacs-beta

diff lisp/w3/w3-xemac.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents a145efe76779
children 7d55a9ba150c
line wrap: on
line diff
--- a/lisp/w3/w3-xemac.el	Mon Aug 13 09:18:41 2007 +0200
+++ b/lisp/w3/w3-xemac.el	Mon Aug 13 09:19:45 2007 +0200
@@ -1,7 +1,7 @@
 ;;; w3-xemac.el --- XEmacs specific functions for emacs-w3
 ;; Author: wmperry
-;; Created: 1997/02/17 23:09:24
-;; Version: 1.15
+;; Created: 1997/03/09 01:59:33
+;; Version: 1.16
 ;; Keywords: faces, help, mouse, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -144,9 +144,11 @@
 	(if (not w3-track-mouse)
 	    (setq inhibit-help-echo nil))
 	(setq mode-motion-hook 'w3-mouse-handler)))
-  (if (eq (device-type) 'tty)
-      nil
-    (w3-add-toolbar-to-buffer))
+  (case (device-type)
+    ((tty stream)			; TTY or batch
+     nil)
+    (otherwise
+     (w3-add-toolbar-to-buffer)))
   (setq mode-popup-menu w3-popup-menu))
 
 (require 'w3-toolbar)