diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-08-17 21:38:30 +0200 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2010-08-17 21:38:30 +0200 |
| commit | f0b7054e2332727566d5080e768b2acaddba40ad (patch) | |
| tree | cce67363fb168ec5a0cc4d58dd827749b2dd439f /lisp/newcomment.el | |
| parent | a2fb159c124f0b9b43e09f69943cf16629c8fc8e (diff) | |
| download | emacs-f0b7054e2332727566d5080e768b2acaddba40ad.tar.gz | |
* lisp/newcomment.el (comment-add): Move comment to docstring.
Diffstat (limited to 'lisp/newcomment.el')
| -rw-r--r-- | lisp/newcomment.el | 10 |
1 files changed, 5 insertions, 5 deletions
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)))) |