[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [bep] learning lisp: defun
- To: bep@argv.org
- Subject: Re: [bep] learning lisp: defun
- From: Koichi INOUE <inoue@argv.org>
- Date: 03 Jun 2001 05:50:35 +0900
- Delivered-To: mailing list bep@argv.org
- Mailing-List: contact bep-help@argv.org; run by ezmlm
- Organization: Accessibility Research Group for the Visually Impaired(ARGV)
- User-Agent: T-gnus/6.15.4 (based on Oort Gnus v0.04) (revision 01) SEMI/1.14.3 (Ushinoya) FLIM/1.14.2 (Yagi-Nishiguchi) APEL/10.3 Emacs/21.0.103 (i386-windy-freebsd4.3) MULE/5.0 (SAKAKI)
井上です。
Mitsugu SAKAMOTO <mitsugu@...> writes:
> (if (= emacs-major-version 20)
> (set-cursor-type 'hairline-caret)
> (setq w32-hide-mouse-on-key t)
> (setq w32-hide-mouse-timeout 5000))
>
> としたけれど、下二つはうまく動作してませんでした。
これだと下二つはemacs-major-version が20じゃないとき実行されます。
> Cみたく
> (if (= emacs-major-version 20)
> ((set-cursor-type 'hairline-caret)
> (setq w32-hide-mouse-on-key t)
> (setq w32-hide-mouse-timeout 5000)))
>
> ではないのですね。
これだと、（たぶん）
(set-cursor-type 'hairline-caret)
というものを関数として評価してしまいます。
invalid-functionというエラーになりませんか？
本当は
set-cursor-type
が関数のはず。
--
Koichi Inoue, ARGV
E-Mail: inoue@...
ICQ UIN: 74900690