Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

update.

  • Loading branch information...
commit ee04255de5cd240c89dc5f5cc895ef5a8b378fcd 1 parent ed80091
morioka authored
View
15 ChangeLog
@@ -1,18 +1,3 @@
-1998-11-10 Tanaka Akira <akr@jaist.ac.jp>
-
- * README.en, README.ja, pccl-20.el: Note that pccl-20 is not
- for XEmacs 20.
-
-1998-11-08 MORIOKA Tomohiko <morioka@jaist.ac.jp>
-
- * poe-18.el (eval-and-compile): Moved from poe.el.
-
- * poe.el: Move `eval-and-compile' to poe-18.el.
-
- * poe-xemacs.el (overlayp): New alias.
- (delete-overlay): New alias.
-
-
1998-11-07 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* APEL: Version 9.9 was released.
View
2  README.en
@@ -39,7 +39,7 @@ What's APEL?
pccl.el --- utility to write portable CCL program
pccl-om.el --- for MULE 1.*, 2.*
- pccl-20.el --- for Emacs 20/XEmacs-21-MULE
+ pccl-20.el --- for Emacs 20/XEmacs-MULE
alist.el: utility for Association-list
View
8 README.ja
@@ -22,12 +22,12 @@ APEL $B$H$O!)(B
poem-e20_3.el --- Emacs 20.3 $BMQ(B
poem-xm.el --- XEmacs-MULE $BMQ(B
- invisible.el --- $BIT2D;k(B region $B$K4X$9$k5!G=$rDs6!$9$k(B
+ invisible.el --- $BIT2D;k(B region $B$K4X$9$k5!G=$rDs6!(B
inv-18.el --- for Emacs 18
inv-19.el --- for Emacs 19
inv-xemacs.el --- for XEmacs
- mcharset.el --- MIME charset $B4XO"$N5!G=$rDs6!$9$k(B
+ mcharset.el --- MIME charset $B4XO"$N5!G=$rDs6!(B
mcs-nemacs.el --- Nemacs $BMQ(B
mcs-ltn1.el --- MULE Emacs 19/XEmacs $BMQ(B
mcs-om.el --- MULE 1.*, 2.* $BMQ(B
@@ -35,11 +35,11 @@ APEL $B$H$O!)(B
mcs-e20.el --- Emacs 20 $BMQ(B
mcs-xm.el --- XEmacs-MULE $BMQ(B
- broken.el --- Emacs $B$N2u$l$F$$$k5!G=$N>pJs$rDs6!$9$k(B
+ broken.el --- Emacs $B$N4|BT$5$l$?$h$&$KF0$+$J$$5!G=$N>pJs$NDs6!(B
pccl.el --- $B0\?"2DG=$J(B CCL $B%W%m%0%i%`$r=q$/$?$a$N%f!<%F%#%j%F%#!<(B
pccl-om.el --- MULE 1.*, 2.* $BMQ(B
- pccl-20.el --- Emacs 20/XEmacs-21-MULE $BMQ(B
+ pccl-20.el --- Emacs 20/XEmacs-MULE $BMQ(B
alist.el: $BO"A[%j%9%H$N$?$a$N%f!<%F%#%j%F%#!<(B
View
2  pccl-20.el
@@ -1,4 +1,4 @@
-;;; pccl-20.el --- Portable CCL utility for Emacs 20 and XEmacs-21-mule
+;;; pccl-20.el --- Portable CCL utility for Emacs 20 and XEmacs-mule
;; Copyright (C) 1998 Free Software Foundation, Inc.
;; Copyright (C) 1998 Tanaka Akira
View
208 poe-18.el
@@ -24,6 +24,13 @@
;;; Code:
+(autoload 'setenv "env"
+ "Set the value of the environment variable named VARIABLE to VALUE.
+VARIABLE should be a string. VALUE is optional; if not provided or is
+`nil', the environment variable VARIABLE will be removed.
+This function works by modifying `process-environment'."
+ t)
+
(defvar-maybe data-directory exec-directory)
@@ -33,12 +40,76 @@
(defvar-maybe buffer-undo-list nil)
-;;; @ Lisp Language
+;;; @ hook
;;;
-;;; @@ list
+;; These function are imported from EMACS 19.28.
+(defun add-hook (hook function &optional append)
+ "Add to the value of HOOK the function FUNCTION.
+FUNCTION is not added if already present.
+FUNCTION is added (if necessary) at the beginning of the hook list
+unless the optional argument APPEND is non-nil, in which case
+FUNCTION is added at the end.
+
+HOOK should be a symbol, and FUNCTION may be any valid function. If
+HOOK is void, it is first set to nil. If HOOK's value is a single
+function, it is changed to a list of functions.
+\[poe-18.el; EMACS 19 emulating function]"
+ (or (boundp hook)
+ (set hook nil)
+ )
+ ;; If the hook value is a single function, turn it into a list.
+ (let ((old (symbol-value hook)))
+ (if (or (not (listp old))
+ (eq (car old) 'lambda))
+ (set hook (list old))
+ ))
+ (or (if (consp function)
+ ;; Clever way to tell whether a given lambda-expression
+ ;; is equal to anything in the hook.
+ (let ((tail (assoc (cdr function) (symbol-value hook))))
+ (equal function tail)
+ )
+ (memq function (symbol-value hook))
+ )
+ (set hook
+ (if append
+ (nconc (symbol-value hook) (list function))
+ (cons function (symbol-value hook))
+ ))
+ ))
+
+(defun remove-hook (hook function)
+ "Remove from the value of HOOK the function FUNCTION.
+HOOK should be a symbol, and FUNCTION may be any valid function. If
+FUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the
+list of hooks to run in HOOK, then nothing is done. See `add-hook'.
+\[poe-18.el; EMACS 19 emulating function]"
+ (if (or (not (boundp hook)) ;unbound symbol, or
+ (null (symbol-value hook)) ;value is nil, or
+ (null function)) ;function is nil, then
+ nil ;Do nothing.
+ (let ((hook-value (symbol-value hook)))
+ (if (consp hook-value)
+ (setq hook-value (delete function hook-value))
+ (if (equal hook-value function)
+ (setq hook-value nil)
+ ))
+ (set hook hook-value)
+ )))
+
+
+;;; @ list
;;;
+(defun member (elt list)
+ "Return non-nil if ELT is an element of LIST. Comparison done with EQUAL.
+The value is actually the tail of LIST whose car is ELT.
+\[poe-18.el; EMACS 19 emulating function]"
+ (while (and list (not (equal elt (car list))))
+ (setq list (cdr list)))
+ list)
+
(defun delete (elt list)
"Delete by side effect any occurrences of ELT as a member of LIST.
The modified LIST is returned. Comparison is done with `equal'.
@@ -59,27 +130,8 @@ to be sure of changing the value of `foo'.
(rplacd rest (cdr rrest))
list)))
-(defun member (elt list)
- "Return non-nil if ELT is an element of LIST. Comparison done with EQUAL.
-The value is actually the tail of LIST whose car is ELT.
-\[poe-18.el; EMACS 19 emulating function]"
- (while (and list (not (equal elt (car list))))
- (setq list (cdr list)))
- list)
-
-
-;;; @@ environment variable
-;;;
-
-(autoload 'setenv "env"
- "Set the value of the environment variable named VARIABLE to VALUE.
-VARIABLE should be a string. VALUE is optional; if not provided or is
-`nil', the environment variable VARIABLE will be removed.
-This function works by modifying `process-environment'."
- t)
-
-;;; @@ function
+;;; @ function
;;;
(defun defalias (sym newdef)
@@ -89,20 +141,6 @@ Associates the function with the current load file, if any.
(fset sym newdef)
)
-
-;;; @ Compilation Features
-;;;
-
-(defmacro-maybe defsubst (name arglist &rest body)
- "Define an inline function. The syntax is just like that of `defun'."
- (cons 'defun (cons name (cons arglist body)))
- )
-
-(defmacro-maybe eval-and-compile (&rest body)
- "Like `progn', but evaluates the body at compile time and at load time."
- ;; Remember, it's magic.
- (cons 'progn body))
-
(defun byte-code-function-p (exp)
"T if OBJECT is a byte-compiled function object.
\[poe-18.el; EMACS 19 emulating function]"
@@ -121,6 +159,11 @@ Associates the function with the current load file, if any.
))
)))
+(defmacro-maybe defsubst (name arglist &rest body)
+ "Define an inline function. The syntax is just like that of `defun'."
+ (cons 'defun (cons name (cons arglist body)))
+ )
+
(defun-maybe make-obsolete (fn new)
"Make the byte-compiler warn that FUNCTION is obsolete.
The warning will say that NEW should be used instead.
@@ -134,14 +177,6 @@ If NEW is a string, that is the `use instead' message."
fn)
-;;; @ text property
-;;;
-
-(defun set-text-properties (start end properties &optional object))
-
-(defun remove-text-properties (start end properties &optional object))
-
-
;;; @ file
;;;
@@ -227,7 +262,17 @@ If NOSORT is dummy for compatibility.
)
-;;; @ Display Features
+;;; @ mark
+;;;
+
+(or (fboundp 'si:mark)
+ (fset 'si:mark (symbol-function 'mark)))
+(defun mark (&optional force)
+ (si:mark)
+ )
+
+
+;;; @ mode-line
;;;
;;; Imported from Emacs 19.30.
@@ -309,6 +354,14 @@ With optional non-nil ALL, force redisplay of all mode-lines.
(defun overlay-buffer (overlay))
+;;; @ text property
+;;;
+
+(defun set-text-properties (start end properties &optional object))
+
+(defun remove-text-properties (start end properties &optional object))
+
+
;;; @ buffer
;;;
@@ -327,71 +380,6 @@ even if a buffer with that name exists."
new)
name))
-(or (fboundp 'si:mark)
- (fset 'si:mark (symbol-function 'mark)))
-(defun mark (&optional force)
- (si:mark)
- )
-
-
-;;; @ hook
-;;;
-
-;; These function are imported from EMACS 19.28.
-(defun add-hook (hook function &optional append)
- "Add to the value of HOOK the function FUNCTION.
-FUNCTION is not added if already present.
-FUNCTION is added (if necessary) at the beginning of the hook list
-unless the optional argument APPEND is non-nil, in which case
-FUNCTION is added at the end.
-
-HOOK should be a symbol, and FUNCTION may be any valid function. If
-HOOK is void, it is first set to nil. If HOOK's value is a single
-function, it is changed to a list of functions.
-\[poe-18.el; EMACS 19 emulating function]"
- (or (boundp hook)
- (set hook nil)
- )
- ;; If the hook value is a single function, turn it into a list.
- (let ((old (symbol-value hook)))
- (if (or (not (listp old))
- (eq (car old) 'lambda))
- (set hook (list old))
- ))
- (or (if (consp function)
- ;; Clever way to tell whether a given lambda-expression
- ;; is equal to anything in the hook.
- (let ((tail (assoc (cdr function) (symbol-value hook))))
- (equal function tail)
- )
- (memq function (symbol-value hook))
- )
- (set hook
- (if append
- (nconc (symbol-value hook) (list function))
- (cons function (symbol-value hook))
- ))
- ))
-
-(defun remove-hook (hook function)
- "Remove from the value of HOOK the function FUNCTION.
-HOOK should be a symbol, and FUNCTION may be any valid function. If
-FUNCTION isn't the value of HOOK, or, if FUNCTION doesn't appear in the
-list of hooks to run in HOOK, then nothing is done. See `add-hook'.
-\[poe-18.el; EMACS 19 emulating function]"
- (if (or (not (boundp hook)) ;unbound symbol, or
- (null (symbol-value hook)) ;value is nil, or
- (null function)) ;function is nil, then
- nil ;Do nothing.
- (let ((hook-value (symbol-value hook)))
- (if (consp hook-value)
- (setq hook-value (delete function hook-value))
- (if (equal hook-value function)
- (setq hook-value nil)
- ))
- (set hook hook-value)
- )))
-
;;; @ end
;;;
View
2  poe-xemacs.el
@@ -57,13 +57,11 @@ When called interactively, prompt for the name of the color to use."
(condition-case nil
(require 'overlay)
(error (defalias 'make-overlay 'make-extent)
- (defalias 'overlayp 'extentp)
(defalias 'overlay-put 'set-extent-property)
(defalias 'overlay-buffer 'extent-buffer)
(defun move-overlay (extent start end &optional buffer)
(set-extent-endpoints extent start end)
)
- (defalias 'delete-overlay 'detach-extent)
))
View
7 poe.el
@@ -151,9 +151,14 @@
))
-;;; @ Emacs 19.23 emulation
+;;; @ Emacs 19 emulation
;;;
+(defmacro-maybe eval-and-compile (&rest body)
+ "Like `progn', but evaluates the body at compile time and at load time."
+ ;; Remember, it's magic.
+ (cons 'progn body))
+
(defun-maybe minibuffer-prompt-width ()
"Return the display width of the minibuffer prompt."
(save-excursion
Please sign in to comment.
Something went wrong with that request. Please try again.