(in-package "COMMON-LISP-USER")

;;; code-page-setter.lisp
;;; LWW4.0

(defvar *code-page* 1253)

;;; ----------------------------------------------------------------------
;;; set the code page...

;;; Initialization to work with Non-ASCII char according
;;;;      Irgi-Praha
;;;
(lw::set-default-character-element-type 'lw::simple-char)
;;;
(setf (editor:variable-value "Input Format Default")
      `(win32:code-page :id ,*code-page* :eol-style :crlf))
;;;
(setf (editor:variable-value "Output Format Default")
      `(win32:code-page :id ,*code-page*))
;;;
(setf sys:*file-encoding-detection-algorithm*
      (list #'(lambda (&rest args)
                (declare (ignoge args))
                `(win32:code-page :id ,*code-page*))))
;;;     end----------