;;; -*- Mode: Emacs-Lisp -*-
;;;
;;; load .EMACS for emacs or .XEMACS-* for xemacs:

(defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

(cond (running-xemacs


       ;; Options Menu Settings
       ;; =====================
       (cond
	((and (string-match "XEmacs" emacs-version)
	      (boundp 'emacs-major-version)
	      (or (and
		   (= emacs-major-version 19)
		   (>= emacs-minor-version 14))
		  (= emacs-major-version 20))
	      (fboundp 'load-options-file))
	 (load-options-file "/home/mrz/.xemacs-options")))
       ;; ============================
       ;; End of Options Menu Settings
       
       
       ;; if called with -u username, use this username for (load-file):
       (setq USER "mrz")
       (let ( (l command-line-args) )
	 (while (not (null l))
	   (if (string= (car l) "-u") (setq USER (cadr l))  )
	   (setq l (cdr l))
	   ))
       (defun USER-load-file (f) (load-file (concat "~" USER "/" f)) )


       (setq load-path (append (list (concat "/home/" USER "/lisp")) load-path ))
       
       (if (> (frame-width (selected-frame)) 120)
	   (split-window-horizontally)
	 )
	;(next-window) (bury-buffer) (next-window)
       
       ;; for special directories: use a smaller font with 10pt:
       (if (string-equal default-directory "/home/mrz/Diplom/Compile/DA/FWT-sep/")
	   (progn (USER-load-file ".XEMACS-maspar"))
	 )


       ;; load different init-files from USER:
       (USER-load-file ".XEMACS-functions")
       (USER-load-file ".XEMACS-keys")
       (USER-load-file ".XEMACS-misc")
       (USER-load-file ".XEMACS-modes")
       ;;(USER-load-file ".XEMACS-hm-html")
       (USER-load-file ".XEMACS-colors")

  ;;     (load "desktop")
  ;;     ;(desktop-load-default) ; falls an: automatisch Desktop speichern
  ;;     (desktop-read)
  ;;     (load-bookmarks-from-default-dir)

       (USER-load-file ".xemacs-customize")
			     
       (message "Done with loading of private ini-files.")
       ))

(cond ((not running-xemacs)  (load-file "~/.EMACS")))