/[emacs]/emacs/lisp/newcomment.el
ViewVC logotype

Diff of /emacs/lisp/newcomment.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.82 by rms, Sat Oct 16 15:32:14 2004 UTC revision 1.83 by lektu, Thu May 19 19:06:18 2005 UTC
# Line 90  Major modes should set this variable.") Line 90  Major modes should set this variable.")
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
# Line 99  Each mode establishes a different defaul Line 100  Each mode establishes a different defaul
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
# Line 201  INDENT specifies that the `comment-start Line 203  INDENT specifies that the `comment-start
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 " "
# Line 211  of the corresponding number of spaces. Line 214  of the corresponding number of spaces.
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
# Line 222  customize this variable. Line 226  customize this variable.
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.
# Line 231  if `eol' it only comments out empty line Line 236  if `eol' it only comments out empty line
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
# Line 1091  Else, call `comment-indent'." Line 1097  Else, call `comment-indent'."
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

Legend:
Removed from v.1.82  
changed lines
  Added in v.1.83

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26