Mercurial > hg > xemacs-beta

comparison lisp/tl/tu-comment.el @ 4:b82b59fe008d r19-15b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b3
author cvs
date Mon, 13 Aug 2007 08:46:56 +0200
parents
children 4b173ad71786
comparison
equal deleted inserted replaced
3:30df88044ec6 4:b82b59fe008d
1 ;;; tu-comment.el --- a comment out utility for Lisp programs.
2
3 ;; Copyright (C) 1995,1996 MORIOKA Tomohiko
4
5 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
6 ;; Created: 1995/10/27
7 ;; Version: $Id: tu-comment.el,v 1.1.1.1 1996/12/18 03:55:31 steve Exp $
8 ;; Keywords: comment, Lisp
9
10 ;; This file is part of tl (Tiny Library).
11
12 ;; This program is free software; you can redistribute it and/or
13 ;; modify it under the terms of the GNU General Public License as
14 ;; published by the Free Software Foundation; either version 2, or (at
15 ;; your option) any later version.
16
17 ;; This program is distributed in the hope that it will be useful, but
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
20 ;; General Public License for more details.
21
22 ;; You should have received a copy of the GNU General Public License
23 ;; along with this program; see the file COPYING. If not, write to
24 ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25 ;; Boston, MA 02111-1307, USA.
26
27 ;;; Commentary:
28
29 ;; - How to install.
30 ;; 1. bytecompile this file and copy it to the apropriate directory.
31 ;; 2. put the following lines to your ~/.emacs:
32 ;; (autoload 'comment-sexp "tu-comment" nil t)
33 ;; (global-set-key "\C-c\C-q" 'comment-sexp)
34 ;; - How to use.
35 ;; type `C-c C-q' at the beginning of S-expression you want to
36 ;; comment out.
37
38 ;;; Code:
39
40 (defvar comment-sexp-first-line-method-alist
41 '((emacs-lisp-mode . comment-sexp-middle-line-method-for-lisp)
42 (lisp-interaction-mode . comment-sexp-middle-line-method-for-lisp)
43 (lisp-mode . comment-sexp-middle-line-method-for-lisp)
44 (scheme-mode . comment-sexp-middle-line-method-for-lisp)
45 (c-mode . comment-sexp-first-line-method-for-c)
46 (c++-mode . comment-sexp-middle-line-method-for-c++)
47 ))
48
49 (defvar comment-sexp-middle-line-method-alist
50 '((emacs-lisp-mode . comment-sexp-middle-line-method-for-lisp)
51 (lisp-interaction-mode . comment-sexp-middle-line-method-for-lisp)
52 (lisp-mode . comment-sexp-middle-line-method-for-lisp)
53 (scheme-mode . comment-sexp-middle-line-method-for-lisp)
54 (c-mode . comment-sexp-middle-line-method-for-c)
55 (c++-mode . comment-sexp-middle-line-method-for-c++)
56 ))
57
58 (defvar comment-sexp-last-line-method-alist
59 '((emacs-lisp-mode . comment-sexp-last-line-method-for-dummy)
60 (lisp-interaction-mode . comment-sexp-last-line-method-for-dummy)
61 (lisp-mode . comment-sexp-last-line-method-for-dummy)
62 (scheme-mode . comment-sexp-last-line-method-for-dummy)
63 (c-mode . comment-sexp-last-line-method-for-c)
64 (c++-mode . comment-sexp-last-line-method-for-dummy)
65 ))
66
67 (defun comment-sexp-middle-line-method-for-lisp ()
68 (insert ";; ")
69 )
70
71 (defun comment-sexp-middle-line-method-for-c++ ()
72 (insert "// ")
73 )
74
75 (defun comment-sexp-first-line-method-for-c ()
76 (insert "/* ")
77 )
78
79 (defun comment-sexp-middle-line-method-for-c ()
80 (insert " * ")
81 )
82
83 (defun comment-sexp-last-line-method-for-c (c)
84 (insert "\n")
85 (while (< 0 c)
86 (insert " ")
87 (setq c (1- c))
88 )
89 (insert " */")
90 )
91
92 (defun comment-sexp-last-line-method-for-dummy (c))
93
94 (defun comment-sexp ()
95 (interactive)
96 (let ((c (current-column))
97 (b (save-excursion
98 (beginning-of-line)
99 (point)))
100 (e (save-excursion
101 (forward-sexp)
102 (point)
103 ))
104 )
105 (save-excursion
106 (save-restriction
107 (narrow-to-region b e)
108 (untabify b e)
109
110 (beginning-of-line)
111 (move-to-column c)
112 (funcall
113 (cdr (assq major-mode comment-sexp-first-line-method-alist)))
114 (forward-line)
115
116 (while (< (point) (point-max))
117 (beginning-of-line)
118 (move-to-column c)
119 (funcall
120 (cdr (assq major-mode comment-sexp-middle-line-method-alist)))
121 (forward-line)
122 )
123
124 (funcall
125 (cdr (assq major-mode comment-sexp-last-line-method-alist)) c)
126 ))))
127
128 ;;; tu-comment.el ends here