[packages/xemacs.git] / xemacs-default.el

; simple function to check if (x)emacs is supporting mule
(defun mule? ()
  ""
  (string-match "--with-mule" system-configuration-options)
)
    
(if (string-match "^pl.*" (or (getenv "LC_CTYPE") (getenv "LC_ALL") (getenv "LANG") "C"))
	(if (mule?)
			(load "ogony-mule")
		(load "ogony-nomule")
	)
		
)
Commit	Line	Data
3946ec63 AM	1	; simple function to check if (x)emacs is supporting mule
	2	(defun mule? ()
	3	""
	4	(string-match "--with-mule" system-configuration-options)
	5	)
	6
	7	(if (string-match "^pl.*" (or (getenv "LC_CTYPE") (getenv "LC_ALL") (getenv "LANG") "C"))
	8	(if (mule?)
	9	(load "ogony-mule")
	10	(load "ogony-nomule")
	11	)
	12
	13	)
ccd517e0	14