(defmacro defcustom (var value doc &rest ignore)
`(defvar ,var ,value ,doc)))
+(or (fboundp 'match-string-no-properties) ;; XEmacs: not in 21.4
+(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."
+ (if (match-beginning num)
+ (substring string (match-beginning num) (match-end num))))
+ (set-text-properties 0 (length result) nil result)
+ (buffer-substring-no-properties (match-beginning num)
(defvar texinfmt-version "2.40 of 6 Dec 2002")
(defun texinfmt-version (&optional here)