char-classes, thingatpt-utils

Hi all, I've made most char-classes known as [[:alnum:]] etc. from GNU Emacs available for my `thingatpt-utils' with XEmacs too. Maybe call `alnum-atpt' etc. to watch it. Wrote char-classes here with a x-, not to mix up. For the moment its done that way: (when (featurep 'xemacs) (setq x-alnum "[a-zA-ZäöüßÄÖÜ0-9]")) (when (featurep 'xemacs) (setq x-alpha "[a-zA-ZäöüßÄÖÜ]")) (when (featurep 'xemacs) (setq x-ascii "[\000-\177]")) (when (featurep 'xemacs) (setq x-blank "[ \t]")) (when (featurep 'xemacs) (setq x-cntrl "[\000-\006]\016-\037]")) (when (featurep 'xemacs) (setq x-digit "[0-9]")) (when (featurep 'xemacs) (setq x-graph "[\041-\177\241-\377]")) (when (featurep 'xemacs) (setq x-lower "[a-zäöüß]")) (when (featurep 'xemacs) (setq x-multibyte "")) (when (featurep 'xemacs) (setq x-nonascii "[^\040-\177]")) (when (featurep 'xemacs) (setq x-print "[\041-\177\241-\377]")) (when (featurep 'xemacs) (setq x-punct "[.,-_:;?!]")) (when (featurep 'xemacs) (setq x-space "[ \t]")) (when (featurep 'xemacs) (setq x-unibyte "")) (when (featurep 'xemacs) (setq x-upper "[A-ZÄÖÜ]")) (when (featurep 'xemacs) (setq x-xdigit "[0-9.,]")) As you see, some problems remain. Any suggestions for x-unibyte, x-multibyte and in general? Thanks Andreas Röhler _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta