osmode help

How do I capture the current osmode setting within a lisp routine and then set that osmode back when the routine is over.

 

Hi Stephen

The following program fragment shows how to handle this. If you pauses for
user input inside your code, I would propose to use an error handle to reset
the previous sysvar status in case of pressing the ESC key.

Code:

(defun C:MyProgram ( / OldOsm *error*)
(setq OldOsm (getvar "OSMODE"))

;-- Establish error handler
(defun *error* (Msg)
(setvar "OSMODE" OldOsm)
(if Msg (princ Msg))
(princ)
)

;-- Here comes your code
(...)

;-- Reset Systemvars
(*Error* nil)
)

Cheers