Emacs CUA infinite override key delay test.

gistfile1.el

(require 'lorem-ipsum)

(fset 'lorem-insert
   [?\M-x ?L ?o ?r ?e ?m ?- ?i ?p ?s ?u ?m ?- ?i ?n ?s ?e ?r ?t ?- ?p ?a
          tab return])
(fset 'key-home           [C-home])
(fset 'select-word-right  [C-S-right])
(fset 'select-word-left   [C-S-left])
(fset 'select-word-left   [C-S-left])
(fset 'select-line-right  [S-end])
(fset 'select-line-left   [S-home])
(fset 'down               [down])
(fset 'up                 [up])
(fset 'ret                [return])
(fset 'copy               [?\C-c timeout])
(fset 'cut                [?\C-x timeout])
(fset 'paste              [?\C-v])
(fset 'space              " ")
(fset 'backspace          [backspace])
(fset 'del                [delete])

(defun cua-test-run ()
  (interactive)
  (switch-to-buffer "*cua-test*")
  (execute-kbd-macro 'lorem-insert)
  (let ((iteration-number 0)
        (delay 0.1))
    (while t
      (message (concat "Iteration number: "
                       (int-to-string iteration-number)))
      (incf iteration-number)
      (sit-for delay)
      (execute-kbd-macro 'key-home)
      (sit-for delay)
      (execute-kbd-macro 'select-word-right)
      (sit-for delay)
      (execute-kbd-macro 'copy)
      (sit-for delay)
      (execute-kbd-macro 'space)
      (sit-for delay)
      (execute-kbd-macro 'paste)
      (sit-for delay)
      (execute-kbd-macro 'select-word-left)
      (sit-for delay)
      (execute-kbd-macro 'cut)
      (sit-for delay)
      (execute-kbd-macro 'backspace)
      (sit-for delay)
      (execute-kbd-macro 'key-home)
      (sit-for delay)
      (execute-kbd-macro 'select-line-right)
      (sit-for delay)
      (execute-kbd-macro 'copy)
      (sit-for delay)
      (execute-kbd-macro 'ret)
      (sit-for delay)
      (execute-kbd-macro 'paste)
      (sit-for delay)
      (execute-kbd-macro 'select-line-left)
      (sit-for delay)
      (execute-kbd-macro 'del)
      (execute-kbd-macro 'backspace))))