(defalias 'riece-simplify-mode-line-format
'riece-xemacs-simplify-modeline-format)
-(defalias 'riece-set-case-syntax-pair
- 'put-case-table-pair)
-
;;; stolen (and renamed) from gnus-xmas.el.
;;; In GNU Emacs, user can intercept whole mouse tracking events by
;;; assigning [mouse-X]. In XEmacs, however, which causes different
(defalias 'riece-cancel-timer 'delete-itimer)
+(defun riece-match-string-no-properties (number &optional string)
+ (format "%s" (match-string number string)))
+
+(defun riece-propertize-modeline-string (string &rest properties)
+ (let ((extent (make-extent nil nil)))
+ (set-extent-properties extent properties)
+ (cons extent string)))
+
(provide 'riece-xemacs)
;;; riece-xemacs.el ends here