Function: forms-enumerate

forms-enumerate is a byte-compiled function defined in forms.el.gz.

Signature

(forms-enumerate THE-FIELDS)

Documentation

Take a quoted list of symbols, and set their values to sequential numbers.

The first symbol gets number 1, the second 2 and so on. It returns the highest number.

Usage: (setq forms-number-of-fields
             (forms-enumerate
              '(field1 field2 field2 ...)))

Source Code

;; Defined in /usr/src/emacs/lisp/forms.el.gz
;;;
;;; Special service
;;;
(defun forms-enumerate (the-fields)
  "Take a quoted list of symbols, and set their values to sequential numbers.
The first symbol gets number 1, the second 2 and so on.
It returns the highest number.

Usage: (setq forms-number-of-fields
             (forms-enumerate
              \\='(field1 field2 field2 ...)))"

  (let ((the-index 0))
    (while the-fields
      (setq the-index (1+ the-index))
      (let ((el (car-safe the-fields)))
	(setq the-fields (cdr-safe the-fields))
	(set el the-index)))
    the-index))