1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
;;; -*- Mode: Emacs-Lisp -*-
;;; ilisp-inp.el --
;;; ILISP input functions
;;;
;;; This file is part of ILISP.
;;; Please refer to the file COPYING for copyrights and licensing
;;; information.
;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
;;; of present and past contributors.
;;;
;;; $Id: ilisp-inp.el,v 1.3 2001-07-02 09:40:47 youngs Exp $
;;;%%Input
(defun lisp-at-start ()
"Return `point' when at start of an input expression in an inferior Lisp."
(save-excursion
(let ((point (point)))
(beginning-of-line)
(comint-skip-prompt)
(if (= point (point))
point))))
(defun lisp-input-start ()
"Go to the start of the input region."
(let* ((pmark (process-mark (get-buffer-process (current-buffer)))))
(if (>= (point) pmark)
(goto-char pmark)
(progn
(end-of-line)
(if (re-search-backward comint-prompt-regexp (point-min) 'stay)
(comint-skip-prompt)
(point))))))
;;; end of file -- ilisp-inp.el --
|
