[xyzzy:04537] Re: 挿入コマンドのようなもの

[HATTORI Masashi <hattori@xxxxxxxxxxxxxxxx>]

服部です、こんにちは。

	2000年5月19日(金)[15:37:56] の、
	”[xyzzy:04535] Re: 挿入コマンドのようなもの”
	への返事です。

> | Emacsにある『ESC;』でコメント文字の挿入、
> | というような機能はxyzzyには無いのでしょうか？
> 
> ないっす。欲しい人?

欲しいっす。(__)

# comment-regionとかuncomment-regionとかも欲しいなぁ(ぼそっ)
-- 
 　　　。　　　　。　　　　　　　　　。
 　　　　　　　　　　。
 。    服部　昌司  >^)))彡    
 　。　　　　gyo@xxxxxxxxxxxxxx

### 以下へなちょこ物

(defvar *indent-for-comment-columns* 40)

(defun indent-for-comment ()
  (interactive)
  (goto-bol)
  (funcall mode-specific-indent-command)
  (unless (eolp)
    (let ((col (- *indent-for-comment-columns*
		  (goto-column *indent-for-comment-columns*))))
      (if (plusp col)
	  (indent-to *indent-for-comment-columns*)
	(unless (eolp)
	  (goto-eol)
	  (insert #\SPC)))))
  (insert mode-specific-comment-string)
  (insert #\SPC))

(global-set-key #\M-\; 'indent-for-comment)

;; for lisp-mode
(add-hook 'ed::*lisp-mode-hook* 'lisp-add-indent-for-comment)
(add-hook 'ed::*lisp-interaction-mode-hook* 'lisp-add-indent-for-comment)

(defun lisp-add-indent-for-comment ()
  (make-local-variable 'mode-specific-comment-string)
  (setq mode-specific-comment-string ";;"))

;; for perl-mode
(require "perl")
(add-hook 'ed::*perl-mode-hook* 'perl-add-indent-for-comment)

(defun perl-add-indent-for-comment ()
  (make-local-variable 'mode-specific-comment-string)
  (setq mode-specific-comment-string "#"))