Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-cmt.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 ;;; ilisp-cmt.el --
4
5 ;;; This file is part of ILISP.
6 ;;; Version: 5.7
7 ;;;
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
9 ;;; 1993, 1994 Ivan Vasquez
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker
11 ;;;
12 ;;; Other authors' names for which this Copyright notice also holds
13 ;;; may appear later in this file.
14 ;;;
15 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
16 ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
17 ;;; mailing list were bugs and improvements are discussed.
18 ;;;
19 ;;; ILISP is freely redistributable under the terms found in the file
20 ;;; COPYING.
21
22
23 ;;;
24 ;;; ILISP comint interface code.
25 ;;;
26 ;;;
27
28
29 ;;;%Process interface
30 ;;;%%Comint
31 (defun ilisp-get-old-input ()
32 "Snarf the sexp starting at the nearest previous prompt, or NIL if none."
33 (save-excursion
34 (let* ((begin (lisp-defun-begin))
35 (pmark (process-mark (get-buffer-process (current-buffer))))
36 (once (if (< (point) pmark)
37 (save-excursion (end-of-line) (point))))
38 (end nil)
39 (done nil))
40 (condition-case ()
41 (while (and (not done) (< (point) (point-max)))
42 (forward-sexp)
43 (setq end (point))
44 (skip-chars-forward " \t\n")
45 (if (and once (>= (point) once)) (setq done t)))
46 (error (setq end nil)))
47 (if end (buffer-substring begin end)))))
48
49 ;;;
50 (defun ilisp-input-filter (str)
51 "Don't save anything matching ilisp-filter-regexp or less than
52 ilisp-filter-length long."
53 (and (not (string-match ilisp-filter-regexp str))
54 (> (length str) ilisp-filter-length)))
55
56 ;;;
57 (defun ilisp-error-filter (output)
58 "Keep from OUTPUT only what matches ilisp-error-regexp or everything
59 if there is no match."
60 (if (string-match (ilisp-value 'ilisp-error-regexp) output)
61 (substring output (match-beginning 0) (match-end 0))
62 output))
63
64
65
66 (defun newline-and-indent-lisp ()
67 "If at the end of the buffer, send the string back to the process
68 mark with no newline. Otherwise, insert a newline, then indent. In
69 an ilisp buffer the region is narrowed first. See newline-and-indent
70 for more information."
71 (interactive "*")
72 (if ilisp-complete
73 (exit-minibuffer)
74 (let (input)
75 (if (and (= (point) (point-max))
76 (memq major-mode ilisp-modes)
77 (setq input (ilisp-get-old-input)))
78 (let ((process (ilisp-process))
79 (comint-send-newline (not comint-send-newline)))
80 (funcall comint-input-sender process input)
81 (set-marker (process-mark process) (point)))
82 (save-restriction
83 (if (memq major-mode ilisp-modes)
84 (narrow-to-region (save-excursion (lisp-input-start))
85 (point-max)))
86 (newline-and-indent))))))
87