Lines Matching defs:current
41 (current-column)))
105 "Checks if the current line is empty."
116 (defun casl-indent-current-indentation ()
117 "`current-indentation' function."
118 (current-indentation)
156 ;; determine the starting point of the current piece of code
230 (defvar casl-indent-current-line-first-ident ""
246 (< (current-column) cur-col) ; less indented column found
248 (setq cur-col (current-column)))
363 (casl-indent-push-col (casl-indent-current-indentation)))))
482 casl-indent-current-line-first-ident))
530 ; (string-match "where[ \t]*" casl-indent-current-line-first-ident))
618 "Returns a list of possible indentations for the current line that
657 (setq casl-indent-current-line-first-ident
659 (setq casl-indent-current-line-first-ident ""))))
699 (if (> (current-column) (casl-indent-current-indentation))
733 (setq col (current-column))
775 in the current buffer.")