Source of Nothingness - xyzzy lisp : center-line

* xyzzy lisp : center-line

使ってみた感じだとこっちのほうがよさそう。
(in-package "editor")
; from $XYZZY/lisp/textmode.l
(defun center-line (&optional (arg 1))
  (interactive "*p")
  (center-region (progn (goto-bol) (point))
                 (progn
                   (forward-line arg)
                   (point))))

同じ感じでこういうのも。
(defun fill-line (&optional (arg 1))
  (interactive "*p")
  (fill-region (progn (goto-bol) (point))
               (progn (forward-line arg) (point))))

update : 2006-03-27 (Mon) 02:04:06