From: Stefan Monnier Date: Tue, 17 Aug 2010 19:38:30 +0000 (+0200) Subject: * lisp/newcomment.el (comment-add): Move comment to docstring. X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~48^2~267 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f0b7054e2332727566d5080e768b2acaddba40ad;p=emacs.git * lisp/newcomment.el (comment-add): Move comment to docstring. --- diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 5d2da467347..5a6cdcd6886 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -945,12 +945,12 @@ indentation to be kept as it was before narrowing." (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))))