From: akr <akr>
Date: Fri, 18 Sep 1998 18:18:20 +0000 (+0000)
Subject: * pccl.el (apel-broken-facility): New function.
X-Git-Tag: poe-199811302358~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6a0da9a0459e5430109a4877e987a4d9b0025e00;p=elisp%2Fapel.git

* pccl.el (apel-broken-facility): New function.
(apel-broken-p): New function.
---

diff --git a/ChangeLog b/ChangeLog
index 20d36ae..1355a6d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 1998-09-18  Tanaka Akira      <akr@jaist.ac.jp>
 
+	* pccl.el (apel-broken-facility): New function.
+	(apel-broken-p): New function.
+
+1998-09-18  Tanaka Akira      <akr@jaist.ac.jp>
+
 	* pccl.el: Fix author.
 
 1998-09-17  Katsumi Yamaoka   <yamaoka@jpl.org>
diff --git a/pccl.el b/pccl.el
index eca8323..9214785 100644
--- a/pccl.el
+++ b/pccl.el
@@ -3,6 +3,7 @@
 ;; Copyright (C) 1998 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;;         Tanaka Akira <akr@jaist.ac.jp>
 ;; Keywords: emulation, compatibility, Mule
 
 ;; This file is part of APEL (A Portable Emacs Library).
@@ -24,6 +25,14 @@
 
 ;;; Code:
 
+(defun apel-broken-facility (facility)
+  "Declare that FACILITY emulation is broken."
+  (put facility 'poe-broken t))
+
+(defun apel-broken-p (facility)
+  "t if FACILITY emulation is broken."
+  (get facility 'poe-broken))
+
 (if (featurep 'mule)
     (if (>= emacs-major-version 20)
 	;; for Emacs 20 and XEmacs-mule