             
             (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)

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


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