;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File name: ` ~/.emacs '
;;; ---------------------
;;;
;;; If you need your own personal ~/.emacs
;;; please make a copy of this file
;;; an placein your changes and/or extension.
;;;
;;; Copyright (c) 1997-2002 SuSE Gmbh Nuernberg, Germany.
;;;
;;; Author: Werner Fink, <feedback@suse.de> 1997,98,99,2002
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Test of Emacs derivates
;;; -----------------------
(if (string-match "XEmacs\\|Lucid" emacs-version)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; XEmacs
  ;;; ------
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (progn
     (if (file-readable-p "~/.xemacs/init.el")
        (load "~/.xemacs/init.el" nil t))
  )
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; GNU-Emacs
  ;;; ---------
  ;;; load ~/.gnu-emacs or, if not exists /etc/skel/.gnu-emacs
  ;;; For a description and the settings see /etc/skel/.gnu-emacs
  ;;;   ... for your private ~/.gnu-emacs your are on your one.
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (if (file-readable-p "~/.gnu-emacs")
      (load "~/.gnu-emacs" nil t)
    (if (file-readable-p "/etc/skel/.gnu-emacs")
	(load "/etc/skel/.gnu-emacs" nil t)))

  ;; Custom Settings
  ;; ===============
  ;; To avoid any trouble with the customization system of GNU emacs
  ;; we set the default file ~/.gnu-emacs-custom
  (setq custom-file "~/.gnu-emacs-custom")
  (load "~/.gnu-emacs-custom" t t)

  ;; Greek Language settings
  ;; =======================
  ;; Set the language environment based on environment vars.
  (prefer-coding-system 'greek-iso-8bit)
  (prefer-coding-system 'iso-8859-7)
  (load "/usr/local/share/emacs/21.4/lisp/language/greek.elc")
  (setq default-input-method "el_GR")

  ;;Screen resolution settings
  ;;==========================
  (and window-system
     (setq screen-width (x-display-pixel-width)
        screen-height (x-display-pixel-height)))

  ;;Frames configuration
  ;;====================
  (set-frame-height (selected-frame) 52)
  (set-frame-width (selected-frame)100)
  (setq initial-frame-alist '((top . 60) (left . 170)))

  ;;Auctex mode
  (load "auctex.el" nil t t)
  (load "preview-latex.el" nil t t)

  ;;Greek dictionary set-up
  ;;=======================
  (setq ispell-program-name "aspell")  
    (add-to-list 'ispell-dictionary-alist
                '("el"
                  "[a-zA-Z\341\342\343\344\345\346\347\350\351\352\353\354\355\356\3\
                   57\360\361\363\364\365\366\367\370\371\301\302\303\304\305\306\307\310\311\312\313\314\\
                   315\316\317\320\321\323\324\325\326\327\330\331\362\334\335\336\337\374\375\376\266\270\
                   \271\272\274\276\277\372\373\332\333\300\340]"
                  "[^a-zA-Z\341\342\343\344\345\346\347\350\351\352\353\354\355\356\\
                   357\360\361\363\364\365\366\367\370\371\301\302\303\304\305\306\307\310\311\312\313\314\
                   \315\316\317\320\321\323\324\325\326\327\330\331\362\334\335\336\337\374\375\376\266\27\
                   0\271\272\274\276\277\372\373\332\333\300\340]"
                  "['\"]" t ("latin/greek") nil iso-8859-7))
  (setq ispell-dictionary "el")
  (set-default 'ispell-local-dictionary "el")
;;;
)
;;;