修正版があります昨日のやつと合わせるとctrl+up/downでregionを動かせます。 (defun line-number-at-mark () (let ((p (point)) (result nil) (m nil)) (setq m (mark)) (cond ((null m) nil) (t (goto-char m) (setq result (line-number-at-pos)) (goto-c…