Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilfsf18.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children b82b59fe008d
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;; -*- Mode: Emacs-Lisp -*-
2
3 ;;; ilfsf18.el --
4
5 ;;; This file is part of ILISP.
6 ;;; Version: 5.7
7 ;;;
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
9 ;;; 1993, 1994 Ivan Vasquez
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker
11 ;;;
12 ;;; Other authors' names for which this Copyright notice also holds
13 ;;; may appear later in this file.
14 ;;;
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
17 ;;; mailing list were bugs and improvements are discussed.
18 ;;;
19 ;;; ILISP is freely redistributable under the terms found in the file
20 ;;; COPYING.
21
22
23 ;;;============================================================================
24 ;;; Prologue
25
26 (if (string-match "2\.03" comint-version)
27 (fset 'comint-mem 'member))
28
29
30 ;;;============================================================================
31 ;;; Functions
32
33 (defun add-hook (hook function)
34 " Add FUNCTION to HOOK's list.
35 Arguments are HOOK and FUNCTION. FUNCTION is not added if it's already
36 on the list."
37 (set hook
38 (if (boundp hook)
39 (let ((value (symbol-value hook)))
40 (if (and value (or (not (consp value)) (eq (car value) 'lambda)))
41 (setq value (cons value nil)))
42 (if (not (comint-mem function value))
43 (setq value (append value (list function))))
44 value)
45 (list function))))
46
47
48 (defun ilisp-get-input-ring ()
49 "Use instead of get-input-ring coming-input-ring or input-ring."
50 input-ring)
51
52
53 (defun ilisp-ring-insert (ring input)
54 "See 'ring-insert'."
55 (ring-insert ring input))
56
57
58 (defun ilisp-temp-buffer-show-function-symbol ()
59 "See 'temp-buffer-show-hook'."
60 'temp-buffer-show-hook)
61
62
63 (defun set-ilisp-temp-buffer-show-function (val)
64 "See 'temp-buffer-show-hook' set function."
65 (setq temp-buffer-show-hook val))
66
67
68 (defun ilisp-temp-buffer-show-function ()
69 "See 'temp-buffer-show-hook'."
70 temp-buffer-show-hook)
71
72
73 (defun ilisp-input-ring-index ()
74 "See 'input-ring-index'."
75 input-ring-index)
76
77
78 (defun set-ilisp-input-ring-index (n)
79 "See 'input-ring-index' set function."
80 (setq input-ring-index n))
81
82
83 (defun ilisp-input-ring-size ()
84 "See 'input-ring-size'."
85 input-ring-size)
86
87
88 (defun set-ilisp-input-ring-size (n)
89 "See 'input-ring-size' set function."
90 (setq input-ring-size n))
91
92
93 ;;;============================================================================
94 ;;; Epilogue
95
96 (provide 'compat-fsf18)
97
98 ;;; end of file -- il-fsf18.el --