[Mew-dist 12174] Re: 1.95b21

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 12173] Re: 1.95b21
Message-ID: <20000127.200555.41671091.kazu at example.com>
Date: Thu, 27 Jan 2000 20:05:47 +0900

kazu> > defcustom の定義が *無い* という話ではなくて、酒井さんのパッチで
kazu> > 『mew-vars.el で定義された defcustom が 19.28 では動かない』
kazu> > という話です。
kazu> 
kazu> どうするのが正しいのでしょうか？

再度ごめんなさい、です。最初からパッチにしておけば良かった。。。

-- 
白井秀行 (mailto:shirai at example.com)

*** mew-env.el.orig	Thu Jan 27 19:40:43 2000
--- mew-env.el	Thu Jan 27 20:11:16 2000
***************
*** 258,268 ****
      (defalias 'mew-char-width 'char-width)
    (defmacro mew-char-width (x) 1))
  
- (if (not (fboundp 'defcustom))
-     (defmacro defcustom (symbol value doc &rest args)
-       "Empty replacement for defcustom when not supplied."
-       (` (defvar (, symbol) (, value) (, doc)))))
- 
  (provide 'mew-env)

  
  ;;; Copyright Notice:
--- 258,263 ----
*** mew-vars.el.orig	Thu Jan 27 17:08:58 2000
--- mew-vars.el	Thu Jan 27 20:10:28 2000
***************
*** 14,20 ****
  (if (not (fboundp 'defcustom))
      (defmacro defcustom (symbol value doc &rest args)
        "Empty replacement for defcustom when not supplied."
!       `(defvar ,symbol ,value ,doc)))
  
  (if (not (fboundp 'defgroup))
      (defmacro defgroup (&rest args)))
--- 14,20 ----
  (if (not (fboundp 'defcustom))
      (defmacro defcustom (symbol value doc &rest args)
        "Empty replacement for defcustom when not supplied."
!       (` (defvar (, symbol) (, value) (, doc)))))
  
  (if (not (fboundp 'defgroup))
      (defmacro defgroup (&rest args)))