Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilxemacs.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 ;;; illuc19.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 ;;; Variables
24
25 ;;; XEmacs 19.14 doesn't have comint-input-chunk-size but earlier
26 ;;; versions do, so we define here if needed. (toy@rtp.ericsson.se)
27
28 (if (not (boundp 'comint-input-chunk-size))
29 (setq comint-input-chunk-size 512))
30
31
32
33 ;;;============================================================================
34 ;;; Functions
35
36 (defun ilisp-get-input-ring ()
37 "Use instead of get-input-ring coming-input-ring or input-ring."
38 (if (eq +ilisp-emacs-version-id+ 'lucid-19)
39 (get-input-ring)
40 ;; else lucid-19-new
41 comint-input-ring))
42
43
44 (defun ilisp-ring-insert (ring input)
45 (if (eq +ilisp-emacs-version-id+ 'lucid-19)
46 (ring-insert-new ring input)
47 (ring-insert ring input)))
48
49
50 (defun ilisp-temp-buffer-show-function-symbol ()
51 'temp-buffer-show-function)
52
53
54 (defun set-ilisp-temp-buffer-show-function (val)
55 (setq temp-buffer-show-function val))
56
57
58 (defun ilisp-temp-buffer-show-function ()
59 temp-buffer-show-function)
60
61
62 (defun ilisp-input-ring-index ()
63 (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
64 comint-input-ring-index
65 input-ring-index))
66
67
68 (defun set-ilisp-input-ring-index (n)
69 (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
70 (setq comint-input-ring-index n)
71 (setq input-ring-index n)))
72
73
74 (defun ilisp-input-ring-size ()
75 (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
76 comint-input-ring-size
77 input-ring-size))
78
79
80 (defun set-ilisp-input-ring-size (n)
81 (if (eq +ilisp-emacs-version-id+ 'lucid-19-new)
82 (setq comint-input-ring-size n)
83 (setq input-ring-size n)))
84
85
86 ;;============================================================================
87 ;;; Epilogue
88
89 (provide 'il-luc19)
90
91 ;;; end of file -- il-luc19.el --
92