(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")

(FILECREATED "29-Sep-87 10:07:54" {DSK}<LISPFILES>MATT>SEDIT-MENU-ALWAYS.\;3
 1834   

      |changes| |to:|  (FNS |SEditMenuAlways|)
                       (VARS SEDIT-MENU-ALWAYSCOMS)

      |previous| |date:| " 1-Apr-87 14:30:46" {DSK}<LISPFILES>MATT>SEDIT-MENU-ALWAYS.\;2)


; Copyright (c) 1987 by Matt Heffron.  All rights reserved.

(PRETTYCOMPRINT SEDIT-MENU-ALWAYSCOMS)

(RPAQQ SEDIT-MENU-ALWAYSCOMS
 ((FNS |SEditMenuAlways|)
                              (ADVISE |\\\\setup.window.and.process|)
                              (INITVARS (|SEditMenuAlwaysFlg| T))
                              (DECLARE\: EVAL@COMPILE DONTCOPY EVAL@LOAD
                                     (P (LET ((FILEPKGFLG NIL)
                                              (DFNFLG T))
                                             (EVAL (SYSRECLOOK1 '|EditContext|)))))))
(DEFINEQ

(|SEditMenuAlways|

  (LAMBDA (|context|)
                                (* \; "Edited 29-Sep-87 09:56 by Matt Heffron")


    (DECLARE
 (GLOBALVARS |SEditMenuAlwaysFlg|))
    (CL:WHEN |SEditMenuAlwaysFlg| (CL:UNLESS (WINDOWPROP (|fetch|
 (|EditContext| |DisplayWindow|)
                                                            |of|
 |context|)
                                                    '|SEditMenu|)
                                         (|\\\\add.menu| |context|)))))
)
(XCL:REINSTALL-ADVICE '|\\\\setup.window.and.process| :AFTER '((:LAST (|SEditMenuAlways| |context|)))
       )
(READVISE |\\\\setup.window.and.process|)

(RPAQ? |SEditMenuAlwaysFlg|
 T)
(DECLARE\: EVAL@COMPILE DONTCOPY EVAL@LOAD 
(LET ((FILEPKGFLG NIL)
      (DFNFLG T))
     (EVAL (SYSRECLOOK1 '|EditContext|)))
)
(PUTPROPS SEDIT-MENU-ALWAYS COPYRIGHT ("Matt Heffron" 1987))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (916 1432 (|SEditMenuAlways| 926 . 1430)))))
STOP