From: yamaoka <yamaoka>
Date: Thu, 25 Mar 1999 00:18:06 +0000 (+0000)
Subject: * poe.el (make-local-hook): Move to after defining `add-local-hook' and
X-Git-Tag: apel-9_16~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3c3150b0f5fef608a91f8c84c09b763323e0aeaf;p=elisp%2Fapel.git

* poe.el (make-local-hook): Move to after defining `add-local-hook' and
`remove-local-hook'.
* tinycustom.el (define-widget): New nop macro.
(defface): Makes face FACE.

;; Commit by Mikio Nakajima by way of yamaoka.
---

diff --git a/ChangeLog b/ChangeLog
index 96f4554..2fee7d9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,18 @@
+1999-03-24  Mikio Nakajima  <minakaji@osaka.email.ne.jp>
+
+	* poe.el (make-local-hook): Move to after defining `add-local-hook'
+	and `remove-local-hook'.
+
+1999-03-20  Mikio Nakajima  <minakaji@osaka.email.ne.jp>
+
+	* tinycustom.el (define-widget): New nop macro.
+	(defface): Makes face FACE.
+
 1999-03-25  Keiichi Suzuki  <kei-suzu@mail.wbs.ne.jp>
 
 	* poem.el (charset-after): New function.
 
+
 1999-03-16  Tomohiko Morioka  <morioka@jaist.ac.jp>
 
 	* APEL: Version 9.15 released.
diff --git a/poe.el b/poe.el
index ff39396..524d712 100644
--- a/poe.el
+++ b/poe.el
@@ -235,8 +235,6 @@ The extension, in a file name, is the part that follows the last `.'."
 	    (substring file 0 (match-beginning 0)))
 	filename))))
 
-(defmacro-maybe make-local-hook (hook))
-
 ;; They are not Emacs features
 
 (defmacro-maybe add-local-hook (hook function &optional append)
@@ -251,6 +249,8 @@ The extension, in a file name, is the part that follows the last `.'."
     (list 'remove-hook hook function)
     ))
 
+(defmacro-maybe make-local-hook (hook))
+
 
 ;;; @ Emacs 19.30 emulation
 ;;;
diff --git a/tinycustom.el b/tinycustom.el
index a912103..04911d2 100644
--- a/tinycustom.el
+++ b/tinycustom.el
@@ -4,6 +4,8 @@
 
 ;; Author: Mikio Nakajima <minakaji@osaka.email.ne.jp>
 ;; Maintainer: Mikio Nakajima <minakaji@osaka.email.ne.jp>
+;; Version: $Id: tinycustom.el,v 1.3 1999-03-25 00:18:05 yamaoka Exp $
+;; Last Modified: $Date: 1999-03-25 00:18:05 $
 ;; Keywords: emulating, custom
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -27,8 +29,10 @@
 
 ;; Purpose of this program is emulating for who does not have
 ;; `custom.el'.
+;;
 ;; DEFCUSTOM below has the same effect as the original DEFVAR has.
-;; DEFGROUP and DEFFACE below are just nop macro.
+;; DEFFACE only makes a face.
+;; DEFGROUP and DEFINE-WIDGET below are just nop macro.
 
 ;;; Code:
 
@@ -39,7 +43,7 @@
 SYMBOL does not need to be quoted.
 Third arg DOC is the group documentation.
 
-This is a nop defgroup only for emulating purpose.."
+This is a nop defgroup only for emulating purpose."
   nil )
     
 (defmacro-maybe defcustom (symbol value doc &rest args) 
@@ -50,11 +54,18 @@ This is a defcustom only for emulating purpose.
 Its effect is just as same as that of defvar."
   (` (defvar (, symbol) (, value) (, doc))) )
     
-(defmacro-maybe defface (symbol value doc &rest args) 
+(defmacro-maybe defface (face value doc &rest args) 
   "Declare FACE as a customizable face that defaults to SPEC.
 FACE does not need to be quoted.
 
-This is a nop defface only for emulating purpose."
+This is a defface which only makes face FACE for emulating purpose."
+  (` (make-face (, face))) )
+
+(defmacro-maybe define-widget (name class doc)
+  "Define a new widget type named NAME from CLASS.
+The third argument DOC is a documentation string for the widget.
+
+This is a nop define-widget only for emulating purpose."
   nil )
 
 (provide 'tinycustom)