Napisałem taki kod:
Kiedy uruchamiam go jako M-x cup M-x cup ... to wynik jest poprawny.
Kiedy uruchamiam go jako M-x C-g M-x C-g ... to też jest ok (chociaż sposób uruchamianie jest <lol>)
Jak uruchamiam C-i C-i C-i ... to cały czas pokazuje się ten sam znak. Nie wiem czemu. Ktoś wie i mi powie?

(defun copy-char-from-line-above ()
  "Copies one character from same column but previous row"
  (interactive)
  (let (c)
    (save-excursion
       (previous-line)
       (setq c (buffer-substring-no-properties (point) (+ (point) 1)))
    )
    (insert c)
  )
)
(defalias 'cup 'copy-char-from-line-above)
(global-set-key "\C-i" 'copy-char-from-line-above)