From: teranisi <teranisi>
Date: Mon, 7 Feb 2000 01:06:54 +0000 (+0000)
Subject: * poe-18.el (mod): Define as an alias for `%'.
X-Git-Tag: apel-10_2~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e7337531aaf90be2649d5dd0e0d98681d7f1d72a;p=elisp%2Fapel.git

* poe-18.el (mod): Define as an alias for `%'.
 (overlayp, move-overlay, delete-overlay, overlay-start,
 overlay-end, overlay-buffer, overlay-properties, overlays-at,
 overlays-in, next-overlay-change, previous-overlay-change,
 overlay-lists, overlay-recenter, overlay-get):
 Define as null function.
---

diff --git a/ChangeLog b/ChangeLog
index c79ddcc..cced753 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,12 @@
+2000-02-07  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* poe-18.el (mod): Define as an alias for `%'.
+	(overlayp, move-overlay, delete-overlay, overlay-start,
+	overlay-end, overlay-buffer, overlay-properties, overlays-at,
+	overlays-in, next-overlay-change, previous-overlay-change,
+	overlay-lists, overlay-recenter, overlay-get):
+	Define as null function.
+
 2000-02-05  MORIOKA Tomohiko  <tomo@m17n.org>
 
 	* mcs-20.el (mime-charset-coding-system-alist): Add
@@ -2536,7 +2545,7 @@
 
 	* APEL: Version 8.4 was released.
 
-	* EMU-ELS: Don't use HIRAGANA LETTER A ($(B$"(B) to detect character
+	* EMU-ELS: Don't use HIRAGANA LETTER A ($B$"(B) to detect character
  	indexing (Emacs 20.3 or later).
 
 1998-04-20  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
diff --git a/poe-18.el b/poe-18.el
index d3fc2c5..b39f6f8 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -467,6 +467,8 @@ With optional DIVISOR, return the largest integer no greater than ARG/DIVISOR."
       (- (/ (- divisor 1 arg) divisor))
     (/ arg divisor)))
 
+(defalias 'mod '%)
+
 ;;; @ Basic lisp subroutines.
 ;;;
 
@@ -715,68 +717,22 @@ TIMEOUT and TIMEOUT-MSECS are ignored in this implementation."
 ;;; @ Overlay.
 ;;;
 
-(cond
- ((boundp 'NEMACS)
-  (defvar emu:available-face-attribute-alist
-    '(
-      ;;(bold      . inversed-region)
-      (italic    . underlined-region)
-      (underline . underlined-region)))
-
-  ;; by YAMATE Keiichirou 1994/10/28
-  (defun attribute-add-narrow-attribute (attr from to)
-    (or (consp (symbol-value attr))
-	(set attr (list 1)))
-    (let* ((attr-value (symbol-value attr))
-	   (len (car attr-value))
-	   (posfrom 1)
-	   posto)
-      (while (and (< posfrom len)
-		  (> from (nth posfrom attr-value)))
-	(setq posfrom (1+ posfrom)))
-      (setq posto posfrom)
-      (while (and (< posto len)
-		  (> to (nth posto attr-value)))
-	(setq posto (1+ posto)))
-      (if  (= posto posfrom)
-	  (if (= (% posto 2) 1)
-	      (if (and (< to len)
-		       (= to (nth posto attr-value)))
-		  (set-marker (nth posto attr-value) from)
-		(setcdr (nthcdr (1- posfrom) attr-value)
-			(cons (set-marker-type (set-marker (make-marker)
-							   from)
-					       'point-type)
-			      (cons (set-marker-type
-				     (set-marker (make-marker)
-						 to)
-				     nil)
-				    (nthcdr posto attr-value))))
-		(setcar attr-value (+ len 2))))
-	(if (= (% posfrom 2) 0)
-	    (setq posfrom (1- posfrom))
-	  (set-marker (nth posfrom attr-value) from))
-	(if (= (% posto 2) 0)
-	    nil
-	  (setq posto (1- posto))
-	  (set-marker (nth posto attr-value) to))
-	(setcdr (nthcdr posfrom attr-value)
-		(nthcdr posto attr-value)))))
-
-  (defalias 'make-overlay 'cons)
-
-  (defun overlay-put (overlay prop value)
-    (let ((ret (and (eq prop 'face)
-		    (assq value emu:available-face-attribute-alist))))
-      (if ret
-	  (attribute-add-narrow-attribute (cdr ret)
-					  (car overlay)(cdr overlay))))))
- (t
-  (defun make-overlay (beg end &optional buffer type))
-  (defun overlay-put (overlay prop value))))
-
+(defun overlayp (object))
+(defun make-overlay (beg end &optional buffer front-advance rear-advance))
+(defun move-overlay (overlay beg end &optional buffer))
+(defun delete-overlay (overlay))
+(defun overlay-start (overlay))
+(defun overlay-end (overlay))
 (defun overlay-buffer (overlay))
-
+(defun overlay-properties (overlay))
+(defun overlays-at (pos))
+(defun overlays-in (beg end))
+(defun next-overlay-change (pos))
+(defun previous-overlay-change (pos))
+(defun overlay-lists ())
+(defun overlay-recenter (pos))
+(defun overlay-get (overlay prop))
+(defun overlay-put (overlay prop value))
 
 ;;; @ End.
 ;;;