Hi Paul, Here is a small patch for jde.el that fix a compatibility problem on XEmacs that misses the function `match-string-no-properties' used in jde-parse.el and jde-sregex.el.
Sincerely, David 2004-05-14 David Ponce <[EMAIL PROTECTED]> * jde.el (custom-set-default): Move definition before requiring other libraries. (match-string-no-properties): Define if missing. Index: jde.el =================================================================== RCS file: /pack/anoncvs/jde/lisp/jde.el,v retrieving revision 1.334 diff -c -r1.334 jde.el *** jde.el 2004/05/14 03:24:01 1.334 --- jde.el 2004/05/14 07:45:58 *************** *** 62,67 **** --- 62,83 ---- (defconst jde-emacs21p (and (string-match "\\bEmacs\\b" (emacs-version)) (>= emacs-major-version 21))) + (unless (fboundp 'custom-set-default) + (defalias 'custom-set-default 'set-default)) + + ;; XEmacs is missing `match-string-no-properties'. + (unless (fboundp 'match-string-no-properties) + (defun match-string-no-properties (num &optional string) + "Return string of text matched by last search, without text properties. + NUM specifies which parenthesized expression in the last regexp. + Value is nil if NUMth pair didn't match, or there were less than NUM pairs. + Zero means the entire text matched by the whole regexp or whole string. + STRING should be given if the last search was by `string-match' on STRING." + (let ((match (match-string num string))) + (and match (set-text-properties 0 (length match) nil match)) + match)) + ) + (require 'jde-util) ;; The version of the JDEE distributed with XEmacs has its own *************** *** 106,115 **** (require 'executable) ;; in XEmacs' sh-script package (require 'efc) (require 'jde-open-source) - - (if (not (fboundp 'custom-set-default)) - (defalias 'custom-set-default 'set-default)) - (defgroup jde nil "Java Development Environment" --- 122,127 ----