[xyzzy:03885] Re: cobol-mode とか html+-mode とか

[Yuuichi Taguchi <py-taguchi@xxxxxxxxxxxxxxxx>]

YAMAMOTO Taizo <ymtz@xxxxxxxxxxxxxxx> さん、こんにちは。Yuuichi です。

        Mon, 17 Jan 2000 22:39:14 +0900 の
        [xyzzy:03853] cobol-mode とか html+-mode とか
        に関するメールにお答えします。

こんにちは、田口です。

>前から作ってた（というか忘れてた）cobol-modeを公開します。
>COBOLerの方々のお役に立てれば幸いです。それと、html+-mode を
>ほんの少し更新してみました。下のアドレスでどうぞ。
>
実は、密かに待っていたCOBOLerです。
キーワードに色を付ける位なら適当にやっていたのですが。
もっとましなのが欲しかったんです。
ありがとうございます。

で、LISP初心者ながらもこんなのを作ってみました。

------ ここから-----
; コメント行にする
(defun set-comment ()
  "cobol-mode: コメントにする"
  (goto-column 6)
  (delete-region (point) (+ (point) 1))
  (insert "*")
)

(defun cobol-comment-line ()
  (interactive)
  "cobol-mode: 当該行をコメントにする"
  (set-comment)
)

; 指定領域をコメント行にする
(defun comment-region ()
  (goto-char (region-end))
  (setq end-cnt (current-line-number))
  (goto-char (region-beginning))
  (let ((cnt (current-line-number)))
    (while (< cnt end-cnt)
      (incf cnt)
      (set-comment)
      (forward-line))))

; 指定領域をコメント行にする(本体）
(defun cobol-comment-region ()
  (interactive)
  "cobol-mode: 指定範囲をコメント行にする"
  (comment-region)
)
---- ここまで -----
キーバインドは、

  (define-key *cobol-mode-map* '(#\C-x #\*) 'cobol-comment-line)
  (define-key *cobol-mode-map* '(#\C-x #\:) 'cobol-comment-region)

を追加してます。


/---------------------------------------
/   Yuuichi Taguchi
/       SBS Co. Ltd,
/   py-taguchi@xxxxxxxxxxxxxxxx
/---------------------------------------