   (define-key caml-mode-map "\M-\C-q" 'caml-indent-phrase)
   (define-key caml-mode-map "\M-\C-x" 'caml-eval-phrase)
 
-  (if running-xemacs nil ; if not running xemacs
+  (if (featurep 'xemacs) nil
     (let ((map (make-sparse-keymap "Caml"))
           (forms (make-sparse-keymap "Forms")))
       (define-key caml-mode-map "\C-c\C-d" 'caml-show-imenu)

  (define-key caml-mode-map [?\C-c down-mouse-1] 'caml-types-explore)
  ;; caml-help
  (define-key caml-mode-map [?\C-c?i] 'ocaml-add-path)
  (define-key caml-mode-map [?\C-c?]] 'ocaml-close-module)
  (define-key caml-mode-map [?\C-c?[] 'ocaml-open-module)
  (define-key caml-mode-map [?\C-c?\C-h] 'caml-help)
  (define-key caml-mode-map [?\C-c?\t] 'caml-complete)
  ;; others


;;; The major mode
(eval-when-compile
  (if (featurep 'xemacs) nil
    (require 'imenu)))

;;
