Function: lisp-extended-loop-p

lisp-extended-loop-p is a byte-compiled function defined in cl-indent.el.gz.

Signature

(lisp-extended-loop-p LOOP-START)

Documentation

True if an extended loop form starts at LOOP-START.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/cl-indent.el.gz
(defun lisp-extended-loop-p (loop-start)
  "True if an extended loop form starts at LOOP-START."
  (condition-case ()
      (save-excursion
	(goto-char loop-start)
	(forward-char 1)
	(forward-sexp 2)
	(backward-sexp 1)
	(looking-at "\\(:\\|\\sw\\)"))
    (error t)))