# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1282073910 -7200
# Node ID 012ee86d25c709bf0cbb603424b8ff30d5117ffc
# Parent  793aeadb7c43a2f5be2e9a90fb9eebdea9cb1293
* lisp/newcomment.el (comment-add): Move comment to docstring.

diff -r 793aeadb7c43 -r 012ee86d25c7 lisp/newcomment.el
--- a/lisp/newcomment.el	Tue Aug 17 09:32:08 2010 -0700
+++ b/lisp/newcomment.el	Tue Aug 17 21:38:30 2010 +0200
@@ -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))))