Function: decipher-loop-no-breaks

decipher-loop-no-breaks is a byte-compiled function defined in decipher.el.gz.

Signature

(decipher-loop-no-breaks FUNC)

Documentation

Loop through ciphertext, calling FUNC once for each letter.

FUNC is called with no arguments, and its return value is unimportant. It may examine decipher-char to see the current ciphertext letter. decipher-char contains an uppercase letter.

Punctuation and spacing in the ciphertext are ignored. See decipher-loop-with-breaks if you care about word divisions.

Source Code

;; Defined in /usr/src/emacs/lisp/play/decipher.el.gz
(defun decipher-loop-no-breaks (func)
  "Loop through ciphertext, calling FUNC once for each letter.

FUNC is called with no arguments, and its return value is unimportant.
It may examine `decipher-char' to see the current ciphertext letter.
`decipher-char' contains an uppercase letter.

Punctuation and spacing in the ciphertext are ignored.
See `decipher-loop-with-breaks' if you care about word divisions."
  (let (decipher-char)
    (save-excursion
      (goto-char (point-min))
      (while (search-forward-regexp "^:" nil t)
        (while (not (eolp))
          (setq decipher-char (upcase (following-char)))
          (and (>= decipher-char ?A)
               (<= decipher-char ?Z)
               (funcall func))
          (forward-char))))))