;;; 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.3 1995/12/07 06:02:59 morioka Exp morioka $
+;;; $Id: emu-18.el,v 7.13 1996/04/24 12:04:27 morioka Exp $
;;; Keywords: emulation, compatibility
;;;
;;; This file is part of tl (Tiny Library).
;;; @ 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.
))
))
+(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
;;;
;;; @ 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.
)
+;;; @ 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-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
;;;