anchor.diff:          (t
            (message "Start macro")
            (setq *macro-recording-p* t)
  -         (setq *macro-chars* nil)
  +         (setq *temp-macro-chars* nil)
            t)))
   
   (define-key *global-keymap* (kbd "C-x )") 'end-macro)
  
positive.code: (defvar *last-read-key-sequence*)
  
  (defvar *macro-recording-p* nil)
  (defvar *macro-chars* nil)
  (defvar *macro-running-p* nil)
  
  (defun macro-running-p () *macro-running-p*)
  
negative.code:         (t
           (let ((*macro-running-p* t))
             (loop
               :repeat n
               :while (execute-key-sequence *last-macro-chars*)
               :finally (return t))))))
  
  (define-command apply-macro-to-region-lines () ()
    (apply-region-lines (region-beginning)
  