Function: opascal-is-block-after-expr-statement

opascal-is-block-after-expr-statement is a byte-compiled function defined in opascal.el.gz.

Signature

(opascal-is-block-after-expr-statement TOKEN)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/opascal.el.gz
(defun opascal-is-block-after-expr-statement (token)
  ;; Returns true if we have a block token trailing an expression delimiter (of
  ;; presumably an expression statement).
  (when (memq (opascal-token-kind token) opascal-block-statements)
    (let ((previous (opascal-previous-token token))
          (previous-kind nil))
      (while (progn
               (setq previous-kind (opascal-token-kind previous))
               (eq previous-kind 'space))
        (setq previous (opascal-previous-token previous)))
      (or (memq previous-kind opascal-expr-delimiters)
          (eq previous-kind 'else)))))