(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)

(FILECREATED "10-Jan-89 08:03:31" {ERINYES}<LISPUSERS>MEDLEY>SEDIT-MENU-ALWAYS.;1
 1349   

      previous date%: " 8-Sep-88 14:42:58" {DSK}<LISPFILES>MATT>SEDIT-MENU-ALWAYS.;4)


(* "
Copyright (c) 1988, 1989 by Beckman Instruments, Inc.  All rights reserved.
")

(PRETTYCOMPRINT SEDIT-MENU-ALWAYSCOMS)

(RPAQQ SEDIT-MENU-ALWAYSCOMS
 ((PROP (MAKEFILE-ENVIRONMENT FILETYPE)
                                        SEDIT-MENU-ALWAYS)
                                  (ADVISE SEDIT::SETUP-WINDOW-AND-PROCESS)))

(PUTPROPS SEDIT-MENU-ALWAYS MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP" 
                                                            :BASE 10))

(PUTPROPS SEDIT-MENU-ALWAYS FILETYPE
 :COMPILE-FILE)

[XCL:REINSTALL-ADVICE 'SEDIT::SETUP-WINDOW-AND-PROCESS :AFTER
       '((:LAST (CL:WHEN (GETTOPVAL SEditMenuAlwaysFlg)
                    (CL:UNLESS (WINDOWPROP (fetch
 (SEDIT::EDIT-CONTEXT SEDIT::DISPLAY-WINDOW)
                                              of
 CONTEXT)
                                      'SEDIT::MENU)
                           (SEDIT::ADD-MENU CONTEXT)))]

(READVISE SEDIT::SETUP-WINDOW-AND-PROCESS)
(PUTPROPS SEDIT-MENU-ALWAYS COPYRIGHT ("Beckman Instruments, Inc" 1988 1989))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL)))
STOP