90 |
|
|
91 |
(defcustom comment-fill-column nil |
(defcustom comment-fill-column nil |
92 |
"Column to use for `comment-indent'. If nil, use `fill-column' instead." |
"Column to use for `comment-indent'. If nil, use `fill-column' instead." |
93 |
:type '(choice (const nil) integer)) |
:type '(choice (const nil) integer) |
94 |
|
:group 'comment) |
95 |
|
|
96 |
;;;###autoload |
;;;###autoload |
97 |
(defcustom comment-column 32 |
(defcustom comment-column 32 |
100 |
can set the value for a particular mode using that mode's hook. |
can set the value for a particular mode using that mode's hook. |
101 |
Comments might be indented to a value smaller than this in order |
Comments might be indented to a value smaller than this in order |
102 |
not to go beyond `comment-fill-column'." |
not to go beyond `comment-fill-column'." |
103 |
:type 'integer) |
:type 'integer |
104 |
|
:group 'comment) |
105 |
(make-variable-buffer-local 'comment-column) |
(make-variable-buffer-local 'comment-column) |
106 |
|
|
107 |
;;;###autoload |
;;;###autoload |
203 |
See `comment-styles' for a list of available styles." |
See `comment-styles' for a list of available styles." |
204 |
:type (if (boundp 'comment-styles) |
:type (if (boundp 'comment-styles) |
205 |
`(choice ,@(mapcar (lambda (s) `(const ,(car s))) comment-styles)) |
`(choice ,@(mapcar (lambda (s) `(const ,(car s))) comment-styles)) |
206 |
'symbol)) |
'symbol) |
207 |
|
:group 'comment) |
208 |
|
|
209 |
;;;###autoload |
;;;###autoload |
210 |
(defcustom comment-padding " " |
(defcustom comment-padding " " |
214 |
|
|
215 |
Extra spacing between the comment characters and the comment text |
Extra spacing between the comment characters and the comment text |
216 |
makes the comment easier to read. Default is 1. nil means 0." |
makes the comment easier to read. Default is 1. nil means 0." |
217 |
:type '(choice string integer (const nil))) |
:type '(choice string integer (const nil)) |
218 |
|
:group 'comment) |
219 |
|
|
220 |
;;;###autoload |
;;;###autoload |
221 |
(defcustom comment-multi-line nil |
(defcustom comment-multi-line nil |
226 |
|
|
227 |
It also affects \\[indent-new-comment-line]. However, if you want this |
It also affects \\[indent-new-comment-line]. However, if you want this |
228 |
behavior for explicit filling, you might as well use \\[newline-and-indent]." |
behavior for explicit filling, you might as well use \\[newline-and-indent]." |
229 |
:type 'boolean) |
:type 'boolean |
230 |
|
:group 'comment) |
231 |
|
|
232 |
(defcustom comment-empty-lines nil |
(defcustom comment-empty-lines nil |
233 |
"If nil, `comment-region' does not comment out empty lines. |
"If nil, `comment-region' does not comment out empty lines. |
236 |
terminated by the end of line (i.e. `comment-end' is empty)." |
terminated by the end of line (i.e. `comment-end' is empty)." |
237 |
:type '(choice (const :tag "Never" nil) |
:type '(choice (const :tag "Never" nil) |
238 |
(const :tag "Always" t) |
(const :tag "Always" t) |
239 |
(const :tag "EOl-terminated" 'eol))) |
(const :tag "EOl-terminated" 'eol)) |
240 |
|
:group 'comment) |
241 |
|
|
242 |
;;;; |
;;;; |
243 |
;;;; Helpers |
;;;; Helpers |
1097 |
(defcustom comment-auto-fill-only-comments nil |
(defcustom comment-auto-fill-only-comments nil |
1098 |
"Non-nil means to only auto-fill inside comments. |
"Non-nil means to only auto-fill inside comments. |
1099 |
This has no effect in modes that do not define a comment syntax." |
This has no effect in modes that do not define a comment syntax." |
1100 |
:type 'boolean) |
:type 'boolean |
1101 |
|
:group 'comment) |
1102 |
|
|
1103 |
(defun comment-valid-prefix-p (prefix compos) |
(defun comment-valid-prefix-p (prefix compos) |
1104 |
(or |
(or |