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

(apel-broken-p): New function.

diff --git a/ChangeLog b/ChangeLog
index 20d36ae..1355a6d 100644 (file)
--- 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 (file)
--- 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