Re: Q substitute 'unless' and 'when' easily ?

Article View: fj.editor.mule

Article #671

#671

From: KATAYAMA Yoshio
Date: Wed, 10 Mar 1999 00:00

26 lines
1304 bytes

In article <uk8wr6m4g.fsf@hv08.hv.epson.co.jp>,
	ichikawa ($B;T@nC#:H(B) @ hv.epson.co.jp writes:

>(unless (and (condition-case ()
>		 (require 'custom)
>	       (file-error nil))
>	     (fboundp 'defgroup)
>	     (fboundp 'defcustom))
>  (require 'backquote)
>  (defmacro defgroup (&rest args))
>  (defmacro defcustom (symbol value &optional doc &rest args)
>    (` (defvar (, symbol) (, value) (, doc))))
>  )

>  $B$J$s$F$N$r$$$l$F$_$F$O(B??

(require 'backquote) $B$O$J$/$F$b!"(Bautoload $B$5$l$^$9!#(B

20.3 $B$N(B elisp $B%U%!%$%k$G$O(B

    `(defvar ,symbol ,value ,doc)

$B$N9=J8$r;H$C$F$$$k$b$N$,$+$J$j$"$j$^$9!#$3$l$O!"(B19.28 $B$G$O2r<a$7(B
$B$F$/$l$^$;$s$N$G!"(B19.34 $B$NJ}$,$&$^$/$$$/3NN($,9b$$$H;W$$$^$9!#(B
--
$BJR;3!w#P#F#U(B

Technical Details

Message-ID: <KATE.99Mar10170824@yamato.trad.pfu.co.jp>

Path: arc1-ca.pugleaf.net!unknown!not-for-mail

References:

<svBTh.yoshimi@etl.go.jp> <28r9qz6rsj.fsf@kchisa.ga.sony.co.jp> <svDpQ.yoshimi@etl.go.jp> <uk8wr6m4g.fsf@hv08.hv.epson.co.jp>

Show Full Headers

Complete Article Headers

X-Google-Language: Japanese,JIS
X-Google-Thread: 10eba4,135d496b62a50382
X-Google-Attributes: gid10eba4,public
From: kate@pfu.co.jp (KATAYAMA Yoshio)
Subject: Re: Q substitute 'unless' and 'when' easily ?
Date: 1999/03/10
Message-ID: <KATE.99Mar10170824@yamato.trad.pfu.co.jp>
X-Deja-AN: 453312906
References: <svBTh.yoshimi@etl.go.jp> <28r9qz6rsj.fsf@kchisa.ga.sony.co.jp> <svDpQ.yoshimi@etl.go.jp> <uk8wr6m4g.fsf@hv08.hv.epson.co.jp>
Organization: PFU Ltd. Tokyo Japan.
Newsgroups: fj.editor.mule

Reply to Parent Message