From: minakaji <minakaji>
Date: Mon, 31 Jan 2000 04:56:20 +0000 (+0000)
Subject: * poe-18.el (defalias): Remove its definition as a function and
X-Git-Tag: apel-10_2~19
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6fdf23431920452adb70f3cf507d670fbcdc3953;p=elisp%2Fapel.git

* poe-18.el (defalias): Remove its definition as a function and
define it as an alias for `fset'.
(auto-fill-function): Declare with defvar-maybe.
(unread-command-event): Ditto.
(unread-command-events): Ditto.
(insert-and-inherit): Defile with defalias.
(insert-before-markers-and-inherit): Ditto.
(number-to-string): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index b5048ee..82290e5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,14 @@
+2000-01-31  Mikio Nakajima  <minakaji@osaka.email.ne.jp>
+
+	* poe-18.el (defalias): Remove its definition as a function and
+	define it as an alias for `fset'.
+	(auto-fill-function): Declare with defvar-maybe.
+	(unread-command-event): Ditto.
+	(unread-command-events): Ditto.
+	(insert-and-inherit): Defile with defalias.
+	(insert-before-markers-and-inherit): Ditto.
+	(number-to-string): Ditto.
+
 2000-01-30  Mikio Nakajima  <minakaji@osaka.email.ne.jp>
 
 	* poe-18.el (window-minibuffer-p): New function.
diff --git a/poe-18.el b/poe-18.el
index 07cf039..3a7e4e4 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -50,13 +50,7 @@
 
 ;;; @ Compilation.
 ;;;
-
-(defun defalias (symbol definition)
-  "Set SYMBOL's function definition to DEFINITION, and return DEFINITION.
-Associates the function with the current load file, if any.
-
-This emulating function does not support load-history feature."
-  (fset symbol definition))
+(fset 'defalias 'fset)
 
 (defun byte-code-function-p (object)
   "Return t if OBJECT is a byte-compiled function object."
@@ -494,10 +488,16 @@ With optional non-nil ALL, force redisplay of all mode-lines."
 ;;; @ Basic editing commands.
 ;;;
 
-;; 18.55 does not have this variable.
+;; 18.55 does not have these variables.
 (defvar buffer-undo-list nil)
+(defvar-maybe auto-fill-function nil)
+(defvar-maybe unread-command-event nil)
+(defvar-maybe unread-command-events nil)
 
 (defalias 'buffer-disable-undo 'buffer-flush-undo)
+(defalias 'insert-and-inherit 'insert)
+(defalias 'insert-before-markers-and-inherit 'insert-before-markers)
+(defalias 'number-to-string 'int-to-string)
 
 (defun generate-new-buffer-name (name &optional ignore)
   "Return a string that is the name of no existing buffer based on NAME.