CC Mode 5.28 (C); Error customizing `c-block-comment-prefix'.

[Michael Hagemann]

On Tue, 03 Feb 2004 20:47:17 +0000 (GMT) Alan Mackenzie wrote:

> Could you also say exactly which stage of customizing the variable causes
> the error.

I just installed the latest Debian version of Emacs (21.3+1-4) and can
still reproduce the error.

I start Emacs and do a "M-x customize-group c".  Then I scroll to the "C
Block Comment Prefix" entry, "Tab" to the "Show" button and press
"Return".  (I also tried this after loading an c-file).

The display gets garbled like this:

 <C Block Comment Prefix: Hide<
 (*) Use style settings
 <( ) <Override style settings: >>>>
 C Comment Prefix Regexp: Show
    State: hidden, invoke "Show" in the previous line to show.
 Regexp to match the line prefix inside comments. More

and the following error message occurs in the minibuffer.  This is
actually from the "*messages*" log, it appears without the
"widget-apply:" in the minibuffer:

widget-apply: Wrong type argument: char-or-string-p, (if (boundp quote 
c-comment-continuation-stars)) c-comment-continuation-stars "* ")

As I said in my first, informal (sorry ;) mail, if I change the
`defcustom' in the cc-vars.el file to a constant string and evaluate it
before customizing the "C" group, the customization works.  This led me
to the assumption that the construction inside of `defcustom' just might
not be permitted...


regards,
michael



Emacs  : GNU Emacs 21.3.1 (i386-pc-linux-gnu, X toolkit)
 of 2003-10-31 on raven, modified by Debian
Package: CC Mode 5.28 (C)
Buffer Style: stroustrup

c-emacs-features: (1-bit)

current state:
==============
(setq
 c-basic-offset 8
 c-comment-only-line-offset 0
 c-block-comment-prefix "* "
 c-comment-prefix-regexp '((pike-mode . "//+!?\\|\\**") (other . "//+\\|\\**"))
 c-cleanup-list '(scope-operator)
 c-hanging-braces-alist '((brace-list-open) (brace-entry-open) 
(substatement-open after) (block-close . c-snug-do-while)
                          (extern-lang-open after) (inexpr-class-open after) 
(inexpr-class-close before))
 c-hanging-colons-alist nil
 c-hanging-semi&comma-criteria '(c-semi&comma-inside-parenlist)
 c-backslash-column 48
 c-label-minimum-indentation 1
 c-offsets-alist '((string . c-lineup-dont-change)
                   (c . c-lineup-C-comments)
                   (defun-open . 0)
                   (defun-close . 0)
                   (defun-block-intro . +)
                   (class-open . 0)
                   (class-close . 0)
                   (inline-close . 0)
                   (func-decl-cont . +)
                   (knr-argdecl . 0)
                   (topmost-intro . 0)
                   (topmost-intro-cont . 0)
                   (member-init-intro . +)
                   (member-init-cont . c-lineup-multi-inher)
                   (inher-intro . +)
                   (inher-cont . c-lineup-multi-inher)
                   (block-open . 0)
                   (block-close . 0)
                   (brace-list-close . 0)
                   (brace-list-intro . +)
                   (brace-list-entry . 0)
                   (brace-entry-open . 0)
                   (statement . 0)
                   (statement-case-intro . +)
                   (substatement . +)
                   (case-label . +)
                   (access-label . -)
                   (do-while-closure . 0)
                   (else-clause . 0)
                   (catch-clause . 0)
                   (comment-intro . c-lineup-comment)
                   (arglist-cont . 0)
                   (arglist-cont-nonempty . c-lineup-arglist)
                   (stream-op . c-lineup-streamop)
                   (inclass . +)
                   (cpp-macro . [0])
                   (cpp-macro-cont . c-lineup-dont-change)
                   (friend . 0)
                   (objc-method-intro . [0])
                   (objc-method-args-cont . c-lineup-ObjC-method-args)
                   (objc-method-call-cont . c-lineup-ObjC-method-call)
                   (extern-lang-open . 0)
                   (extern-lang-close . 0)
                   (inextern-lang . +)
                   (namespace-open . 0)
                   (namespace-close . 0)
                   (innamespace . +)
                   (template-args-cont c-lineup-template-args +)
                   (inlambda . c-lineup-inexpr-block)
                   (lambda-intro-cont . +)
                   (inexpr-statement . 0)
                   (inexpr-class . +)
                   (statement-block-intro . +)
                   (knr-argdecl-intro . +)
                   (substatement-open . 0)
                   (label . 0)
                   (statement-case-open . 0)
                   (statement-cont . +)
                   (arglist-intro . +)
                   (arglist-close . +)
                   (inline-open . +)
                   (brace-list-open . 0)
                   )
 c-delete-function 'delete-char
 c-electric-pound-behavior nil
 c-indent-comments-syntactically-p nil
 c-tab-always-indent nil
 defun-prompt-regexp nil
 tab-width 8
 comment-column 48
 parse-sexp-ignore-comments t
 auto-fill-function nil
 comment-multi-line t
 comment-start-skip "/\\*+ *\\|//+ *"
 fill-prefix nil
 paragraph-start "[     ]*\\(//+\\|\\**\\)[     ]*$\\|^\f"
 adaptive-fill-mode t
 adaptive-fill-regexp "[        ]*\\(//+\\|\\**\\)[     ]*\\([  ]*\\([-|#;>*]+[ 
        ]*\\|(?[0-9]+[.)][      ]*\\)*\\)"
 )