Function: decipher-add-undo

decipher-add-undo is a byte-compiled function defined in decipher.el.gz.

Signature

(decipher-add-undo UNDO-REC)

Documentation

Add UNDO-REC to the undo list.

Source Code

;; Defined in /usr/src/emacs/lisp/play/decipher.el.gz
(defun decipher-add-undo (undo-rec)
  "Add UNDO-REC to the undo list."
  (if undo-rec
      (progn
        (push undo-rec decipher-undo-list)
        (incf decipher-undo-list-size)
        (if (> decipher-undo-list-size decipher-undo-limit)
            (let ((new-size (- decipher-undo-limit 100)))
              ;; Truncate undo list to NEW-SIZE elements:
              (setcdr (nthcdr (1- new-size) decipher-undo-list) nil)
              (setq decipher-undo-list-size new-size))))))