Lines Matching defs:indent
35 ;; syntax they highlight/indent/index, but dsssl-mode uses "^;;;" as
148 (make-local-variable 'indent-line-function)
149 (setq indent-line-function 'lisp-indent-line)
165 (make-local-variable 'lisp-indent-function)
166 (setq lisp-indent-function 'scheme-indent-function)
198 (define-key map [indent-region] '("Indent Region" . indent-region))
199 (define-key map [indent-line] '("Indent Line" . lisp-indent-line))
202 (put 'indent-region 'menu-enable 'mark-active)
209 ;;(define-key map "\t" 'indent-for-tab-command) ; default
211 (define-key map "\e\C-q" 'indent-sexp))
432 (put 'element 'scheme-indent-function 1)
433 (put 'mode 'scheme-indent-function 1)
434 (put 'with-mode 'scheme-indent-function 1)
435 (put 'make 'scheme-indent-function 1)
436 (put 'style 'scheme-indent-function 1)
437 (put 'root 'scheme-indent-function 1)
469 (defvar calculate-lisp-indent-last-sexp)
471 ;; Copied from lisp-indent-function, but with gets of
472 ;; scheme-indent-{function,hook}.
473 (defun scheme-indent-function (indent-point state)
474 (let ((normal-indent (current-column)))
476 (parse-partial-sexp (point) calculate-lisp-indent-last-sexp 0 t)
482 calculate-lisp-indent-last-sexp))
483 (progn (goto-char calculate-lisp-indent-last-sexp)
486 calculate-lisp-indent-last-sexp 0 t)))
488 ;; line as calculate-lisp-indent-last-sexp. Note that first
496 (setq method (or (get (intern-soft function) 'scheme-indent-function)
497 (get (intern-soft function) 'scheme-indent-hook)))
502 (lisp-indent-defform state indent-point))
504 (lisp-indent-specform method state
505 indent-point normal-indent))
507 (funcall method state indent-point normal-indent)))))))
525 ;;(defun scheme-let-indent (state indent-point)
527 ;; (scheme-indent-specform 2 state indent-point)
528 ;; (scheme-indent-specform 1 state indent-point)))
530 (defun scheme-let-indent (state indent-point normal-indent)
533 (lisp-indent-specform 2 state indent-point normal-indent)
534 (lisp-indent-specform 1 state indent-point normal-indent)))
536 ;; (put 'begin 'scheme-indent-function 0), say, causes begin to be indented
540 (put 'begin 'scheme-indent-function 0)
541 (put 'case 'scheme-indent-function 1)
542 (put 'delay 'scheme-indent-function 0)
543 (put 'do 'scheme-indent-function 2)
544 (put 'lambda 'scheme-indent-function 1)
545 (put 'let 'scheme-indent-function 'scheme-let-indent)
546 (put 'let* 'scheme-indent-function 1)
547 (put 'letrec 'scheme-indent-function 1)
548 (put 'sequence 'scheme-indent-function 0) ; SICP, not r4rs
549 (put 'let-syntax 'scheme-indent-function 1)
550 (put 'letrec-syntax 'scheme-indent-function 1)
551 (put 'syntax-rules 'scheme-indent-function 1)
552 (put 'syntax-case 'scheme-indent-function 2) ; not r5rs
554 (put 'call-with-input-file 'scheme-indent-function 1)
555 (put 'with-input-from-file 'scheme-indent-function 1)
556 (put 'with-input-from-port 'scheme-indent-function 1)
557 (put 'call-with-output-file 'scheme-indent-function 1)
558 (put 'with-output-to-file 'scheme-indent-function 1)
559 (put 'with-output-to-port 'scheme-indent-function 1)
560 (put 'call-with-values 'scheme-indent-function 1) ; r5rs?
561 (put 'dynamic-wind 'scheme-indent-function 3) ; r5rs?
568 (put 'fluid-let 'scheme-indent-function 1)
569 (put 'in-package 'scheme-indent-function 1)
570 (put 'local-declare 'scheme-indent-function 1)
571 (put 'macro 'scheme-indent-function 1)
572 (put 'make-environment 'scheme-indent-function 0)
573 (put 'named-lambda 'scheme-indent-function 1)
574 (put 'using-syntax 'scheme-indent-function 1)
576 (put 'with-input-from-string 'scheme-indent-function 1)
577 (put 'with-output-to-string 'scheme-indent-function 0)
578 (put 'with-values 'scheme-indent-function 1)
580 (put 'syntax-table-define 'scheme-indent-function 2)
581 (put 'list-transform-positive 'scheme-indent-function 1)
582 (put 'list-transform-negative 'scheme-indent-function 1)
583 (put 'list-search-positive 'scheme-indent-function 1)
584 (put 'list-search-negative 'scheme-indent-function 1)
586 (put 'access-components 'scheme-indent-function 1)
587 (put 'assignment-components 'scheme-indent-function 1)
588 (put 'combination-components 'scheme-indent-function 1)
589 (put 'comment-components 'scheme-indent-function 1)
590 (put 'conditional-components 'scheme-indent-function 1)
591 (put 'disjunction-components 'scheme-indent-function 1)
592 (put 'declaration-components 'scheme-indent-function 1)
593 (put 'definition-components 'scheme-indent-function 1)
594 (put 'delay-components 'scheme-indent-function 1)
595 (put 'in-package-components 'scheme-indent-function 1)
596 (put 'lambda-components 'scheme-indent-function 1)
597 (put 'lambda-components* 'scheme-indent-function 1)
598 (put 'lambda-components** 'scheme-indent-function 1)
599 (put 'open-block-components 'scheme-indent-function 1)
600 (put 'pathname-components 'scheme-indent-function 1)
601 (put 'procedure-components 'scheme-indent-function 1)
602 (put 'sequence-components 'scheme-indent-function 1)
603 (put 'unassigned\?-components 'scheme-indent-function 1)
604 (put 'unbound\?-components 'scheme-indent-function 1)
605 (put 'variable-components 'scheme-indent-function 1)))