(defun string-width-in-region (start end)
  (interactive "r")
  (princ (string-width (buffer-substring start end))))