[xyzzy:01048] Re: siteinit.l で・・・

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

みやぢさん、こんにちは。

        Sun, 15 Nov 1998 17:57:23 +0900 の
        [xyzzy:01046] Re: siteinit.l で・・・
        への返事です.

|   (forward-char pos)
| 
| でカーソル位置を合わせようとしてみたのですが、マルチバイト文字でとんでもない動作
| をしてしまいました。(^^;

(goto-column pos) です。

transpose-lines では若干動きが違うかなと思って、こんなん書いて
みましたが、必要なかったですね(^^;

(defun x680x0-micro-emacs-ctrl-↓ (&optional (n 1))
  (interactive "*p")
  (when (save-excursion (forward-line n))
    (let ((column (current-column))
	  (beg (progn (goto-bol) (point)))
	  (end (progn
		 (or (forward-line 1)
		     (progn (goto-eol) (insert #\LFD)))
		 (point))))
      (insert (prog1
		  (buffer-substring beg end)
		(delete-region beg end)
		(forward-line n)))
      (forward-line -1)
      (goto-column column))))

(defun x680x0-micro-emacs-ctrl-↑ (&optional (n 1))
  (interactive "*p")
  (x680x0-micro-emacs-ctrl-↓ (- n)))

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx