;
; file:         ~/.xemacs/init.el
; created:      chronop slackware (re)install end of sep 2002
; modified:     pasha mar 30 2021
; modification: restored utf-8
; 

; currently (mar 30 2021) it is for native windows xemacs

(setq default-frame-alist
     '(
       (cursor-color . "blue")
       (cursor-type . box)))
(setq-default tab-width 4)
(setq initial-frame-plist '(top 30 left 50 width 81 height 39))
(set-background-color "gray85")

(set-specifier top-toolbar-visible-p nil)

(setq-default ispell-program-name "C:/cygwin/bin/aspell.exe")

; to make search and replace case-insensitive
(setq-default case-fold-search nil)

(set-default-buffer-file-coding-system 'utf-8)


; from cygwin xemacs setup:
;
;; UTF-8
;; theoretically, this should automaticalyy recognize between 
;; utf-8-unix and utf-8-dos, but it doesn't (i.e. opens dos files in unix mode)
;;(require 'un-define)
;;(set-coding-priority-list '(utf-8))
;;(set-coding-category-system 'utf-8 'utf-8)

;; launch gnuserv to open files in the same window
;;(load "gnuserv")
;(gnuserv-start)
;(setq gnuserv-frame (selected-frame))
;;(setq gnuserv-screen (selected-frame))


; from (old) chronop setup:
;
;;(add-to-list 'load-path "/lib/xemacs")
;;(setq cperl-hairy t)

;; turn on some of the hairy cperl options
;; this one automatically puts a space after $ in $var; how disgusting!
;;(setq cperl-electric-lbrace-space t)
;; this one automatically pairs the brackets
;;(setq cperl-electric-parens t)
;(setq cperl-electric-linefeed t)
;; this one automatically completes 'for' with round and curly brackets. phew!
;;(setq cperl-electric-keywords t)
;(setq cperl-info-on-command-no-prompt t)
;(setq cperl-clobber-lisp-bindings t)

; end of .init.el