Re: [gnuclient -nw problems]

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

(cond (running-xemacs
	   (setq debug-on-error t)
	   (setq debug-on-signal t) 
;;  	   (setq custom-file "/home/oub/xemacs/init/custom-init.el")
;;  	   (load-file "~/xemacs/init/xemacs_init.el")
;;  	   (define-specifier-tag 'mule-fonts)
;;  	   (x-symbol-initialize)

	   ))

       

;;; Older versions of emacs did not have these variables
;;; (emacs-major-version and emacs-minor-version.)
;;; Let's define them if they're not around, since they make
;;; it much easier to conditionalize on the emacs version.

(if (and (not (boundp 'emacs-major-version))
	 (string-match "^[0-9]+" emacs-version))
    (setq emacs-major-version
	  (string-to-int (substring emacs-version
				    (match-beginning 0) (match-end 0)))))
(if (and (not (boundp 'emacs-minor-version))
	 (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version))
    (setq emacs-minor-version
	  (string-to-int (substring emacs-version
				    (match-beginning 1) (match-end 1)))))

;;; Define a function to make it easier to check which version we're
;;; running.

(defun running-emacs-version-or-newer (major minor)
  (or (> emacs-major-version major)
      (and (= emacs-major-version major)
	   (>= emacs-minor-version minor))))

(cond ((and running-xemacs
	    (running-emacs-version-or-newer 19 6))
       ;;
       ;; Code requiring XEmacs/Lucid Emacs version 19.6 or newer goes here
       ;;
       ))

(cond ((>= emacs-major-version 19)
       ;;

       ;; Code for any vintage-19 emacs goes here
       ;;
       ))

(cond ((and (not running-xemacs)
	    (> emacs-major-version 19))
;(load-file "/home/oub/emacs-19/init/emacs_init.el")
(setq custom-file "/home/oub/emacs/custom-init.el")
(load-file "/home/oub/emacs/custom-init.el")
(load-file "~/emacs/emacs_init.el")
       ;;
       ;; Code specific to FSF Emacs 19 (not XEmacs/Lucid Emacs) goes here
       ;;

       ))

(cond ((<= emacs-major-version 19)
(load-file "~/emacs/emacs_init.el")
       ;;
       ;; Code specific to emacs 18 goes here
       ;;
       ))



(setq load-home-init-file t) ; don't load init file from ~/.xemacs/init.el

(put 'downcase-region 'disabled nil)