78Kの日記： column を記憶

(defun step ()
"step"
(interactive)
(jump-to-register (string-to-char "p"))
(let ((cur (current-column)))
(forward-line)
(move-to-column cur))
(point-to-register (string-to-char "p")))

(defun register-memory ()
"regmem"
(interactive)
(point-to-register (string-to-char "p")))

(global-set-key "\C-cn" 'step)
(global-set-key "\C-cm" 'register-memory)

というようなものを作ってみた。
何気に初 elisp かも、、ってそうでもないか。
初めての時の事をいつまでも忘れないように。フフ。