Function: opascal-word-token-at

opascal-word-token-at is a byte-compiled function defined in opascal.el.gz.

Signature

(opascal-word-token-at P)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/opascal.el.gz
(defun opascal-word-token-at (p)
  ;; If point p is over a word (i.e. identifier characters), then return a word
  ;; token. If the word is actually a keyword, then return the keyword token.
  (let ((word (opascal-charset-token-at p opascal-word-chars 'word)))
    (when word
      (let* ((word-image (downcase (opascal-token-string word)))
             (keyword (intern-soft word-image)))
        (when (and (or keyword (string= "nil" word-image))
                   (memq keyword opascal-keywords))
          (opascal-set-token-kind word keyword))
        word))))