--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/tl/mu-comment.el	Mon Aug 13 08:46:56 2007 +0200
@@ -0,0 +1,129 @@
+;;;
+;;; mu-comment.el --- a comment out utility for Lisp programs.
+;;;
+;;; Copyright (C) 1995,1996 MORIOKA Tomohiko
+;;;
+;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;; Created: 1995/10/27
+;;; Version:
+;;;	$Id: mu-comment.el,v 1.1.1.1 1996/12/18 03:55:31 steve Exp $
+;;; Keywords: comment, Lisp
+;;;
+;;; This file is part of tl (Tiny Library).
+;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with This program.  If not, write to the Free Software
+;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Commentary:
+;;;
+;;; - How to install.
+;;;   1. bytecompile this file and copy it to the apropriate directory.
+;;;   2. put the following lines to your ~/.emacs:
+;;;		(autoload 'comment-sexp "mu-comment" nil t)
+;;;		(global-set-key "\C-c\C-q" 'comment-sexp)
+;;; - How to use.
+;;;      type `C-c C-q' at the beginning of S-expression you want to
+;;;      comment out.
+;;;
+;;; Code:
+
+(defvar comment-sexp-first-line-method-alist
+  '((emacs-lisp-mode       . comment-sexp-middle-line-method-for-lisp)
+    (lisp-interaction-mode . comment-sexp-middle-line-method-for-lisp)
+    (lisp-mode             . comment-sexp-middle-line-method-for-lisp)
+    (scheme-mode           . comment-sexp-middle-line-method-for-lisp)
+    (c-mode                . comment-sexp-first-line-method-for-c)
+    (c++-mode              . comment-sexp-middle-line-method-for-c++)
+    ))
+
+(defvar comment-sexp-middle-line-method-alist
+  '((emacs-lisp-mode       . comment-sexp-middle-line-method-for-lisp)
+    (lisp-interaction-mode . comment-sexp-middle-line-method-for-lisp)
+    (lisp-mode             . comment-sexp-middle-line-method-for-lisp)
+    (scheme-mode           . comment-sexp-middle-line-method-for-lisp)
+    (c-mode                . comment-sexp-middle-line-method-for-c)
+    (c++-mode              . comment-sexp-middle-line-method-for-c++)
+    ))
+
+(defvar comment-sexp-last-line-method-alist
+  '((emacs-lisp-mode       . comment-sexp-last-line-method-for-dummy)
+    (lisp-interaction-mode . comment-sexp-last-line-method-for-dummy)
+    (lisp-mode             . comment-sexp-last-line-method-for-dummy)
+    (scheme-mode           . comment-sexp-last-line-method-for-dummy)
+    (c-mode                . comment-sexp-last-line-method-for-c)
+    (c++-mode              . comment-sexp-last-line-method-for-dummy)
+    ))
+
+(defun comment-sexp-middle-line-method-for-lisp ()
+  (insert ";; ")
+  )
+
+(defun comment-sexp-middle-line-method-for-c++ ()
+  (insert "// ")
+  )
+
+(defun comment-sexp-first-line-method-for-c ()
+  (insert "/* ")
+  )
+
+(defun comment-sexp-middle-line-method-for-c ()
+  (insert " * ")
+  )
+
+(defun comment-sexp-last-line-method-for-c (c)
+  (insert "\n")
+  (while (< 0 c)
+    (insert " ")
+    (setq c (1- c))
+    )
+  (insert " */")
+  )
+
+(defun comment-sexp-last-line-method-for-dummy (c))
+
+(defun comment-sexp ()
+  (interactive)
+  (let ((c (current-column))
+        (b (save-excursion
+             (beginning-of-line)
+             (point)))
+        (e (save-excursion
+             (forward-sexp)
+             (point)
+             ))
+        )
+    (save-excursion
+      (save-restriction
+        (narrow-to-region b e)
+        (untabify b e)
+        
+        (beginning-of-line)
+        (move-to-column c)
+        (funcall
+         (cdr (assq major-mode comment-sexp-first-line-method-alist)))
+        (forward-line)
+        
+        (while (< (point) (point-max))
+          (beginning-of-line)
+          (move-to-column c)
+          (funcall
+           (cdr (assq major-mode comment-sexp-middle-line-method-alist)))
+          (forward-line)
+          )
+        
+        (funcall
+         (cdr (assq major-mode comment-sexp-last-line-method-alist)) c)
+        ))))
+
+;;; mu-comment.el ends here