[Message Prev][Message Next][Thread Prev][Thread Next][Message Index][Thread Index]
[MD:1214]NTEmacs/Meadow with c+w+s patch
- X-ml-count: 1214
- Subject: [MD:1214]NTEmacs/Meadow with c+w+s patch
- From: Keisuke Mori <ksk@xxxxxxxx>
- Date: 22 May 1999 03:01:40 -0700
- User-agent: Semi-gnus/6.10.12 SEMI/1.13.3 (Komaiko) FLIM/1.12.5 (Hirahata) Emacs/20.3.8 (i386-*-nt4.10) MULE/4.0 (HANANOEN) Meadow/1.04 Alpha1 (TSUTSUJI)
再びもりです。# これは meadow-develop のみ
Keisuke Mori <ksk@xxxxxxxx> writes:
> 追加パッチを以下に置いています(ほんとに置いてあるだけですが)。
> 内容はほとんど makefile に対するものです。
> http://www.kt.rim.or.jp/~ksk/Meadow/indexj.html
この中に lisp/international/meadow.el に対するパッチも含まれてい
ます。mode-line-format の先頭要素が文字列でない場合、起動時にエ
ラーが出てしまう、というものに対処したものです。
正しい修正なのかは自信がないですが、もしよろしければ本体に含めて
頂けるとありがたいです。
--- 1.04a1-cws/lisp/international/meadow.el.org Fri Feb 26 20:52:36 1999
+++ 1.04a1-cws/lisp/international/meadow.el Fri May 21 22:48:18 1999
@@ -279,14 +279,16 @@
(progn
(setq mw32-ime-mode-line-format-original
(default-value 'mode-line-format))
- (if (string= (car mode-line-format) "-")
+ (if (and (stringp (car mode-line-format))
+ (string= (car mode-line-format) "-"))
(setq-default mode-line-format
(cons ""
(cons 'mw32-ime-mode-line-state-indicator
(cdr mode-line-format))))
(setq-default mode-line-format
- (cons 'mw32-ime-mode-line-state-indicator
- mode-line-format)))
+ (cons ""
+ (cons 'mw32-ime-mode-line-state-indicator
+ mode-line-format))))
(force-mode-line-update t))))
(defun mw32-ime-toggle ()
--
Keisuke MORI / NTT Software Corp. California Branch
E-Mail: ksk@xxxxxxxx