27 lines
554 B
Plaintext
27 lines
554 B
Plaintext
|
; GWM: backwards compatibility
|
||
|
; ============================
|
||
|
|
||
|
;;File: compat.gwm -- redefines old behaviors
|
||
|
;;Author: colas@mirsa.inria.fr (Colas NAHABOO) -- Bull Research FRANCE
|
||
|
;;Revision: 1.0 -- Aug 29 89
|
||
|
;;State: Exp
|
||
|
;;GWM Version: 1.4
|
||
|
|
||
|
; say (uses-gwm-version "1.4.1.13" t) at the head of sections needing
|
||
|
; 1.4.1.13 behavior, and (uses-gwm-version "1.4.1.13" ()) to revert to current
|
||
|
; version.
|
||
|
|
||
|
(defun uses-gwm-version (old-version entering)
|
||
|
(if
|
||
|
(= old-version "1.4.1.13")
|
||
|
(if entering {
|
||
|
} {
|
||
|
}
|
||
|
)
|
||
|
)
|
||
|
)))
|
||
|
|
||
|
|
||
|
|
||
|
|