tm 7.57.

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

diff --git a/emu-18.el b/emu-18.el
index 3c1fb8b..9fc84b2 100644 (file)
--- a/emu-18.el
+++ b/emu-18.el
@@ -2,20 +2,35 @@
 ;;; emu-18.el --- Emacs 19.* emulation module for Emacs 18.*
 ;;;
 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
+;;; Copyright (C) 1994 .. 1996 MORIOKA Tomohiko
 ;;;
 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Version:
-;;;    $Id: emu-18.el,v 7.1 1995/11/05 08:34:22 morioka Exp $
+;;;    $Id: emu-18.el,v 7.13 1996/04/24 12:04:27 morioka Exp $
 ;;; Keywords: emulation, compatibility
 ;;;
-;;; This file is part of tl and tm (Tools for MIME).
+;;; This file is part of tl (Tiny Library).
 ;;;
+;;; This program is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU General Public License as
+;;; published by the Free Software Foundation; either version 2, or
+;;; (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;;; General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU General Public License
+;;; along with This program.  If not, write to the Free Software
+;;; Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;;;
+;;; Code:
 
 ;;; @ hook
 ;;;
 
-;; This function is imported from AUC TeX.
+;; 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.
@@ -51,6 +66,25 @@ function, it is changed to a list of functions.
             ))
       ))
 
+(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'.
+\[emu-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
 ;;;
@@ -87,28 +121,30 @@ to be sure of changing the value of `foo'.
 ;;; @ function
 ;;;
 
-(defun defalias (SYM NEWDEF)
+(defun defalias (sym newdef)
   "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.
 Associates the function with the current load file, if any.
 \[emu-18.el; Emacs 19 emulating function]"
-  (fset SYM (symbol-function NEWDEF))
-  NEWDEF)
+  (fset sym newdef)
+  )
 
 (defun byte-code-function-p (exp)
   "T if OBJECT is a byte-compiled function object.
 \[emu-18.el; Emacs 19 emulating function]"
-  (let* ((rest (cdr (cdr exp))) elt)
-    (if (stringp (car rest))
-        (setq rest (cdr rest))
-      )
-    (catch 'tag
-      (while rest
-        (setq elt (car rest))
-        (if (and (consp elt)(eq (car elt) 'byte-code))
-            (throw 'tag t)
-          )
-        (setq rest (cdr rest))
-        ))))
+  (and (consp exp)
+       (let* ((rest (cdr (cdr exp))) elt)
+        (if (stringp (car rest))
+            (setq rest (cdr rest))
+          )
+        (catch 'tag
+          (while rest
+            (setq elt (car rest))
+            (if (and (consp elt)(eq (car elt) 'byte-code))
+                (throw 'tag t)
+              )
+            (setq rest (cdr rest))
+            ))
+        )))
 
 
 ;;; @ directory
@@ -154,14 +190,55 @@ to create parent directories if they don't exist.
     ))
 
 
+;;; @ mark
+;;;
+
+(or (fboundp 'si:mark)
+    (fset 'si:mark (symbol-function 'mark)))
+(defun mark (&optional force)
+  (si:mark)
+  )
+
+
+;;; @ mode-line
+;;;
+
+;;; Imported from Emacs 19.30.
+(defun force-mode-line-update (&optional all)
+  "Force the mode-line of the current buffer to be redisplayed.
+With optional non-nil ALL, force redisplay of all mode-lines.
+\[emu-18.el; Emacs 19 emulating function]"
+  (if all (save-excursion (set-buffer (other-buffer))))
+  (set-buffer-modified-p (buffer-modified-p)))
+
+
+;;; @ text property
+;;;
+
+(defun tl:set-text-properties (start end props &optional object))
+(defun tl:overlay-buffer (overlay))
+
+
 ;;; @ mouse
 ;;;
 
 (defvar mouse-button-1 nil)
 (defvar mouse-button-2 nil)
+(defvar mouse-button-3 nil)
+
+
+;;; @ string
+;;;
+
+(defun char-list-to-string (char-list)
+  "Convert list of character CHAR-LIST to string. [emu-18.el]"
+  (mapconcat (function char-to-string) char-list "")
+  )
 
 
 ;;; @ end
 ;;;
 
 (provide 'emu-18)
+
+;;; emu-18.el ends here