Function: f90-in-string

f90-in-string is a byte-compiled function defined in f90.el.gz.

Signature

(f90-in-string)

Documentation

Return non-nil if point is inside a string.

Checks from point-min, or f90-cache-position, if that is non-nil and lies before point.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/f90.el.gz
;; Inline-functions.
(defsubst f90-in-string ()
  "Return non-nil if point is inside a string.
Checks from `point-min', or `f90-cache-position', if that is non-nil
and lies before point."
  (let ((beg-pnt
         (if (and f90-cache-position (> (point) f90-cache-position))
             f90-cache-position
           (point-min))))
    (nth 3 (parse-partial-sexp beg-pnt (point)))))