tm 7.105.2.

[elisp/apel.git] / emu-19.el

diff --git a/emu-19.el b/emu-19.el
index 60dfbf5..729dc6c 100644 (file)
--- a/emu-19.el
+++ b/emu-19.el
@@ -1,9 +1,9 @@
 ;;; emu-19.el --- emu API implementation for Emacs 19.*
 
-;; Copyright (C) 1995,1996 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997 Free Software Foundation, Inc.
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
-;; Version: $Id: emu-19.el,v 7.10 1996/11/28 18:17:45 morioka Exp $
+;; Version: $Id: emu-19.el,v 7.14 1997/03/06 17:48:03 morioka Exp $
 ;; Keywords: emulation, compatibility
 
 ;; This file is part of emu.
@@ -25,11 +25,17 @@
 
 ;;; Code:
 
-;;; @ text property
+;;; @ face
+;;;
+
+(defun-maybe find-face (face)
+  (car (memq face (face-list)))
+  )
+
+
+;;; @ overlay
 ;;;
 
-(defalias 'tl:set-text-properties 'set-text-properties)
-(defalias 'tl:add-text-properties 'add-text-properties)
 (defalias 'tl:make-overlay 'make-overlay)
 (defalias 'tl:overlay-put 'overlay-put)
 (defalias 'tl:overlay-buffer 'overlay-buffer)