🚀 go-pugleaf

System:  SunOS 4.1.1 GnuEmacs 18.57

Problem: I was requested to write a sitecode file for local users
	 here and I am having a problem with loading the mouse
	 bindings if it is in a windowed environment.

	 I was using conditions to test the term type, but it fails
	 to load at all when the term type is 'xterm' and the display
	 is not set.  Current scheme is:

;; get term prefix
   (defun term-name-prefix (name prefix)
     (and (>= (length name) (length prefix))
          (string= (substring name 0 (length prefix)) prefix)))

;; set terminal and host type
   (setq TERM (getenv "TERM"))
   (setq DISPLAY (getenv "DISPLAY"))

;; load appropriate emacs definition file
(cond ((term-name-prefix TERM "vt")   (load ".vt220.el"))
      ((term-name-prefix TERM "sun")  (load ".sun.elc"))
      (t (load ".visual.el")))
(cond ((term-name-prefix TERM "sun")
       (load "x-mouse")
       ))

(cond ((term-name-prefix TERM "xterm")
       (load "x-mouse")
       ))

(cond ((term-name-prefix DISPLAY "unix:0.0")
       (load "x-mouse")
       ))


	This fails when the display is not set.  I then thought 
	that I could test for window-system by doing:

(if (equal window-system 'x)
    (load "x-mouse"
)

	but this fails as well.  

	Anyone have ideas???

james

--
					-- James Cameron  (jc@raven.bu.edu)

Signal Processing and Interpretation Lab.  Boston, Mass  (617) 353-2879
------------------------------------------------------------------------------
"But to risk we must, for the greatest hazard in life is to risk nothing.  For
the man or woman who risks nothing, has nothing, does nothing, is nothing."
	(Quote from the eulogy for the late Christa McAuliffe.)