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)