Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tm 7.45.

  • Loading branch information...
commit 32dd1d2d930004170c48e66c0a2b9158a462a98f 1 parent fc5522c
morioka authored
Showing with 74 additions and 13 deletions.
  1. +32 −0 ChangeLog
  2. +1 −1  Makefile
  3. +30 −4 emu-18.el
  4. +11 −8 emu.el
View
32 ChangeLog
@@ -1,3 +1,35 @@
+Mon Feb 26 01:14:28 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tl: Version 7.11.3 was released.
+
+ * emu-18.el (tl:set-text-properties): New function.
+ (tl:overlay-buffer): New function. (cf. [tm-ja:1606])
+
+Mon Feb 26 01:05:28 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-18.el (remove-hook): New function: Imported from Emacs
+ 19.28. (cf. [tm-ja:1606])
+
+ * emu-18.el (defalias): Implementation was fixed.
+ (cf. [tm-ja:1606])
+
+Mon Feb 26 00:56:18 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * emu.el: Version check was changed. (cf. [tm-ja:1606])
+
+Mon Feb 26 00:54:12 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * emu.el: Version check was changed. (cf. [tm-ja:1606])
+
+Sun Feb 25 18:08:24 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-list.el (expand-range): New implementation.
+
+ * tl-list.el: Function `uncompress-range' was renamed to
+ `expand-range'.
+
+ * tl-list.el (member-of-range): New implementation.
+
Fri Feb 23 20:43:33 1996 Morioka Tomohiko <morioka@jaist.ac.jp>
* tl-list.el (last): changed to macro.
View
2  Makefile
@@ -20,7 +20,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp
FILES = tl/README.eng tl/Makefile tl/mk-tl tl/*.el tl/doc/*.texi \
tl/ChangeLog
-TARFILE = tl-7.11.2.tar
+TARFILE = tl-7.11.3.tar
elc:
View
34 emu-18.el
@@ -30,7 +30,7 @@
;;; @ 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.
@@ -66,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
;;;
@@ -102,12 +121,12 @@ 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.
@@ -181,6 +200,13 @@ to create parent directories if they don't exist.
)
+;;; @ text property
+;;;
+
+(defun tl:set-text-properties (start end props &optional object))
+(defun tl:overlay-buffer (overlay))
+
+
;;; @ mouse
;;;
View
19 emu.el
@@ -2,7 +2,7 @@
;;; emu.el --- Emulation module for each Emacs variants
;;;
;;; Copyright (C) 1995 Free Software Foundation, Inc.
-;;; Copyright (C) 1995 MORIOKA Tomohiko
+;;; Copyright (C) 1995 .. 1996 MORIOKA Tomohiko
;;;
;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;;; Version:
@@ -36,17 +36,20 @@
;;; @ Emacs 19.29 emulation
;;;
-(cond ((fboundp 'buffer-substring-no-properties)
- ;; for Emacs 19.29 or later
- (defalias 'tl:read-string 'read-string)
- )
- (t
+(or (fboundp 'buffer-substring-no-properties)
+ (defalias 'buffer-substring-no-properties 'buffer-substring)
+ )
+
+(cond ((or (<= emacs-major-version 18)
+ (<= emacs-minor-version 28))
;; for Emacs 19.28 or earlier
- (defalias 'buffer-substring-no-properties 'buffer-substring)
-
(defun tl:read-string (prompt &optional initial-input history)
(read-string prompt initial-input)
)
+ )
+ (t
+ ;; for Emacs 19.29 or later
+ (defalias 'tl:read-string 'read-string)
))
Please sign in to comment.
Something went wrong with that request. Please try again.