[xyzzy:02992] Re: move-to-column

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

塙さん、こんにちは。

        Sat, 17 Jul 1999 02:13:19 +0900 の
        [xyzzy:02985] move-to-column
        への返事です.

|   Emacs にしても、 xyzzy にしても、built-in かどうかって
|   どういう基準で決まっているんでしょう？
| 
| 多く使われて、かつ lisp で書くよりかなり効率よく実装できるような
| 関数が built-in なのかと想像しています。もしそうだとしたら、

あまり考えたことはないんですが、だいたいそんなところで
しょうか。

| Emacs で built-in である move-to-column は built-in で作る価値の
| あるもの、ということにならないでしょうか？

残念ながら(^^; ま、こんなところでしょう。

(defun move-to-column (column &optional force)
  (interactive "Nmove-to-column: ")
  (let ((current (goto-column column (not force))))
    (cond ((>= current column))
	  ((null force))
	  ((eolp)
	   (indent-to column))
	  ((eql (following-char) #\TAB)
	   (overwrite-char #\SPC)
	   (forward-char (- column current 1)))
	  (t
	   (forward-char 1)))
    t))

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