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 ----
