1. xemacs
  2. ilisp


ilisp / ilisp-inp.el

;;; -*- 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$

(defun lisp-at-start ()
  "Return `point' when at start of an input expression in an inferior Lisp."
    (let ((point (point)))
      (if (= 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)
	  (if (re-search-backward comint-prompt-regexp (point-min) 'stay)

;;; end of file -- ilisp-inp.el --