Lines Matching defs:end
32 (defsubst casl-indent-get-end-of-line (&optional arg)
34 (end-of-line arg)
136 (defun casl-indent-skip-blanks-and-newlines-forward (end)
138 (skip-chars-forward " \t\n" end)
173 (defun casl-indent-open-structure (start end)
177 (let ((pps (parse-partial-sexp start end)))
182 (defun casl-indent-in-comment (start end)
185 (cond ((> start end) end)
186 ((= start end) nil)
198 (t (let ((pps (parse-partial-sexp start end)))
233 (defun casl-indent-contour-line (start end)
235 (if (< start end)
240 (goto-char end)
253 (defun casl-indent-next-symbol (end)
256 (< (point) end))
258 (if (< (point) end)
261 (casl-indent-skip-blanks-and-newlines-forward end))
264 (defun casl-indent-separate-valdef (start end)
280 (match-end 0)))
281 (goto-char (match-end 0)))
282 (skip-chars-forward " \t" end)
284 (casl-indent-next-symbol end))
285 (while (and (< (point) end)
290 (casl-indent-next-symbol end))))
291 (if (and (< (point) end) (eq type 'rhs)) ; start of a rhs
294 (goto-char (match-end 0))
295 (while (and (< (point) end)
300 (casl-indent-next-symbol end))))
301 (if (and (< (point) end) (eq type 'guard)) ; start of a guard
304 (goto-char (match-end 0))
305 (if (< (point) end)
311 (defun casl-indent-guard (start end end-visible indent-info)
314 (let* ((sep (casl-indent-separate-valdef start end))
319 (if (and guard (< guard end-visible))
328 (defun casl-indent-rhs (start end end-visible indent-info)
331 (let* ((sep (casl-indent-separate-valdef start end))
336 (if (and rhs-sign (< rhs-sign end-visible))
338 (if (and guard (< guard end-visible))
345 (defun casl-indent-comment (start end indent-info)
353 (let ((comment-start (casl-indent-in-comment start end)))
360 (casl-indent-skip-blanks-and-newlines-forward end)
390 (defun casl-indent-empty (start end end-visible indent-info)
394 ((sep (casl-indent-separate-valdef start end))
402 (last-line (= end end-visible))
405 (if (and aft-valname (< aft-valname end-visible)) "1" "0")
406 (if (and rhs-sign (< rhs-sign end-visible)) "1" "0")
407 (if (and aft-rhs-sign (< aft-rhs-sign end-visible)) "1" "0")
408 (if (and guard (< guard end-visible)) "1" "0")
409 (if (and aft-guard (< aft-guard end-visible)) "1" "0")))
455 (defun casl-indent-ident (start end end-visible indent-info)
459 ((sep (casl-indent-separate-valdef start end))
467 (last-line (= end end-visible))
470 (if (and aft-valname (< aft-valname end-visible)) "1" "0")
471 (if (and rhs-sign (< rhs-sign end-visible)) "1" "0")
472 (if (and aft-rhs-sign (< aft-rhs-sign end-visible)) "1" "0")
473 (if (and guard (< guard end-visible)) "1" "0")
474 (if (and aft-guard (< aft-guard end-visible)) "1" "0")))
515 (defun casl-indent-other (start end end-visible indent-info)
520 ((sep (casl-indent-separate-valdef start end))
528 (last-line (= end end-visible))
533 (if (and aft-valname (< aft-valname end-visible)) "1" "0")
534 (if (and rhs-sign (< rhs-sign end-visible)) "1" "0")
535 (if (and aft-rhs-sign (< aft-rhs-sign end-visible)) "1" "0")
536 (if (and guard (< guard end-visible)) "1" "0")
537 (if (and aft-guard (< aft-guard end-visible)) "1" "0")))
564 (defun casl-indent-valdef-indentation (start end end-visible curr-line-type
567 (if (< start end-visible)
569 ('empty (casl-indent-empty start end end-visible indent-info))
570 ('ident (casl-indent-ident start end end-visible indent-info))
571 ('guard (casl-indent-guard start end end-visible indent-info))
572 ('rhs (casl-indent-rhs start end end-visible indent-info))
574 ('other (casl-indent-other start end end-visible indent-info)))
577 (defun casl-indent-line-indentation (line-start line-end end-visible
582 (let (end-match beg-match start-comment)
584 (setq start-comment (casl-indent-in-comment line-start line-end))
585 (if start-comment ; if comment at the end
586 (setq line-end (- start-comment 1))) ; end line before it
588 (while (re-search-forward casl-indent-off-side-keywords-re line-end t)
590 (setq end-match (match-end 0)) ; save end of match
595 line-start ; end line before comment
597 end-visible curr-line-type indent-info))
598 ;skip past end of comment
599 (re-search-forward "\}%[ \t]*" line-end 'move)
605 end-visible
608 (if (= line-end end-match)
610 (setq line-start end-match)
613 (casl-indent-valdef-indentation line-start line-end end-visible
621 (end (progn (casl-indent-back-to-indentation) (point)))
624 (if (setq open (casl-indent-open-structure start end))
631 (casl-indent-skip-blanks-and-newlines-forward end)
633 (if (= follow end)
637 (if (casl-indent-in-comment start end)
639 (end-of-line 0) ; put point at the end of preceding line before
644 (setq contour-line (casl-indent-contour-line start end))
647 line-start line-end end-visible)
653 (casl-indent-get-end-of-line)))
663 (setq line-end (casl-indent-get-end-of-line))
664 (setq end-visible ; visible until the column of the
670 line-end))
674 (casl-indent-line-indentation line-start line-end
675 end-visible curr-line-type
710 (or il (setq il indent-list)) ; if at the end of insertion, restart
727 Elements of the stack are pairs of points giving the start and end
729 (let (reg col diffcol reg-end)
731 (setq reg-end (copy-marker (cdr reg)))
736 (catch 'end-of-buffer
737 (while (<= (point) (marker-position reg-end))
741 (end-of-line 2) ; should be (forward-line 1)
742 (if (eobp) ; but it adds line at the end...
743 (throw 'end-of-buffer nil))