Lines Matching defs:indent
34 (require "indent")
66 ;; Boolean. Move cursor to the indent column after pressing <Enter>?
67 (:newline-indent . t)
73 ;; This should default to T when newline-indent is not NIL.
78 (:disable-indent . nil)
83 (defindent *lisp-mode-indent* :main
85 (indtoken "^\\s*" :indent
168 (:indent :element)))
174 (:indent :symbol)))
180 ;; indent |
182 (indinit (indent 0))
193 ((:indent :oparen))
195 *indent* (offset-indentation (+ *ind-offset* *ind-length*) :resolve t)
196 indent *indent*)
197 (indent-macro-reject-left))
206 *indent*
208 (+ *ind-offset* *ind-length* -1 *base-indent*) :align t))
209 (push *indent* stack)
210 (incf indent *base-indent*)
211 (if (< *indent* indent) (setq *indent* indent)))
214 (decf indent *base-indent*)
215 (setq *indent* (pop stack))
217 (setq *indent* indent)
218 (setq *indent* (car stack))))
226 (defun lisp-offset-indent (&aux char (point (scan (point) :eol :left)))
228 (while (member (setq char (char-after point)) indent-spaces)
232 (defun lisp-should-indent (options &aux char point start)
236 (indent-clear-empty-line))
239 (and (gethash :disable-indent options)
240 (return-from lisp-should-indent))
249 (return-from lisp-should-indent (gethash :newline-indent options)))
252 (and (= point (1+ start)) (return-from lisp-should-indent t))
258 (and (> point start) (member (char-before point) indent-spaces))
260 (return-from lisp-should-indent (<= point start)))
262 ;; should not indent
265 (defun lisp-indent (syntax syntable)
268 *base-indent*)
270 (or (lisp-should-indent options) (return-from lisp-indent))
272 (setq *base-indent* (gethash :indentation options 2))
274 (indent-macro
275 *lisp-mode-indent*
276 (lisp-offset-indent)
279 (compile 'lisp-indent)
281 (defsyntax *lisp-mode* :main nil #'lisp-indent *lisp-mode-options*