Code: Select all
(if s::startup
(setq s::startup (append s::startup setWsCurrent))
(defun-q s::startup () (setvar "WSCURRENT" "PJS_WS")))
(defun-q setWsCurrent ( )
(setvar "WSCURRENT" "PJS_WS") )
Code: Select all
(if s::startup
(setq s::startup (append s::startup setWsCurrent))
(defun-q s::startup () (setvar "WSCURRENT" "PJS_WS")))
(defun-q setWsCurrent ( )
(setvar "WSCURRENT" "PJS_WS") )
Use your code only (copy and paste).