--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/ilisp/illuc19.el	Mon Aug 13 08:45:50 2007 +0200
@@ -0,0 +1,83 @@
+;;; -*- Mode: Emacs-Lisp -*-
+
+;;; illuc19.el --
+
+;;; This file is part of ILISP.
+;;; Version: 5.7
+;;;
+;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
+;;;               1993, 1994 Ivan Vasquez
+;;;               1994, 1995 Marco Antoniotti and Rick Busdiecker
+;;;
+;;; Other authors' names for which this Copyright notice also holds
+;;; may appear later in this file.
+;;;
+;;; Send mail to 'ilisp-request@lehman.com' to be included in the
+;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
+;;; mailing list were bugs and improvements are discussed.
+;;;
+;;; ILISP is freely redistributable under the terms found in the file
+;;; COPYING.
+
+
+
+;;;============================================================================
+;;; Functions
+
+(defun ilisp-get-input-ring ()
+  "Use instead of get-input-ring coming-input-ring or input-ring."
+  (if (eq +ilisp-emacs-version-id+ 'lucid-19)
+      (get-input-ring)
+      ;; else lucid-19-new
+      comint-input-ring))
+
+
+(defun ilisp-ring-insert (ring input)
+  (if (eq +ilisp-emacs-version-id+ 'lucid-19)
+      (ring-insert-new ring input)
+      (ring-insert ring input)))
+
+
+(defun ilisp-temp-buffer-show-function-symbol ()
+  'temp-buffer-show-function)
+
+
+(defun set-ilisp-temp-buffer-show-function (val)
+  (setq temp-buffer-show-function val))
+
+
+(defun ilisp-temp-buffer-show-function ()
+  temp-buffer-show-function)
+
+
+(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)))
+
+
+;;============================================================================
+;;; Epilogue
+
+(provide 'il-luc19)
+
+;;; end of file -- il-luc19.el --
+