[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101109: * lisp/newcomment.el (commen
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101109: * lisp/newcomment.el (comment-add): Move comment to docstring. |
Date: |
Tue, 17 Aug 2010 21:38:30 +0200 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101109
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2010-08-17 21:38:30 +0200
message:
* lisp/newcomment.el (comment-add): Move comment to docstring.
modified:
lisp/newcomment.el
=== modified file 'lisp/newcomment.el'
--- a/lisp/newcomment.el 2010-01-13 08:35:10 +0000
+++ b/lisp/newcomment.el 2010-08-17 19:38:30 +0000
@@ -945,12 +945,12 @@
(delete-char n)
(setq ,bindent (- ,bindent n)))))))))))
-;; Compute the number of extra comment starter characters
-;; (extra semicolons in Lisp mode, extra stars in C mode, etc.)
-;; If ARG is non-nil, just follow ARG.
-;; If the comment-starter is multi-char, just follow ARG.
-;; Otherwise obey comment-add, and double it if EXTRA is non-nil.
(defun comment-add (arg)
+ "Compute the number of extra comment starter characters
+\(extra semicolons in Lisp mode, extra stars in C mode, etc.)
+If ARG is non-nil, just follow ARG.
+If the comment starter is multi-char, just follow ARG.
+Otherwise obey `comment-add'."
(if (and (null arg) (= (string-match "[ \t]*\\'" comment-start) 1))
(* comment-add 1)
(1- (prefix-numeric-value arg))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101109: * lisp/newcomment.el (comment-add): Move comment to docstring.,
Stefan Monnier <=