cgit.sxemacs.org Git - packages/blob - xemacs-packages/ilisp/ilfsf20.el

   1 ;;; -*- Mode: Emacs-Lisp -*-
   2
   3 ;;; ilfsf20.el --
   4 ;;;
   5 ;;; This file is part of ILISP.
   6 ;;; Please refer to the file COPYING for copyrights and licensing
   7 ;;; information.
   8 ;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
   9 ;;; of present and past contributors.
  10 ;;;
  11 ;;; $Id: ilfsf20.el,v 1.2 2001-07-02 09:40:45 youngs Exp $
  12
  13
  14 ;;;============================================================================
  15 ;;; Functions
  16
  17 (defun ilisp-get-input-ring ()
  18   "Use instead of get-input-ring coming-input-ring or input-ring."
  19   comint-input-ring)
  20
  21
  22 (defun ilisp-ring-insert (ring input)
  23   (ring-insert ring input))
  24
  25
  26 (defun ilisp-temp-buffer-show-function-symbol ()
  27   'temp-buffer-show-function)
  28
  29
  30 (defun set-ilisp-temp-buffer-show-function (val)
  31   (setq temp-buffer-show-function val))
  32
  33
  34 (defun ilisp-temp-buffer-show-function ()
  35   temp-buffer-show-function)
  36
  37
  38 (defun ilisp-input-ring-index ()
  39   comint-input-ring-index)
  40
  41
  42 (defun set-ilisp-input-ring-index (n)
  43   (setq comint-input-ring-index n))
  44
  45
  46 (defun ilisp-input-ring-size ()
  47   comint-input-ring-size)
  48
  49
  50 (defun set-ilisp-input-ring-size (n)
  51   (setq comint-input-ring-size n))
  52
  53
  54 ;;;============================================================================
  55 ;;; Epilogue
  56
  57 (provide 'compat-fsf-20)
  58
  59 ;;; end of file -- ilfsf20.el --