backspace--or-delete-region-fix-space

;; attempt #1
(defun szr/backspace--or-delete-region-fix-space (beginning end)
  (interactive "r")

  ;; if region is active
  (if (use-region-p)

      ;; then
      (
       (delete-region (beginning) (end) )
 (just-one-space)
        (when (looking-back "^[[:space:]]+") (delete-horizontal-space)
      (just-one-space 0))
       )

    ;; else

      (new-org-delete-backward-char)))


;; attempt #2
(defun szr/backspace--or-delete-region-fix-space (beg end)
  (interactive  (if (use-region-p)
                    (delete-region (region-beginning) (region-end))
                  (just-one-space)
                  (when (looking-back "^[[:space:]]+") (delete-horizontal-space)
                        (just-one-space 0))
                  )

    ;; else

                (new-org-delete-backward-char 1)))