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

   1 ;;; -*- Mode: Emacs-Lisp -*-
   2
   3 ;;; ilfsf18.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: ilfsf18.el,v 1.3 2001-07-02 09:40:45 youngs Exp $
  12
  13
  14 ;;;============================================================================
  15 ;;; Prologue
  16
  17 (if (string-match "2\.03" comint-version)
  18     (fset 'comint-mem 'member))
  19
  20
  21 ;;;============================================================================
  22 ;;; Functions
  23
  24 (defun add-hook (hook function)
  25   " Add FUNCTION to HOOK's list.
  26 Arguments are HOOK and FUNCTION. FUNCTION is not added if it's already
  27 on the list."
  28   (set hook
  29        (if (boundp hook)
  30            (let ((value (symbol-value hook)))
  31              (if (and value (or (not (consp value)) (eq (car value) 'lambda)))
  32                  (setq value (cons value nil)))
  33              (if (not (comint-mem function value))
  34                  (setq value (append value (list function))))
  35              value)
  36          (list function))))
  37
  38
  39 (defun ilisp-get-input-ring ()
  40   "Use instead of get-input-ring coming-input-ring or input-ring."
  41   input-ring)
  42
  43
  44 (defun ilisp-ring-insert (ring input)
  45   "See 'ring-insert'."
  46   (ring-insert ring input))
  47
  48
  49 (defun ilisp-temp-buffer-show-function-symbol ()
  50   "See 'temp-buffer-show-hook'."
  51   'temp-buffer-show-hook)
  52
  53
  54 (defun set-ilisp-temp-buffer-show-function (val)
  55   "See 'temp-buffer-show-hook' set function."
  56   (setq temp-buffer-show-hook val))
  57
  58
  59 (defun ilisp-temp-buffer-show-function ()
  60   "See 'temp-buffer-show-hook'."
  61   temp-buffer-show-hook)
  62
  63
  64 (defun ilisp-input-ring-index ()
  65   "See 'input-ring-index'."
  66   input-ring-index)
  67
  68
  69 (defun set-ilisp-input-ring-index (n)
  70   "See 'input-ring-index' set function."
  71   (setq input-ring-index n))
  72
  73
  74 (defun ilisp-input-ring-size ()
  75   "See 'input-ring-size'."
  76   input-ring-size)
  77
  78
  79 (defun set-ilisp-input-ring-size (n)
  80   "See 'input-ring-size' set function."
  81   (setq input-ring-size n))
  82
  83
  84 ;;;============================================================================
  85 ;;; Epilogue
  86
  87 (provide 'compat-fsf18)
  88
  89 ;;; end of file -- il-fsf18.el --