xemacs-default.el

   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 )
  14