;;; Code:
-(require 'riece-compat)
-
(defun riece-xemacs-hide-modeline ()
"Remove modeline from current window."
(set-specifier has-modeline-p nil (current-buffer)))
(defalias 'riece-simplify-mode-line-format
'riece-xemacs-simplify-modeline-format)
+(defalias 'riece-set-case-syntax-pair
+ 'put-case-table-pair)
+
(provide 'riece-xemacs)
;;; riece-xemacs.el ends here