Steve Youngs wrote:
* It's me FKtPp ;) <m_pupil(a)yahoo.com.cn> writes:
> Stephen J. Turnbull wrote:
>> In search.c, line 179 (or so), just change "RE_SYNTAX_EMACS" to
>> "RE_SYNTAX_EMACS | RE_CHAR_CLASSES". Rebuild. Please let us know
how
>> it works out.
> Good news~~ The recompiled XEmacs binary works! And if I make change in
> regex.h It works also!
>> AFAIK this only will work as expected for ASCII files and search
>> expressions. In a Mule build there are likely to be crashes. For
>> those reasons, I would not expect this to appear in the mainline
>> without a lot of work. Definitely we will need testing.
We enabled character classes in SXEmacs 22.1.8 (Mule is enable by
default in SXEmacs), so far no related crashes. Steve, if you can give
me some hairy test cases, I'll be happy to let you know how SXEmacs
stands up to it.
Got some trouble now. :(
I hear that SXEmacs sharing the same packages repository with XEmacs, so
SXEmacs must have a special character class [:word:] defined. Or how
can it handle this, while viewing articles in gnus:
# bind (standard-output stack-trace-on-signal debug-on-signal
stack-trace-on-error debug-on-error)
# (unwind-protect ...)
re-search-forward("\\b\\(\\(www\\.\\|\\(s?https?\\|ftp\\|file\\|gopher\\|nntp\\|news\\|telnet\\|wais\\|mailto\\|info\\):\\)\\(//[-a-z0-9_.]+:[0-9]*\\)?[-a-z0-9_=!?#$@~%&*+\\/:;.,[:word:]]+[-a-z0-9_=#$@~%&*+\\/[:word:]]\\)"
nil t)
# bind (inhibit-read-only inhibit-point-motion-hooks case-fold-search
alist beg entry regexp)
# (unwind-protect ...)
# bind (force)
gnus-article-add-buttons()
# (unwind-protect ...)
# bind (--dolist-temp--98428 elem length alist
article-goto-body-goes-to-point-min-p treated-type highlightp val elem
type total-parts part-number condition)
gnus-treat-article(nil 1 1)
# (unwind-protect ...)
# bind (handles inhibit-read-only handle)
# (unwind-protect ...)
# bind (ssw98424)
# (unwind-protect ...)
# bind (ihandles)
gnus-display-mime()
# bind (gnus-article-buffer buffer-read-only inhibit-read-only)
gnus-article-prepare-display()
# (unwind-protect ...)
# bind (result group gnus-tmp-internal-hook summary-buffer gnus-article)
# (unwind-protect ...)
# bind (header all-headers article)
gnus-article-prepare(89684 nil)
# bind (all-header article)
gnus-summary-display-article(89684 nil)
# (unwind-protect ...)
# bind (article all-headers gnus-summary-display-article-function
article pseudo force all-headers)
gnus-summary-select-article(nil nil pseudo)
# bind (lines)
gnus-summary-scroll-up(1)
# bind (command-debug-status)
call-interactively(gnus-summary-scroll-up)
(dispatch-event "[internal]")
# (condition-case ... . error)
# (catch top-level ...)
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-beta