Comint stuff wrong for XEmacs

--=-=-=
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable


ilxemacs.el gets the various comint variables exactly the wrong way,
getting a lot of

Symbol's value as variable is void: input-ring-index

on current XEmacs.

This suggests testing on boundness rather than on the XEmacs version.
Patch is attached.

--=20
Cheers =3D8-} Mike
Friede, V=F6lkerverst=E4ndigung und =FCberhaupt blabla

--=-=-=
Content-Disposition: inline

Index: ilxemacs.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/ilisp/ilxemacs.el,v
retrieving revision 1.3
diff -u -c -r1.3 ilxemacs.el
*** ilxemacs.el	2 Jul 2001 09:40:49 -0000	1.3
--- ilxemacs.el	28 Jan 2004 16:41:21 -0000
***************
*** 51,77 ****
  
  
  (defun ilisp-input-ring-index ()
!   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
        comint-input-ring-index
!       input-ring-index))
  
  
  (defun set-ilisp-input-ring-index (n)
!   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
        (setq comint-input-ring-index n)
!       (setq input-ring-index n)))
  
  
  (defun ilisp-input-ring-size ()
!   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
        comint-input-ring-size
!       input-ring-size))
  
  
  (defun set-ilisp-input-ring-size (n)
!   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
        (setq comint-input-ring-size n)
!       (setq input-ring-size n)))
  
  
  ;;============================================================================
--- 51,77 ----
  
  
  (defun ilisp-input-ring-index ()
!   (if (boundp 'comint-input-ring-index)
        comint-input-ring-index
!     input-ring-index))
  
  
  (defun set-ilisp-input-ring-index (n)
!   (if (boundp 'comint-input-ring-index)
        (setq comint-input-ring-index n)
!     (setq input-ring-index n)))
  
  
  (defun ilisp-input-ring-size ()
!   (if (boundp 'comint-input-ring-size)
        comint-input-ring-size
!     input-ring-size))
  
  
  (defun set-ilisp-input-ring-size (n)
!   (if (boundp 'comint-input-ring-size)
        (setq comint-input-ring-size n)
!     (setq input-ring-size n)))
  
  
  ;;============================================================================

--=-=-=--


-------------------------------------------------------
The SF.Net email is sponsored by EclipseCon 2004
Premiere Conference on Open Tools Development and Integration
See the breadth of Eclipse activity. February 3-5 in Anaheim, CA.
http://www.eclipsecon.org/osdn