Permalink
Browse files

update.

  • Loading branch information...
morioka
morioka committed Oct 26, 1998
1 parent 5328ec7 commit 46df23dd04f00ef6b683ada9b425c9b8b280efe1
Showing with 14 additions and 72 deletions.
  1. +2 −35 ChangeLog
  2. +1 −1 Makefile
  3. +8 −13 README.ja
  4. +0 −13 poe-xemacs.el
  5. +3 −3 poe.el
  6. +0 −7 poem.el
View
@@ -1,34 +1,3 @@
-1998-10-27 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * APEL: Version 9.7 was released.
-
-1998-10-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * poem.el (cancel-undo-boundary): New function.
-
-1998-10-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * poe-xemacs.el (set-cursor-color): Add interactive spec; add
- DOC-string.
-
-1998-10-25 Mikio Nakajima <minakaji@osaka.email.ne.jp>
-
- * poe-xemacs.el (set-cursor-color): New function.
-
-1998-10-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * README.ja: Sync up with latest README.en.
-
-1998-10-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * poe.el (remove-local-hook): Use `defmacro-maybe'.
-
-1998-10-26 Mikio Nakajima <minakaji@osaka.email.ne.jp>
-
- * poe.el (add-local-hook): fixed.
- (remove-local-hook): fixed.
-
-
1998-10-26 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* APEL: Version 9.6 was released.
@@ -39,15 +8,13 @@
1998-10-25 MORIOKA Tomohiko <morioka@jaist.ac.jp>
- * poe-xemacs.el (eval-after-load): New function.
-
* poem-e20_3.el (characterp): New alias.
+ * poe-xemacs.el (eval-after-load): New function.
+
* poem.el (characterp): New alias.
(char-octet): New function.
-1998-10-25 Mikio Nakajima <minakaji@osaka.email.ne.jp>
-
* poe.el (make-local-hook): New macro.
(add-local-hook): New macro.
(remove-local-hook): New macro.
View
@@ -2,7 +2,7 @@
# Makefile for APEL.
#
-VERSION = 9.7
+VERSION = 9.6
TAR = tar
RM = /bin/rm -f
View
@@ -150,26 +150,21 @@ APEL $B$H$O!)(B
XEmacs $B$N%Q%C%1!<%8%7%9%F%`$O(B XEmacs 21.0 $B$+$=$l0J9_$rMW5a$9$k$3$H$K(B
$BCm0U$7$F$/$@$5$$!#(B
+load-path (Emacs $B$H(B MULE $BMQ(B)
+=============================
-load-path$B!J(BEmacs $B$H(B MULE $B>l9g!K(B
-===============================
-
- $B$b$7(B Emacs $B$b$7$/$O(B Mule $B$r$*;H$$$J$i!"(BAPEL $B$r(B install $B$7$?>l=j$r(B
- load-path $B$KDI2C$7$F$/$@$5$$!#$b$7=i4|@_Dj$G%$%s%9%H!<%k$7$?$N$J$i!"(B
- $B<!$N$h$&$K(B subdirs.el $B$r=q$/$3$H$,$G$-$^$9!#(B
-
- $BNc(B:
+ Emacs $B$+(B Mule $B$r;H$C$F$$$k$J$i!"(Bapel $B$N%G%#%l%/%H%j!<$r(B
+ load-path $B$KDI2C$7$F$/$@$5$$!#=i4|@_Dj$G%$%s%9%H!<%k$7$?$J$i!"<!$N$h(B
+ $B$&$K(B subdirs.el $B$r=q$/$3$H$,$G$-$^$9!#Nc(B:
--------------------------------------------------------------------
(normal-top-level-add-to-load-path '("apel"))
--------------------------------------------------------------------
- $B$b$7(B Emacs 20.3 $B0J9_$b$7$/$O(B XEmacs $B$r$*;H$$$J$i!"(Bload-path $B$r@_Dj$9(B
- $B$kI,MW$O$"$j$^$;$s!#(B
-
+ XEmacs $B$r;H$C$F$$$k$J$i!"(Bload-path $B$r@_Dj$9$kI,MW$O$"$j$^$;$s!#(B
$B;H$$J}(B
-======
+==========
alist
-----
@@ -310,4 +305,4 @@ filename
tm-en-help@chamonix.jaist.ac.jp ($B1Q8l(B)
tm-ja-help@chamonix.jaist.ac.jp ($BF|K\8l(B)
- $B$KAw$C$F$/$@$5$$!#(B
+ $B$KAw$C$F$/$@$5$$!#
View
@@ -25,19 +25,6 @@
;;; Code:
-;;; @ color
-;;;
-
-(defun-maybe set-cursor-color (color-name)
- "Set the text cursor color of the selected frame to COLOR.
-When called interactively, prompt for the name of the color to use."
- (interactive "sColor: ")
- (set-frame-property (selected-frame) 'cursor-color
- (if (color-instance-p color-name)
- color-name
- (make-color-instance color-name))))
-
-
;;; @ face
;;;
View
6 poe.el
@@ -199,13 +199,13 @@ The value is actually the element of LIST whose cdr equals KEY."
(defmacro-maybe add-local-hook (hook function &optional append)
(if (fboundp 'make-local-hook)
- (list 'add-hook hook function append t)
+ (list 'add-hook hook function append 'local)
(list 'add-hook hook function append)
))
-(defmacro-maybe remove-local-hook (hook function)
+(defmacro remove-local-hook (hook function)
(if (fboundp 'make-local-hook)
- (list 'remove-hook hook function t)
+ (list 'remove-hook hook function 'local)
(list 'remove-hook hook function)
))
View
@@ -47,13 +47,6 @@
))
-;;; @ MULE 2 emulation
-;;;
-
-(defsubst-maybe cancel-undo-boundary ()
- "Cancel undo boundary. [MULE 2.3 emulating function]")
-
-
;;; @ Emacs 20.3 emulation
;;;

0 comments on commit 46df23d

Please sign in to comment.