Lines Matching defs:of
10 (require 'cl) ;need defs of push and pop
18 "*Indentation of casl statements with respect to containing block."
27 (defsubst casl-indent-get-beg-of-line (&optional arg)
29 (beginning-of-line arg)
32 (defsubst casl-indent-get-end-of-line (&optional arg)
34 (end-of-line arg)
38 "Returns the column number of APOINT."
48 of a line.")
58 ;;; customizations for different kinds of environments
96 ;;; redefinition of some Emacs function for dealing with
107 (beginning-of-line)
147 ;;; Start of indentation code
149 (defun casl-indent-start-of-def ()
150 "Returns the position of the start of a definition.
156 ;; determine the starting point of the current piece of code
166 ;; find the first line of code which is not a comment
175 returns the location of the opening symbol, nil otherwise."
184 the location of the start of the comment, nil otherwise."
190 ((looking-at "%{\\|%%\\|%\\[\\|%\(") ; on the first char of a comment ?
204 (casl-indent-get-beg-of-line) t))))
213 "Returns the type of the line (also puts information in `match-data')."
231 "Global variable that keeps track of the first ident of the line to indent.")
238 (fl 0) ; number of lines that forward-line could not advance
265 "Returns a list of positions for important parts of a valdef."
274 (if (or (eq type 'ident) (eq type 'other)) ; possible start of a value def
291 (if (and (< (point) end) (eq type 'rhs)) ; start of a rhs
301 (if (and (< (point) end) (eq type 'guard)) ; start of a guard
383 ;; use the fact that the resulting match-data is a list of the form
384 ;; (0 6 [2*(n-1) nil] 0 6) where n is the number of the matching regexp
579 "Separate a line of program into valdefs between offside keywords
589 (setq beg-match (match-beginning 0)); save beginning of match
590 (setq end-match (match-end 0)) ; save end of match
598 ;skip past end of comment
607 ;; but keep the start of the line if keyword alone on the line
618 "Returns a list of possible indentations for the current line that
620 (let ((start (casl-indent-start-of-def))
639 (end-of-line 0) ; put point at the end of preceding line before
641 (casl-indent-comment (casl-indent-get-beg-of-line)
650 (progn ; guess the type of line
653 (casl-indent-get-end-of-line)))
654 ;; if the first ident is where or the start of a def
663 (setq line-end (casl-indent-get-end-of-line))
664 (setq end-visible ; visible until the column of the
685 of `event-basic-type'. Needed for dealing with the case that Emacs
696 with the exception of the RET key which merely exits the cycle."
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
728 of the regions to move."
736 (catch 'end-of-buffer
741 (end-of-line 2) ; should be (forward-line 1)
743 (throw 'end-of-buffer nil))
751 ;;; the casl-mode of Graeme E Moss and Tommy Thorn
766 the layout rule of casl."
786 the layout rule of casl.