From: Alan Mackenzie <acm@muc.de>
To: Thien-Thi Nguyen <ttn@gnuvola.org>
Cc: bug-cc-mode@gnu.org, Peter Dyballa <Peter_Dyballa@Web.DE>,
Martin Stjernholm <mast@lysator.liu.se>,
Stefan Monnier <monnier@iro.umontreal.ca>,
emacs-devel@gnu.org
Subject: Re: Old-style backquotes in cc-vars.el
Date: Sat, 6 Oct 2007 20:51:18 +0000 [thread overview]
Message-ID: <20071006205118.GA21218@muc.de> (raw)
In-Reply-To: <87y7egjdr6.fsf@ambire.localdomain>
Hi, Thi!
On Sat, Oct 06, 2007 at 08:31:57PM +0200, Thien-Thi Nguyen wrote:
> () Alan Mackenzie <acm@muc.de>
> () Sat, 6 Oct 2007 16:31:01 +0000
>
> ,@(plist-put
> args ':type
> `(` (radio <==========================
> (const :tag "Use style settings"
> set-from-style)
> ,(, (let ((type (eval (plist-get args ':type))))
> (unless (consp type)
> (setq type (list type)))
> (unless (c-safe (plist-get (cdr type) ':value))
> (setcdr type (append '(:value (, -value-))
> (cdr type))))
> (unless (c-safe (plist-get (cdr type) ':tag))
> (setcdr type (append '(:tag "Override style settings")
> (cdr type))))
> (bq-process type))))))
> wow, funky!
Can you explain to me what it is doing? If so, please do! :-)
> how about this replacement?
> (defmacro defcustom-c-stylevar (name val doc &rest args)
> "Defines a style variable."
> (let* ((val (eval val))
> (type (eval (list 'identity (plist-get args :type))))
> (head (car type))
> (tail (cdr type))
> (newt (append (unless (plist-get tail :tag)
> '(:tag "Override style settings"))
> (unless (plist-get tail :value)
> `(:value ,val))
> tail)))
> `(progn
> (c-set-stylevar-fallback ',name ,val)
> (custom-declare-variable
> ',name ''set-from-style
> ,(concat doc "\n\nZZZ")
> ,@(plist-put
> args :type `(radio
> (const :tag "Use style settings" set-from-style)
> ,(cons head newt)))))))
It doesn't quite work - (car type) bombs, because type is 'integer, not
a list. I'll figure out, though.
> thi
--
Alan.
next prev parent reply other threads:[~2007-10-06 20:51 UTC|newest]
Thread overview: 23+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-08-23 20:51 Old-style backquotes in cc-vars.el Stefan Monnier
2007-09-01 10:18 ` Alan Mackenzie
2007-09-03 20:46 ` Stefan Monnier
2007-09-04 3:14 ` T. V. Raman
2007-09-04 22:57 ` Richard Stallman
2007-09-05 2:21 ` T. V. Raman
2007-09-05 2:44 ` dhruva
2007-09-05 3:26 ` Stefan Monnier
2007-09-05 20:02 ` Richard Stallman
2007-09-06 14:27 ` Juri Linkov
2007-09-07 6:32 ` Richard Stallman
2007-09-05 13:29 ` T. V. Raman
2007-10-06 16:31 ` Alan Mackenzie
2007-10-06 18:31 ` Thien-Thi Nguyen
2007-10-06 20:51 ` Alan Mackenzie [this message]
2007-10-06 21:46 ` Thien-Thi Nguyen
2007-10-11 17:41 ` Davis Herring
2007-10-19 7:29 ` Thien-Thi Nguyen
2007-10-06 22:27 ` Stefan Monnier
2007-10-07 9:40 ` Alan Mackenzie
2007-10-07 9:41 ` Thien-Thi Nguyen
2007-10-07 19:40 ` Eli Zaretskii
2007-10-07 13:10 ` Richard Stallman
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20071006205118.GA21218@muc.de \
--to=acm@muc.de \
--cc=Peter_Dyballa@Web.DE \
--cc=bug-cc-mode@gnu.org \
--cc=emacs-devel@gnu.org \
--cc=mast@lysator.liu.se \
--cc=monnier@iro.umontreal.ca \
--cc=ttn@gnuvola.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.