anchor.diff:      (let* ((keymap (current-mode-keymap))
              (cmd (mode-find-keybind key))
              (buffer (window-buffer))
  -           (prev-modified (buffer-modified-p buffer)))
  +           (prev-modified (buffer-modified-p buffer))
  +           (prev-window-vtop-linum (window-vtop-linum)))
         (prog1 (if cmd
                    (or (cmd-call cmd *universal-argument*)
                        (setq *macro-running-p* nil))
  
positive.code:         (when (and (not *macro-running-p*)
                     (eq buffer (window-buffer)))
            (let ((curr-modified (buffer-modified-p (window-buffer))))
              (when (plusp (buffer-cmp-modified curr-modified prev-modified))
                (syntax-scan-window *current-window*))))))))
  
  (defun main-step ()
  
negative.code:         (lem-init args)
          #+sbcl
          (handler-bind ((sb-sys:interactive-interrupt
                          #'(lambda (c)
                              (sb-debug:backtrace 100 out)))
                         (error
                          #'(lambda (c)
                              (sb-debug:backtrace 100 out))))
            (lem-main))
          #-sbcl
  