cgit.sxemacs.org Git - packages/blob - xemacs-packages/ilisp/ilisp-inp.el

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