diff options
| author | Jim Blandy <jimb@redhat.com> | 1992-08-12 12:50:10 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1992-08-12 12:50:10 +0000 |
| commit | 7e1dae733a5eda79d5681349ca39bfc36ca27871 (patch) | |
| tree | ac88eef920fb50a8ece8593ee46a8f46160e6311 /lisp/progmodes/inf-lisp.el | |
| parent | 9f34a2a0c82e7323e825471b10b54fa60ea8859f (diff) | |
| download | emacs-7e1dae733a5eda79d5681349ca39bfc36ca27871.tar.gz emacs-7e1dae733a5eda79d5681349ca39bfc36ca27871.tar.bz2 emacs-7e1dae733a5eda79d5681349ca39bfc36ca27871.zip | |
entered into RCS
Diffstat (limited to 'lisp/progmodes/inf-lisp.el')
| -rw-r--r-- | lisp/progmodes/inf-lisp.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/progmodes/inf-lisp.el b/lisp/progmodes/inf-lisp.el index 820ae27389e..5706990ea56 100644 --- a/lisp/progmodes/inf-lisp.el +++ b/lisp/progmodes/inf-lisp.el @@ -142,6 +142,7 @@ (require 'lisp-mode) +;;;###autoload (defvar inferior-lisp-filter-regexp "\\`\\s *\\(:\\(\\w\\|\\s_\\)\\)?\\s *\\'" "*What not to save on inferior Lisp's input history Input matching this regexp is not saved on the input history in inferior-lisp @@ -212,9 +213,11 @@ You can modify this function to install just the bindings you want." 'lisp-show-variable-documentation)) +;;;###autoload (defvar inferior-lisp-program "lisp" "*Program name for invoking an inferior Lisp with `inferior-lisp'.") +;;;###autoload (defvar inferior-lisp-load-command "(load \"%s\")\n" "*Format-string for building a Lisp expression to load a file. This format string should use %s to substitute a file name @@ -224,6 +227,7 @@ The string \"(progn (load \\\"%s\\\" :verbose nil :print t) (values))\\\n\" produces cosmetically superior output for this application, but it works only in Common Lisp.") +;;;###autoload (defvar inferior-lisp-prompt "^[^> ]*>+:? *" "Regexp to recognise prompts in the inferior Lisp. Defaults to \"^[^> ]*>+:? *\", which works pretty good for Lucid, kcl, @@ -237,6 +241,7 @@ kcl: \"^>+ *\" This is a fine thing to set in your .emacs file.") +;;;###autoload (defvar inferior-lisp-mode-hook '() "*Hook for customising inferior-lisp mode") @@ -304,6 +309,7 @@ to continue it." "Don't save anything matching inferior-lisp-filter-regexp" (not (string-match inferior-lisp-filter-regexp str))) +;;;###autoload (defun inferior-lisp (cmd) "Run an inferior Lisp process, input and output via buffer *inferior-lisp*. If there is a process already running in *inferior-lisp*, just switch |