Function: perl--end-of-format-p

perl--end-of-format-p is a byte-compiled function defined in perl-mode.el.gz.

Signature

(perl--end-of-format-p)

Documentation

Non-nil if point is at the end of a format declaration, skipping whitespace.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/perl-mode.el.gz
(defun perl--end-of-format-p ()
  "Non-nil if point is at the end of a format declaration, skipping whitespace."
  (save-excursion
    (skip-chars-backward " \t\n")
    (beginning-of-line)
    (when-let ((comm (and (looking-at "^\\.$")
                          (nth 8 (syntax-ppss)))))
      (goto-char comm)
      (beginning-of-line)
      (looking-at perl--format-regexp))))