(insert (format "%s" fed))
(when (= (length fed) 0) (insert " ")) ;; add extra space if fed is empty
(insert-char ?\s (- 12 (length idfide)))
(insert (format "%s" fed))
(when (= (length fed) 0) (insert " ")) ;; add extra space if fed is empty
(insert-char ?\s (- 12 (length idfide)))