Cross Reference: /hets/utils/el/casl-indent.el

Lines Matching defs:and
10 (require 'cl)                           ;need defs of push and pop
80        (if (and indent-info (equal tmp (car indent-info)))
136 (defun casl-indent-skip-blanks-and-newlines-forward (end)
137   "Skips forward blanks, tabs and newlines until END."
141 (defun casl-indent-skip-blanks-and-newlines-backward (start)
142   "Skips backward blanks, tabs and newlines upto START."
160       (while (and (not (casl-indent-empty-line-p))
167       (while (and (casl-indent-in-comment start-code (point))
169       (casl-indent-skip-blanks-and-newlines-forward save-point)
174   "If any structure (list or tuple) is not closed, between START and END,
192              ((and (= (preceding-char) ?%) ; on the second char ?
210       "\\<\\(with\\|to\\|and\\|hide\\)\\>[ \t]*")
234   "Generates contour information between START and END points."
241           (casl-indent-skip-blanks-and-newlines-backward start)
242           (while (and (> cur-col 0) (= fl 0) (>= (point) start))
244             (and (not (member (casl-indent-type-at-point)
245                               '(empty comment))) ; skip empty and comment lines
255   (while (and (looking-at "\\s)")       ;skip closing parentheses
261        (casl-indent-skip-blanks-and-newlines-forward end))
285             (while (and (< (point) end)
291       (if (and (< (point) end) (eq type 'rhs)) ; start of a rhs
295             (while (and (< (point) end)
301       (if (and (< (point) end) (eq type 'guard)) ; start of a guard
319       (if (and guard (< guard end-visible))
336       (if (and rhs-sign (< rhs-sign end-visible))
338 	(if (and guard (< guard end-visible))
347 If the previous line (between START and END) is also a comment line
360             (casl-indent-skip-blanks-and-newlines-forward end)
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")))
412       (if (and valname-string           ; special case for start keywords
418 	(if (and valname-string
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")))
476       (if (and valname-string           ; special case for start keywords
485 	(if (and valname-string
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")))
539       (if (and valname-string           ; special case for start keywords
580 and find indentation info for each part."
631 			   (casl-indent-skip-blanks-and-newlines-forward end)
671 		  (if (and (not (casl-indent-open-structure start line-start))
695 Any other key or mouse click terminates the cycle and is interpreted 
727 Elements of the stack are pairs of points giving the start and end
751 ;;; the casl-mode of Graeme E Moss and Tommy Thorn