annotate lisp/progmodes/inf-lisp.el @ 42843:49c29a684355

Describe global-hl-line-mode.
author Richard M. Stallman <rms@gnu.org>
date Sun, 20 Jan 2002 09:27:57 +0000
parents 7308bbc423d5
children 654257005f05
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
1 ;;; inf-lisp.el --- an inferior-lisp mode
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
2
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
3 ;; Copyright (C) 1988, 1993, 1994 Free Software Foundation, Inc.
846
20674ae6bf52 *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 836
diff changeset
4
798
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 727
diff changeset
5 ;; Author: Olin Shivers <shivers@cs.cmu.edu>
2247
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 957
diff changeset
6 ;; Keywords: processes, lisp
798
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 727
diff changeset
7
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
8 ;; This file is part of GNU Emacs.
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
9
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
13 ;; any later version.
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
14
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
18 ;; GNU General Public License for more details.
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
19
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
20 ;; You should have received a copy of the GNU General Public License
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
23 ;; Boston, MA 02111-1307, USA.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
798
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 727
diff changeset
25 ;;; Commentary:
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 727
diff changeset
26
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
27 ;; Hacked from tea.el by Olin Shivers (shivers@cs.cmu.edu). 8/88
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
29 ;; This file defines a a lisp-in-a-buffer package (inferior-lisp
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
30 ;; mode) built on top of comint mode. This version is more
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
31 ;; featureful, robust, and uniform than the Emacs 18 version. The
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
32 ;; key bindings are also more compatible with the bindings of Hemlock
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
33 ;; and Zwei (the Lisp Machine emacs).
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
35 ;; Since this mode is built on top of the general command-interpreter-in-
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
36 ;; a-buffer mode (comint mode), it shares a common base functionality,
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
37 ;; and a common set of bindings, with all modes derived from comint mode.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
38 ;; This makes these modes easier to use.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
40 ;; For documentation on the functionality provided by comint mode, and
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
41 ;; the hooks available for customising it, see the file comint.el.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
42 ;; For further information on inferior-lisp mode, see the comments below.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
44 ;; Needs fixin:
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
45 ;; The load-file/compile-file default mechanism could be smarter -- it
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
46 ;; doesn't know about the relationship between filename extensions and
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
47 ;; whether the file is source or executable. If you compile foo.lisp
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
48 ;; with compile-file, then the next load-file should use foo.bin for
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
49 ;; the default, not foo.lisp. This is tricky to do right, particularly
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
50 ;; because the extension for executable files varies so much (.o, .bin,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
51 ;; .lbin, .mo, .vo, .ao, ...).
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
52 ;;
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
53 ;; It would be nice if inferior-lisp (and inferior scheme, T, ...) modes
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
54 ;; had a verbose minor mode wherein sending or compiling defuns, etc.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
55 ;; would be reflected in the transcript with suitable comments, e.g.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
56 ;; ";;; redefining fact". Several ways to do this. Which is right?
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
57 ;;
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
58 ;; When sending text from a source file to a subprocess, the process-mark can
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
59 ;; move off the window, so you can lose sight of the process interactions.
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
60 ;; Maybe I should ensure the process mark is in the window when I send
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13644
diff changeset
61 ;; text to the process? Switch selectable?
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
798
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 727
diff changeset
63 ;;; Code:
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 727
diff changeset
64
b7932f859d4e *** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 727
diff changeset
65 (require 'comint)
836
a7cc5061c4de *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 835
diff changeset
66 (require 'lisp-mode)
a7cc5061c4de *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 835
diff changeset
67
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 925
diff changeset
69 ;;;###autoload
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
70 (defvar inferior-lisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'"
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
71 "*What not to save on inferior Lisp's input history.
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
72 Input matching this regexp is not saved on the input history in Inferior Lisp
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
73 mode. Default is whitespace followed by 0 or 1 single-letter colon-keyword
7639
67b7d1ea7b2e Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7300
diff changeset
74 \(as in :a, :c, etc.)")
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
76 (defvar inferior-lisp-mode-map nil)
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
77 (unless inferior-lisp-mode-map
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
78 (setq inferior-lisp-mode-map (copy-keymap comint-mode-map))
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
79 (set-keymap-parent inferior-lisp-mode-map lisp-mode-shared-map)
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
80 (define-key inferior-lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp)
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
81 (define-key inferior-lisp-mode-map "\C-c\C-l" 'lisp-load-file)
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
82 (define-key inferior-lisp-mode-map "\C-c\C-k" 'lisp-compile-file)
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
83 (define-key inferior-lisp-mode-map "\C-c\C-a" 'lisp-show-arglist)
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
84 (define-key inferior-lisp-mode-map "\C-c\C-d" 'lisp-describe-sym)
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
85 (define-key inferior-lisp-mode-map "\C-c\C-f"
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
86 'lisp-show-function-documentation)
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
87 (define-key inferior-lisp-mode-map "\C-c\C-v"
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
88 'lisp-show-variable-documentation))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 ;;; These commands augment Lisp mode, so you can process Lisp code in
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 ;;; the source files.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 (define-key lisp-mode-map "\M-\C-x" 'lisp-eval-defun) ; Gnu convention
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 (define-key lisp-mode-map "\C-x\C-e" 'lisp-eval-last-sexp) ; Gnu convention
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 (define-key lisp-mode-map "\C-c\C-e" 'lisp-eval-defun)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 (define-key lisp-mode-map "\C-c\C-r" 'lisp-eval-region)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96 (define-key lisp-mode-map "\C-c\C-c" 'lisp-compile-defun)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 (define-key lisp-mode-map "\C-c\C-z" 'switch-to-lisp)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 (define-key lisp-mode-map "\C-c\C-l" 'lisp-load-file)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 (define-key lisp-mode-map "\C-c\C-k" 'lisp-compile-file) ; "kompile" file
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 (define-key lisp-mode-map "\C-c\C-a" 'lisp-show-arglist)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 (define-key lisp-mode-map "\C-c\C-d" 'lisp-describe-sym)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 (define-key lisp-mode-map "\C-c\C-f" 'lisp-show-function-documentation)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 (define-key lisp-mode-map "\C-c\C-v" 'lisp-show-variable-documentation)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
106 ;;; This function exists for backwards compatibility.
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
107 ;;; Previous versions of this package bound commands to C-c <letter>
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
108 ;;; bindings, which is not allowed by the gnumacs standard.
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
109
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
110 ;;; "This function binds many inferior-lisp commands to C-c <letter> bindings,
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
111 ;;;where they are more accessible. C-c <letter> bindings are reserved for the
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
112 ;;;user, so these bindings are non-standard. If you want them, you should
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
113 ;;;have this function called by the inferior-lisp-load-hook:
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
114 ;;; (setq inferior-lisp-load-hook '(inferior-lisp-install-letter-bindings))
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
115 ;;;You can modify this function to install just the bindings you want."
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
116 (defun inferior-lisp-install-letter-bindings ()
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
117 (define-key lisp-mode-map "\C-ce" 'lisp-eval-defun-and-go)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
118 (define-key lisp-mode-map "\C-cr" 'lisp-eval-region-and-go)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
119 (define-key lisp-mode-map "\C-cc" 'lisp-compile-defun-and-go)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
120 (define-key lisp-mode-map "\C-cz" 'switch-to-lisp)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
121 (define-key lisp-mode-map "\C-cl" 'lisp-load-file)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
122 (define-key lisp-mode-map "\C-ck" 'lisp-compile-file)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
123 (define-key lisp-mode-map "\C-ca" 'lisp-show-arglist)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
124 (define-key lisp-mode-map "\C-cd" 'lisp-describe-sym)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
125 (define-key lisp-mode-map "\C-cf" 'lisp-show-function-documentation)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
126 (define-key lisp-mode-map "\C-cv" 'lisp-show-variable-documentation)
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
127
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
128 (define-key inferior-lisp-mode-map "\C-cl" 'lisp-load-file)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
129 (define-key inferior-lisp-mode-map "\C-ck" 'lisp-compile-file)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
130 (define-key inferior-lisp-mode-map "\C-ca" 'lisp-show-arglist)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
131 (define-key inferior-lisp-mode-map "\C-cd" 'lisp-describe-sym)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
132 (define-key inferior-lisp-mode-map "\C-cf" 'lisp-show-function-documentation)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
133 (define-key inferior-lisp-mode-map "\C-cv"
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
134 'lisp-show-variable-documentation))
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
135
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
136
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 925
diff changeset
137 ;;;###autoload
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 (defvar inferior-lisp-program "lisp"
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
139 "*Program name for invoking an inferior Lisp with for Inferior Lisp mode.")
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 925
diff changeset
141 ;;;###autoload
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 (defvar inferior-lisp-load-command "(load \"%s\")\n"
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 "*Format-string for building a Lisp expression to load a file.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
144 This format string should use `%s' to substitute a file name
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 and should result in a Lisp expression that will command the inferior Lisp
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 to load that file. The default works acceptably on most Lisps.
13644
e36da6ad58fe (inferior-lisp-load-command): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12868
diff changeset
147 The string \"(progn (load \\\"%s\\\" :verbose nil :print t) (values))\\n\"
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 produces cosmetically superior output for this application,
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 but it works only in Common Lisp.")
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 925
diff changeset
151 ;;;###autoload
5303
8e6ba05e1271 (inferior-lisp-prompt): Don't match more than one line.
Richard M. Stallman <rms@gnu.org>
parents: 5104
diff changeset
152 (defvar inferior-lisp-prompt "^[^> \n]*>+:? *"
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
153 "Regexp to recognise prompts in the Inferior Lisp mode.
5303
8e6ba05e1271 (inferior-lisp-prompt): Don't match more than one line.
Richard M. Stallman <rms@gnu.org>
parents: 5104
diff changeset
154 Defaults to \"^[^> \\n]*>+:? *\", which works pretty good for Lucid, kcl,
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
155 and franz. This variable is used to initialize `comint-prompt-regexp' in the
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
156 Inferior Lisp buffer.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157
30647
9d266998439c (inferior-lisp-prompt): Doc change.
Miles Bader <miles@gnu.org>
parents: 28656
diff changeset
158 This variable is only used if the variable
9d266998439c (inferior-lisp-prompt): Doc change.
Miles Bader <miles@gnu.org>
parents: 28656
diff changeset
159 `comint-use-prompt-regexp-instead-of-fields' is non-nil.
9d266998439c (inferior-lisp-prompt): Doc change.
Miles Bader <miles@gnu.org>
parents: 28656
diff changeset
160
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 More precise choices:
13644
e36da6ad58fe (inferior-lisp-load-command): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12868
diff changeset
162 Lucid Common Lisp: \"^\\\\(>\\\\|\\\\(->\\\\)+\\\\) *\"
e36da6ad58fe (inferior-lisp-load-command): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 12868
diff changeset
163 franz: \"^\\\\(->\\\\|<[0-9]*>:\\\\) *\"
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 kcl: \"^>+ *\"
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 This is a fine thing to set in your .emacs file.")
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167
3744
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
168 (defvar inferior-lisp-buffer nil "*The current inferior-lisp process buffer.
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
169
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
170 MULTIPLE PROCESS SUPPORT
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
171 ===========================================================================
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
172 To run multiple Lisp processes, you start the first up
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
173 with \\[inferior-lisp]. It will be in a buffer named `*inferior-lisp*'.
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
174 Rename this buffer with \\[rename-buffer]. You may now start up a new
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
175 process with another \\[inferior-lisp]. It will be in a new buffer,
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
176 named `*inferior-lisp*'. You can switch between the different process
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
177 buffers with \\[switch-to-buffer].
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
178
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
179 Commands that send text from source buffers to Lisp processes --
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
180 like `lisp-eval-defun' or `lisp-show-arglist' -- have to choose a process
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
181 to send to, when you have more than one Lisp process around. This
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
182 is determined by the global variable `inferior-lisp-buffer'. Suppose you
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
183 have three inferior Lisps running:
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
184 Buffer Process
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
185 foo inferior-lisp
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
186 bar inferior-lisp<2>
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
187 *inferior-lisp* inferior-lisp<3>
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
188 If you do a \\[lisp-eval-defun] command on some Lisp source code,
3744
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
189 what process do you send it to?
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
190
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
191 - If you're in a process buffer (foo, bar, or *inferior-lisp*),
3744
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
192 you send it to that process.
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
193 - If you're in some other buffer (e.g., a source file), you
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
194 send it to the process attached to buffer `inferior-lisp-buffer'.
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
195 This process selection is performed by function `inferior-lisp-proc'.
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
196
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
197 Whenever \\[inferior-lisp] fires up a new process, it resets
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
198 `inferior-lisp-buffer' to be the new process's buffer. If you only run
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
199 one process, this does the right thing. If you run multiple
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
200 processes, you can change `inferior-lisp-buffer' to another process
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
201 buffer with \\[set-variable].")
f344542ac7fd (inferior-lisp-buffer): Move defvar earlier.
Richard M. Stallman <rms@gnu.org>
parents: 3663
diff changeset
202
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 925
diff changeset
203 ;;;###autoload
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
204 (defvar inferior-lisp-mode-hook '()
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
205 "*Hook for customising Inferior Lisp mode.")
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206
17654
9005c1013176 (inferior-lisp-mode): Add a mode-class property.
Richard M. Stallman <rms@gnu.org>
parents: 14857
diff changeset
207 (put 'inferior-lisp-mode 'mode-class 'special)
9005c1013176 (inferior-lisp-mode): Add a mode-class property.
Richard M. Stallman <rms@gnu.org>
parents: 14857
diff changeset
208
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
209 (defun inferior-lisp-mode ()
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
210 "Major mode for interacting with an inferior Lisp process.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 Runs a Lisp interpreter as a subprocess of Emacs, with Lisp I/O through an
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
212 Emacs buffer. Variable `inferior-lisp-program' controls which Lisp interpreter
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
213 is run. Variables `inferior-lisp-prompt', `inferior-lisp-filter-regexp' and
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
214 `inferior-lisp-load-command' can customize this mode for different Lisp
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 interpreters.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 For information on running multiple processes in multiple buffers, see
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
218 documentation for variable `inferior-lisp-buffer'.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
220 \\{inferior-lisp-mode-map}
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
222 Customisation: Entry to this mode runs the hooks on `comint-mode-hook' and
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
223 `inferior-lisp-mode-hook' (in that order).
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 You can send text to the inferior Lisp process from other buffers containing
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
226 Lisp source.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 switch-to-lisp switches the current buffer to the Lisp process buffer.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 lisp-eval-defun sends the current defun to the Lisp process.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 lisp-compile-defun compiles the current defun.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 lisp-eval-region sends the current region to the Lisp process.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
231 lisp-compile-region compiles the current region.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
232
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
233 Prefixing the lisp-eval/compile-defun/region commands with
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
234 a \\[universal-argument] causes a switch to the Lisp process buffer after sending
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
235 the text.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 Commands:
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
238 Return after the end of the process' output sends the text from the
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239 end of process to point.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 Return before the end of the process' output copies the sexp ending at point
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 to the end of the process' output, and sends it.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 Delete converts tabs to spaces as it moves back.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 Tab indents for Lisp; with argument, shifts rest
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 of expression rigidly with the current line.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 C-M-q does Tab on each line starting within following expression.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 Paragraphs are separated only by blank lines. Semicolons start comments.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 If you accidentally suspend your process, use \\[comint-continue-subjob]
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 to continue it."
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 (interactive)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
250 (comint-mode)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 (setq comint-prompt-regexp inferior-lisp-prompt)
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
252 (setq major-mode 'inferior-lisp-mode)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
253 (setq mode-name "Inferior Lisp")
7075
7c7b98107b4c (inferior-lisp-mode): Remove space after `:' in mode-line-process.
Richard M. Stallman <rms@gnu.org>
parents: 6151
diff changeset
254 (setq mode-line-process '(":%s"))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
255 (lisp-mode-variables t)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
256 (use-local-map inferior-lisp-mode-map) ;c-c c-k for "kompile" file
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
257 (setq comint-get-old-input (function lisp-get-old-input))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 (setq comint-input-filter (function lisp-input-filter))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
259 (run-hooks 'inferior-lisp-mode-hook))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 (defun lisp-get-old-input ()
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
262 "Return a string containing the sexp ending at point."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 (save-excursion
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 (let ((end (point)))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 (backward-sexp)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266 (buffer-substring (point) end))))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 (defun lisp-input-filter (str)
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
269 "t if STR does not match `inferior-lisp-filter-regexp'."
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
270 (not (string-match inferior-lisp-filter-regexp str)))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 925
diff changeset
272 ;;;###autoload
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
273 (defun inferior-lisp (cmd)
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
274 "Run an inferior Lisp process, input and output via buffer `*inferior-lisp*'.
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
275 If there is a process already running in `*inferior-lisp*', just switch
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
276 to that buffer.
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
277 With argument, allows you to edit the command line (default is value
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
278 of `inferior-lisp-program'). Runs the hooks from
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
279 `inferior-lisp-mode-hook' (after the `comint-mode-hook' is run).
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 \(Type \\[describe-mode] in the process buffer for a list of commands.)"
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
281 (interactive (list (if current-prefix-arg
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
282 (read-string "Run lisp: " inferior-lisp-program)
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
283 inferior-lisp-program)))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
284 (if (not (comint-check-proc "*inferior-lisp*"))
28656
ebc349d16eb9 (inferior-lisp-mode): Don't set
Gerd Moellmann <gerd@gnu.org>
parents: 23700
diff changeset
285 (let ((cmdlist (split-string cmd)))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
286 (set-buffer (apply (function make-comint)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
287 "inferior-lisp" (car cmdlist) nil (cdr cmdlist)))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
288 (inferior-lisp-mode)))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
289 (setq inferior-lisp-buffer "*inferior-lisp*")
12868
8c777db02099 (inferior-lisp): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
290 (pop-to-buffer "*inferior-lisp*"))
8c777db02099 (inferior-lisp): Use pop-to-buffer.
Richard M. Stallman <rms@gnu.org>
parents: 7639
diff changeset
291 ;;;###autoload (add-hook 'same-window-buffer-names "*inferior-lisp*")
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
292
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
293 ;;;###autoload
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
294 (defalias 'run-lisp 'inferior-lisp)
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
296 (defun lisp-eval-region (start end &optional and-go)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
297 "Send the current region to the inferior Lisp process.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
298 Prefix argument means switch to the Lisp buffer afterwards."
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
299 (interactive "r\nP")
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
300 (comint-send-region (inferior-lisp-proc) start end)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
301 (comint-send-string (inferior-lisp-proc) "\n")
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
302 (if and-go (switch-to-lisp t)))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
304 (defun lisp-eval-defun (&optional and-go)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
305 "Send the current defun to the inferior Lisp process.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
306 Prefix argument means switch to the Lisp buffer afterwards."
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
307 (interactive "P")
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 (save-excursion
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
309 (end-of-defun)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
310 (skip-chars-backward " \t\n\r\f") ; Makes allegro happy
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
311 (let ((end (point)))
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
312 (beginning-of-defun)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
313 (lisp-eval-region (point) end)))
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
314 (if and-go (switch-to-lisp t)))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
316 (defun lisp-eval-last-sexp (&optional and-go)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
317 "Send the previous sexp to the inferior Lisp process.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
318 Prefix argument means switch to the Lisp buffer afterwards."
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
319 (interactive "P")
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
320 (lisp-eval-region (save-excursion (backward-sexp) (point)) (point) and-go))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
322 ;;; Common Lisp COMPILE sux.
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
323 (defun lisp-compile-region (start end &optional and-go)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
324 "Compile the current region in the inferior Lisp process.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
325 Prefix argument means switch to the Lisp buffer afterwards."
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
326 (interactive "r\nP")
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
327 (comint-send-string
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
328 (inferior-lisp-proc)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
329 (format "(funcall (compile nil `(lambda () (progn 'compile %s))))\n"
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
330 (buffer-substring start end)))
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
331 (if and-go (switch-to-lisp t)))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
332
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
333 (defun lisp-compile-defun (&optional and-go)
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
334 "Compile the current defun in the inferior Lisp process.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
335 Prefix argument means switch to the Lisp buffer afterwards."
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
336 (interactive "P")
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 (save-excursion
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 (end-of-defun)
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
339 (skip-chars-backward " \t\n\r\f") ; Makes allegro happy
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 (let ((e (point)))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341 (beginning-of-defun)
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
342 (lisp-compile-region (point) e)))
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
343 (if and-go (switch-to-lisp t)))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 (defun switch-to-lisp (eob-p)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 "Switch to the inferior Lisp process buffer.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347 With argument, positions cursor at end of buffer."
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 (interactive "P")
23700
3be52677d330 (switch-to-lisp): if no inferior lisp present, call
Karl Heuer <kwzh@gnu.org>
parents: 17654
diff changeset
349 (if (get-buffer-process inferior-lisp-buffer)
14857
eb23eca2abf9 (switch-to-lisp): Sometimes turn on pop-up-frames.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
350 (let ((pop-up-frames
eb23eca2abf9 (switch-to-lisp): Sometimes turn on pop-up-frames.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
351 ;; Be willing to use another frame
eb23eca2abf9 (switch-to-lisp): Sometimes turn on pop-up-frames.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
352 ;; that already has the window in it.
eb23eca2abf9 (switch-to-lisp): Sometimes turn on pop-up-frames.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
353 (or pop-up-frames
eb23eca2abf9 (switch-to-lisp): Sometimes turn on pop-up-frames.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
354 (get-buffer-window inferior-lisp-buffer t))))
eb23eca2abf9 (switch-to-lisp): Sometimes turn on pop-up-frames.
Richard M. Stallman <rms@gnu.org>
parents: 14169
diff changeset
355 (pop-to-buffer inferior-lisp-buffer))
23700
3be52677d330 (switch-to-lisp): if no inferior lisp present, call
Karl Heuer <kwzh@gnu.org>
parents: 17654
diff changeset
356 (run-lisp inferior-lisp-program))
3be52677d330 (switch-to-lisp): if no inferior lisp present, call
Karl Heuer <kwzh@gnu.org>
parents: 17654
diff changeset
357 (when eob-p
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 (push-mark)
23700
3be52677d330 (switch-to-lisp): if no inferior lisp present, call
Karl Heuer <kwzh@gnu.org>
parents: 17654
diff changeset
359 (goto-char (point-max))))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
361
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
362 ;;; Now that lisp-compile/eval-defun/region takes an optional prefix arg,
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
363 ;;; these commands are redundant. But they are kept around for the user
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
364 ;;; to bind if he wishes, for backwards functionality, and because it's
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
365 ;;; easier to type C-c e than C-u C-c C-e.
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
366
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 (defun lisp-eval-region-and-go (start end)
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
368 "Send the current region to the inferior Lisp, and switch to its buffer."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 (interactive "r")
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
370 (lisp-eval-region start end t))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 (defun lisp-eval-defun-and-go ()
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
373 "Send the current defun to the inferior Lisp, and switch to its buffer."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
374 (interactive)
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
375 (lisp-eval-defun t))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 (defun lisp-compile-region-and-go (start end)
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
378 "Compile the current region in the inferior Lisp, and switch to its buffer."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379 (interactive "r")
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
380 (lisp-compile-region start end t))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 (defun lisp-compile-defun-and-go ()
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
383 "Compile the current defun in the inferior Lisp, and switch to its buffer."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384 (interactive)
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
385 (lisp-compile-defun t))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
386
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387 ;;; A version of the form in H. Shevis' soar-mode.el package. Less robust.
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
388 ;;; (defun lisp-compile-sexp (start end)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
389 ;;; "Compile the s-expression bounded by START and END in the inferior lisp.
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
390 ;;; If the sexp isn't a DEFUN form, it is evaluated instead."
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
391 ;;; (cond ((looking-at "(defun\\s +")
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
392 ;;; (goto-char (match-end 0))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
393 ;;; (let ((name-start (point)))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
394 ;;; (forward-sexp 1)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
395 ;;; (process-send-string "inferior-lisp"
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
396 ;;; (format "(compile '%s #'(lambda "
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
397 ;;; (buffer-substring name-start
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
398 ;;; (point)))))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
399 ;;; (let ((body-start (point)))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
400 ;;; (goto-char start) (forward-sexp 1) ; Can't use end-of-defun.
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
401 ;;; (process-send-region "inferior-lisp"
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
402 ;;; (buffer-substring body-start (point))))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
403 ;;; (process-send-string "inferior-lisp" ")\n"))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
404 ;;; (t (lisp-eval-region start end)))))
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
405 ;;;
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
406 ;;; (defun lisp-compile-region (start end)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
407 ;;; "Each s-expression in the current region is compiled (if a DEFUN)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
408 ;;; or evaluated (if not) in the inferior lisp."
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
409 ;;; (interactive "r")
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
410 ;;; (save-excursion
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
411 ;;; (goto-char start) (end-of-defun) (beginning-of-defun) ; error check
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
412 ;;; (if (< (point) start) (error "region begins in middle of defun"))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
413 ;;; (goto-char start)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
414 ;;; (let ((s start))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
415 ;;; (end-of-defun)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
416 ;;; (while (<= (point) end) ; Zip through
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
417 ;;; (lisp-compile-sexp s (point)) ; compiling up defun-sized chunks.
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
418 ;;; (setq s (point))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
419 ;;; (end-of-defun))
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
420 ;;; (if (< s end) (lisp-compile-sexp s end)))))
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
421 ;;;
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 ;;; End of HS-style code
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 (defvar lisp-prev-l/c-dir/file nil
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
426 "Record last directory and file used in loading or compiling.
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
427 This holds a cons cell of the form `(DIRECTORY . FILE)'
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
428 describing the last `lisp-load-file' or `lisp-compile-file' command.")
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 (defvar lisp-source-modes '(lisp-mode)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 "*Used to determine if a buffer contains Lisp source code.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 If it's loaded into a buffer that is in one of these major modes, it's
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
433 considered a Lisp source file by `lisp-load-file' and `lisp-compile-file'.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 Used by these commands to determine defaults.")
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 (defun lisp-load-file (file-name)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 "Load a Lisp file into the inferior Lisp process."
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 (interactive (comint-get-source "Load Lisp file: " lisp-prev-l/c-dir/file
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 32367
diff changeset
439 lisp-source-modes nil)) ; nil because LOAD
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
440 ; doesn't need an exact name
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 (comint-check-source file-name) ; Check to see if buffer needs saved.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 (setq lisp-prev-l/c-dir/file (cons (file-name-directory file-name)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 (file-name-nondirectory file-name)))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
444 (comint-send-string (inferior-lisp-proc)
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
445 (format inferior-lisp-load-command file-name))
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
446 (switch-to-lisp t))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 (defun lisp-compile-file (file-name)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 "Compile a Lisp file in the inferior Lisp process."
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 (interactive (comint-get-source "Compile Lisp file: " lisp-prev-l/c-dir/file
42205
7308bbc423d5 Doc fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 32367
diff changeset
452 lisp-source-modes nil)) ; nil = don't need
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
453 ; suffix .lisp
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 (comint-check-source file-name) ; Check to see if buffer needs saved.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 (setq lisp-prev-l/c-dir/file (cons (file-name-directory file-name)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456 (file-name-nondirectory file-name)))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
457 (comint-send-string (inferior-lisp-proc) (concat "(compile-file \""
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
458 file-name
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
459 "\"\)\n"))
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
460 (switch-to-lisp t))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
462
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 ;;; Documentation functions: function doc, var doc, arglist, and
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 ;;; describe symbol.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 ;;; ===========================================================================
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
468 ;;; Command strings
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469 ;;; ===============
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 (defvar lisp-function-doc-command
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472 "(let ((fn '%s))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473 (format t \"Documentation for ~a:~&~a\"
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 fn (documentation fn 'function))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 (values))\n"
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 "Command to query inferior Lisp for a function's documentation.")
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478 (defvar lisp-var-doc-command
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 "(let ((v '%s))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
480 (format t \"Documentation for ~a:~&~a\"
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 v (documentation v 'variable))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482 (values))\n"
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483 "Command to query inferior Lisp for a variable's documentation.")
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
485 (defvar lisp-arglist-command
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
486 "(let ((fn '%s))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
487 (format t \"Arglist for ~a: ~a\" fn (arglist fn))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
488 (values))\n"
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 "Command to query inferior Lisp for a function's arglist.")
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
491 (defvar lisp-describe-sym-command
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492 "(describe '%s)\n"
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493 "Command to query inferior Lisp for a variable's documentation.")
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
495
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
496 ;;; Ancillary functions
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 ;;; ===================
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 ;;; Reads a string from the user.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 (defun lisp-symprompt (prompt default)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 (list (let* ((prompt (if default
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 (format "%s (default %s): " prompt default)
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
503 (concat prompt ": ")))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 (ans (read-string prompt)))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 (if (zerop (length ans)) default ans))))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 ;;; Adapted from function-called-at-point in help.el.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 (defun lisp-fn-called-at-pt ()
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510 "Returns the name of the function called in the current call.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
511 The value is nil if it can't find one."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 (condition-case nil
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 (save-excursion
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 (save-restriction
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 (narrow-to-region (max (point-min) (- (point) 1000)) (point-max))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 (backward-up-list 1)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 (forward-char 1)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 (let ((obj (read (current-buffer))))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519 (and (symbolp obj) obj))))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 (error nil)))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 ;;; Adapted from variable-at-point in help.el.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524 (defun lisp-var-at-pt ()
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
525 (condition-case ()
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526 (save-excursion
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 (forward-sexp -1)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 (skip-chars-forward "'")
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 (let ((obj (read (current-buffer))))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530 (and (symbolp obj) obj)))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 (error nil)))
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 ;;; Documentation functions: fn and var doc, arglist, and symbol describe.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535 ;;; ======================================================================
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537 (defun lisp-show-function-documentation (fn)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538 "Send a command to the inferior Lisp to give documentation for function FN.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
539 See variable `lisp-function-doc-command'."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 (interactive (lisp-symprompt "Function doc" (lisp-fn-called-at-pt)))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
541 (comint-proc-query (inferior-lisp-proc)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
542 (format lisp-function-doc-command fn)))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
544 (defun lisp-show-variable-documentation (var)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545 "Send a command to the inferior Lisp to give documentation for function FN.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
546 See variable `lisp-var-doc-command'."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 (interactive (lisp-symprompt "Variable doc" (lisp-var-at-pt)))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
548 (comint-proc-query (inferior-lisp-proc) (format lisp-var-doc-command var)))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550 (defun lisp-show-arglist (fn)
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
551 "Send a query to the inferior Lisp for the arglist for function FN.
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
552 See variable `lisp-arglist-command'."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553 (interactive (lisp-symprompt "Arglist" (lisp-fn-called-at-pt)))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
554 (comint-proc-query (inferior-lisp-proc) (format lisp-arglist-command fn)))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556 (defun lisp-describe-sym (sym)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
557 "Send a command to the inferior Lisp to describe symbol SYM.
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
558 See variable `lisp-describe-sym-command'."
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 (interactive (lisp-symprompt "Describe" (lisp-var-at-pt)))
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
560 (comint-proc-query (inferior-lisp-proc)
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
561 (format lisp-describe-sym-command sym)))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
563
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
564 ;; "Returns the current inferior Lisp process.
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
565 ;; See variable `inferior-lisp-buffer'."
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
566 (defun inferior-lisp-proc ()
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567 (let ((proc (get-buffer-process (if (eq major-mode 'inferior-lisp-mode)
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
568 (current-buffer)
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
569 inferior-lisp-buffer))))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570 (or proc
5104
bcf4b8ed1c60 (inferior-lisp-proc): Clean up error message.
Richard M. Stallman <rms@gnu.org>
parents: 3744
diff changeset
571 (error "No Lisp subprocess; see variable `inferior-lisp-buffer'"))))
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
572
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
573
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
574 ;;; Do the user's customisation...
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
575 ;;;===============================
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
576 (defvar inferior-lisp-load-hook nil
3663
25743b083fe8 Doc fixes.
Richard M. Stallman <rms@gnu.org>
parents: 3591
diff changeset
577 "This hook is run when the library `inf-lisp' is loaded.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
578 This is a good place to put keybindings.")
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
579
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
580 (run-hooks 'inferior-lisp-load-hook)
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
581
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
582 ;;; CHANGE LOG
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583 ;;; ===========================================================================
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
584 ;;; 7/21/92 Jim Blandy
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
585 ;;; - Changed all uses of the cmulisp name or prefix to inferior-lisp;
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
586 ;;; this is now the official inferior lisp package. Use the global
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
587 ;;; ChangeLog from now on.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588 ;;; 5/24/90 Olin
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
589 ;;; - Split cmulisp and cmushell modes into separate files.
267
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 ;;; Not only is this a good idea, it's apparently the way it'll be rel 19.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 ;;; - Upgraded process sends to use comint-send-string instead of
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 ;;; process-send-string.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
593 ;;; - Explicit references to process "cmulisp" have been replaced with
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 ;;; (cmulisp-proc). This allows better handling of multiple process bufs.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 ;;; - Added process query and var/function/symbol documentation
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
596 ;;; commands. Based on code written by Douglas Roberts.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
597 ;;; - Added lisp-eval-last-sexp, bound to C-x C-e.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 ;;;
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
599 ;;; 9/20/90 Olin
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600 ;;; Added a save-restriction to lisp-fn-called-at-pt. This bug and fix
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601 ;;; reported by Lennart Staflin.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 ;;;
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
603 ;;; 3/12/90 Olin
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604 ;;; - lisp-load-file and lisp-compile-file no longer switch-to-lisp.
d83efd759350 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605 ;;; Tale suggested this.
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
606 ;;; - Reversed this decision 7/15/91. You need the visual feedback.
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
607 ;;;
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
608 ;;; 7/25/91 Olin
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
609 ;;; Changed all keybindings of the form C-c <letter>. These are
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
610 ;;; supposed to be reserved for the user to bind. This affected
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
611 ;;; mainly the compile/eval-defun/region[-and-go] commands.
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
612 ;;; This was painful, but necessary to adhere to the gnumacs standard.
32367
7c181d033dae use lisp-mode-shared-map instead of shared-lisp-mode-map
Sam Steingold <sds@gnu.org>
parents: 30647
diff changeset
613 ;;; For some backwards compatibility, see the
727
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
614 ;;; cmulisp-install-letter-bindings
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
615 ;;; function.
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
616 ;;;
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
617 ;;; 8/2/91 Olin
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
618 ;;; - The lisp-compile/eval-defun/region commands now take a prefix arg,
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
619 ;;; which means switch-to-lisp after sending the text to the Lisp process.
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
620 ;;; This obsoletes all the -and-go commands. The -and-go commands are
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
621 ;;; kept around for historical reasons, and because the user can bind
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
622 ;;; them to key sequences shorter than C-u C-c C-<letter>.
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
623 ;;; - If M-x cmulisp is invoked with a prefix arg, it allows you to
540b047ece4d *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 662
diff changeset
624 ;;; edit the command line.
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 267
diff changeset
625
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
626 (provide 'inf-lisp)
584
4cd7543be581 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 267
diff changeset
627
835
bb2da66da13c *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 811
diff changeset
628 ;;; inf-lisp.el ends here