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

   1 ;;; -*- Mode: Emacs-Lisp -*-
   2
   3 ;;; ilisp-ind.el --
   4 ;;; ILISP indentation
   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-ind.el,v 1.3 2001-07-02 09:40:47 youngs Exp $
  13
  14
  15 ;;;%Indentation
  16 (defun indent-line-ilisp (&optional whole-exp)
  17   "Indent current line as Lisp code.
  18 With argument, indent any additional lines of the same expression
  19 rigidly along with this one.  This is restricted to the current buffer input."
  20   (interactive "P")
  21   (save-restriction
  22     (if (memq major-mode ilisp-modes)
  23         (narrow-to-region (save-excursion (lisp-input-start)) (point-max)))
  24     (lisp-indent-line whole-exp)))
  25
  26 ;;;
  27 (defun indent-sexp-ilisp ()
  28   "Indent each line of the list starting just after point."
  29   (interactive)
  30   (save-restriction
  31     (if (memq major-mode ilisp-modes)
  32         (narrow-to-region (save-excursion (lisp-input-start)) (point-max)))
  33     (indent-sexp)))
  34
  35 ;;; end of file -- ilisp-ind.el --