Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/emouse.lisp
There are no other files named emouse.lisp in the archive.
;;; -*- Mode: LISP; Package: USER; Base: 10; Fonts:CPTFONT; -*-
;;;
;;; Everyone should load indirect through this file.
;;;
;;; The real source to the EMOUSE library is OZ:PS:<EMACS>EMOUSE.SOURCE

(LET ((EXT (COND ((STATUS FEATURE SYMBOLICS)
		  (IF (STATUS FEATURE 3600.) "BIN" "QBIN"))
		 (T "QFASL")))
      (REL (COND ((STATUS FEATURE SYMBOLICS)
		  (FORMAT NIL "REL~D-" (SI:GET-RELEASE-VERSION)))
		 (T
		  (FORMAT NIL "SYS~D-" (SI:GET-SYSTEM-VERSION))))))
  (LOAD (FORMAT NIL "OZ:PS:<EMACS>EMOUSE.~A~A" REL EXT)))