Function: opascal--scan-non-whitespace-backward

opascal--scan-non-whitespace-backward is a macro defined in opascal.el.gz.

Signature

(opascal--scan-non-whitespace-backward TOKEN-VAR LAST-VAR &rest PCASES)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/opascal.el.gz
(defmacro opascal--scan-non-whitespace-backward (token-var last-var
                                                 &rest pcases)
  (declare (debug (symbolp symbolp &rest (pcase-PAT body)))
           (indent 2))
  `(let ((,token-var ,token-var))
     (while (setq ,token-var (opascal-previous-token ,token-var))
       ,(macroexp-let2 nil kind-var `(opascal-token-kind ,token-var)
          `(unless (memq ,kind-var opascal-whitespace)
             (pcase ,kind-var
               ,@pcases)
             ,(when last-var `(setq ,last-var ,token-var)))))))