 
 (defun wo-looper (n)
   "Wo +n od. -n margin ist 1-16"
-  (if (plusp n)
+  (if (cl-plusp n)
       (if (equal wo 16)
           (setq wo 1)
         (setq wo (+ wo n)))

  (interactive)
  (let* ((pos-res (if (numberp pos)(number-to-string pos)
                    (format "'%s" pos)))
         (cmd-gen (concatenate 'string
                               "(s" " "
                               pos-res " "
                               (number-to-string ∂)

            
            (define-key map (kbd "SPC") 'hijack-spc)
            (define-key map (kbd "DEL") 'hijack-del)
            (define-key map (kbd "<backspace>") 'hijack-del)
            
            (define-key map (kbd "C-a")
              (lambda()(interactive)
