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

   1 ;;; -*- Mode: Emacs-Lisp -*-
   2
   3 ;;; ilxemacs.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: ilxemacs.el,v 1.3 2001-07-02 09:40:49 youngs Exp $
  12
  13 ;;;============================================================================
  14 ;;; Variables
  15
  16 ;;; XEmacs 19.14 doesn't have comint-input-chunk-size but earlier
  17 ;;; versions do, so we define here if needed. (toy@rtp.ericsson.se)
  18
  19 (if (not (boundp 'comint-input-chunk-size))
  20     (setq comint-input-chunk-size 512))
  21
  22
  23
  24 ;;;============================================================================
  25 ;;; Functions
  26
  27 (defun ilisp-get-input-ring ()
  28   "Use instead of get-input-ring coming-input-ring or input-ring."
  29   (if (eq +ilisp-emacs-version-id+ 'lucid-19)
  30       (get-input-ring)
  31       ;; else lucid-19-new
  32       comint-input-ring))
  33
  34
  35 (defun ilisp-ring-insert (ring input)
  36   (if (eq +ilisp-emacs-version-id+ 'lucid-19)
  37       (ring-insert-new ring input)
  38       (ring-insert ring input)))
  39
  40
  41 (defun ilisp-temp-buffer-show-function-symbol ()
  42   'temp-buffer-show-function)
  43
  44
  45 (defun set-ilisp-temp-buffer-show-function (val)
  46   (setq temp-buffer-show-function val))
  47
  48
  49 (defun ilisp-temp-buffer-show-function ()
  50   temp-buffer-show-function)
  51
  52
  53 (defun ilisp-input-ring-index ()
  54   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  55       comint-input-ring-index
  56       input-ring-index))
  57
  58
  59 (defun set-ilisp-input-ring-index (n)
  60   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  61       (setq comint-input-ring-index n)
  62       (setq input-ring-index n)))
  63
  64
  65 (defun ilisp-input-ring-size ()
  66   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  67       comint-input-ring-size
  68       input-ring-size))
  69
  70
  71 (defun set-ilisp-input-ring-size (n)
  72   (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
  73       (setq comint-input-ring-size n)
  74       (setq input-ring-size n)))
  75
  76
  77 ;;============================================================================
  78 ;;; Epilogue
  79
  80 (provide 'il-luc19)
  81
  82 ;;; end of file -- ilxemacs.el --
  83