two minor patches for XEmacs

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

*** jde-jdb.el~ Sun Feb 19 13:22:34 2006
- --- jde-jdb.el  Tue Jul  3 17:28:44 2007
***************
*** 353,359 ****
      (if (string-match 
         (concat "^  \\[" 
                 (oref debuggee :stack-depth)
!                "\\] .*(\\([^\$\n]*\\).*:\\([0-9]*[^[:digit:]]?[0-9]+\\))")
         output)
        (let ((marker (match-string 0 output))
              (class (match-string 1 output))
- --- 353,359 ----
      (if (string-match 
         (concat "^  \\[" 
                 (oref debuggee :stack-depth)
!                "\\] .*(\\([^\$\n]*\\).*:\\([0-9]*[^0-9]?[0-9]+\\))")
         output)
        (let ((marker (match-string 0 output))
              (class (match-string 1 output))
***************
*** 1869,1875 ****
  (defun jde-jdb-string-to-int(number)
    "This method removes punctuation from a string, e.g, 1,200 (1.200 in Danish,
  and converts the result to an integer."
!   (if (string-match "[^[:digit:]]" number)
        (setq number (replace-match "" nil nil number)))
    (string-to-int number))
  
- --- 1869,1875 ----
  (defun jde-jdb-string-to-int(number)
    "This method removes punctuation from a string, e.g, 1,200 (1.200 in Danish,
  and converts the result to an integer."
!   (if (string-match "[^0-9]" number)
        (setq number (replace-match "" nil nil number)))
    (string-to-int number))
  
- -----------------------------------------
*** jde-xemacs.el~      Fri Jun 29 09:59:44 2007
- --- jde-xemacs.el       Fri Jun 29 10:03:06 2007
***************
*** 151,158 ****
  ;; Install gui options on XEmacs versions that can understand them
  (when (and (featurep 'widget)
           (>= emacs-major-version 21)
!          (>= emacs-minor-version 4)
!          (>= emacs-patch-level 10))
    (require 'efc-xemacs))
  
  ;; Redefine toolbar-debug and toolbar-compile so that clicking the
- --- 151,160 ----
  ;; Install gui options on XEmacs versions that can understand them
  (when (and (featurep 'widget)
           (>= emacs-major-version 21)
!          (or
!           (> emacs-minor-version 4)
!           (and (= emacs-minor-version 4)
!                (>= emacs-patch-level 10))))
    (require 'efc-xemacs))
  
  ;; Redefine toolbar-debug and toolbar-compile so that clicking the


ht
- -- 
 Henry S. Thompson, HCRC Language Technology Group, University of Edinburgh
                     Half-time member of W3C Team
    2 Buccleuch Place, Edinburgh EH8 9LW, SCOTLAND -- (44) 131 650-4440
            Fax: (44) 131 650-4587, e-mail: [email protected]
                   URL: http://www.ltg.ed.ac.uk/~ht/
[mail really from me _always_ has this .sig -- mail without it is forged spam]
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.6 (GNU/Linux)

iD8DBQFGipeKkjnJixAXWBoRAtmyAJ9XIxA7OqZw+pSVK9yK96KKlvyn2wCdHAKs
qoxbdG9Eh+4Se9OSOkvV0yc=
=6FKk
-----END PGP SIGNATURE-----