From 6645b198f05a0847e411f1e7a8bcad88232b3189 Mon Sep 17 00:00:00 2001 From: morioka Date: Mon, 9 Mar 1998 17:02:29 +0000 Subject: [PATCH] tm 7.49. --- ChangeLog | 60 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Makefile | 2 +- emu-18.el | 11 ++++++++++- emu-19.el | 22 +++++++++++++++++++-- emu-xemacs.el | 40 ++++++++++++++++++++++++++++++++++++-- emu.el | 22 ++++++++++++++------- 6 files changed, 144 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index a81a600..3eae399 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,63 @@ +Mon Apr 15 08:57:58 1996 MORIOKA Tomohiko + + * tl: Version 7.19.1 was released. + + * tl-822.el (rfc822/parse-ascii-token): does not exit from loop + even if token-value is nil. + + * tl-822.el (rfc822/parse-ascii-token): nil check for token-value + +Sun Apr 14 00:11:18 1996 MORIOKA Tomohiko + + * emu.el (running-emacs-18, running-emacs-19): New variable + + * emu.el (running-emacs-19_29-or-later): New variable + +Sat Apr 13 23:46:09 1996 MORIOKA Tomohiko + + * emu.el (running-xemacs): New variable + +Thu Apr 11 14:13:56 1996 MORIOKA Tomohiko + + * mu-comment.el (comment-sexp-first-line-method-alist): New variable + (comment-sexp-middle-line-method-alist): New variable + (comment-sexp-last-line-method-alist): New variable + (comment-sexp-middle-line-method-for-lisp): New function + (comment-sexp-middle-line-method-for-c++): New function + (comment-sexp-first-line-method-for-c): New function + (comment-sexp-middle-line-method-for-c): New function + (comment-sexp-last-line-method-for-c): New function + (comment-sexp-last-line-method-for-dummy): New function + (comment-sexp): Call methods instead od insert directly + +Thu Apr 11 01:05:58 1996 MORIOKA Tomohiko + + * emu-xemacs.el (char-list-to-string): New macro + + * emu-19.el (char-list-to-string): New macro; moved from tl-str.el + + * emu-18.el (char-list-to-string): New function + + * tl-str.el: Macro `char-list-to-string' were moved to emu-*.el + +Tue Apr 9 20:42:59 1996 MORIOKA Tomohiko + + * tl-list.el (poly-funcall): New function + +Sun Apr 7 00:37:48 1996 MORIOKA Tomohiko + + * tl-misc.el (get-latest-path): New function + +Sat Apr 6 21:35:59 1996 MORIOKA Tomohiko + + * tl-str.el (version-to-list): New function + (version<, version<=, version>, version>=): New function + +Sat Apr 6 21:31:32 1996 MORIOKA Tomohiko + + * tl-str.el (expand-char-ranges): New function + + Mon Mar 25 12:00:57 1996 MORIOKA Tomohiko * tl: Version 7.19 was released. diff --git a/Makefile b/Makefile index 24feab4..bec8853 100644 --- a/Makefile +++ b/Makefile @@ -20,7 +20,7 @@ TLDIR19 = $(HOME)/lib/emacs19/lisp FILES = tl/README.eng tl/Makefile tl/mk-tl tl/tl-els \ tl/*.el tl/doc/*.texi tl/ChangeLog -TARFILE = tl-7.19.tar +TARFILE = tl-7.19.1.tar elc: diff --git a/emu-18.el b/emu-18.el index 93cf1ad..b9df350 100644 --- a/emu-18.el +++ b/emu-18.el @@ -6,7 +6,7 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: emu-18.el,v 7.9 1996/03/25 10:43:00 morioka Exp $ +;;; $Id: emu-18.el,v 7.10 1996/04/11 01:04:34 morioka Exp $ ;;; Keywords: emulation, compatibility ;;; ;;; This file is part of tl (Tiny Library). @@ -227,6 +227,15 @@ With optional non-nil ALL, force redisplay of all mode-lines. (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 ;;; diff --git a/emu-19.el b/emu-19.el index 077daab..1f9d089 100644 --- a/emu-19.el +++ b/emu-19.el @@ -6,10 +6,10 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: emu-19.el,v 7.0 1996/03/13 16:21:13 morioka Exp $ +;;; $Id: emu-19.el,v 7.1 1996/04/11 01:05:34 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 @@ -27,17 +27,35 @@ ;;; ;;; Code: +;;; @ text property +;;; + (defalias 'tl:set-text-properties 'set-text-properties) (defalias 'tl:add-text-properties 'add-text-properties) (defalias 'tl:make-overlay 'make-overlay) (defalias 'tl:overlay-put 'overlay-put) (defalias 'tl:overlay-buffer 'overlay-buffer) + +;;; @ mouse +;;; + (defvar mouse-button-1 [mouse-1]) (defvar mouse-button-2 [mouse-2]) (defvar mouse-button-3 [down-mouse-3]) +;;; @ string +;;; + +(defmacro char-list-to-string (char-list) + "Convert list of character CHAR-LIST to string. [emu-19.el]" + (` (mapconcat (function char-to-string) + (, char-list) + "") + )) + + ;;; @ end ;;; diff --git a/emu-xemacs.el b/emu-xemacs.el index 6a32b19..bc94124 100644 --- a/emu-xemacs.el +++ b/emu-xemacs.el @@ -6,10 +6,28 @@ ;;; ;;; Author: MORIOKA Tomohiko ;;; Version: -;;; $Id: emu-xemacs.el,v 7.1 1995/12/07 05:12:34 morioka Exp $ +;;; $Id: emu-xemacs.el,v 7.2 1996/04/11 01:05:58 morioka Exp $ ;;; Keywords: emulation, compatibility, XEmacs ;;; -;;; 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: + +;;; @ text property ;;; (or (fboundp 'face-list) @@ -50,10 +68,18 @@ (set-extent-endpoints extent start end) ) + +;;; @ mouse +;;; + (defvar mouse-button-1 'button1) (defvar mouse-button-2 'button2) (defvar mouse-button-3 'button3) + +;;; @ dired +;;; + (or (fboundp 'dired-other-frame) (defun dired-other-frame (dirname &optional switches) "\"Edit\" directory DIRNAME. Like `dired' but makes a new frame." @@ -63,7 +89,17 @@ ) +;;; @ string +;;; + +(defmacro char-list-to-string (char-list) + "Convert list of character CHAR-LIST to string. [emu-xemacs.el]" + `(mapconcat #'char-to-string ,char-list "")) + + ;;; @ end ;;; (provide 'emu-xemacs) + +;;; emu-xemacs.el ends here diff --git a/emu.el b/emu.el index 5bd09ba..a4fba79 100644 --- a/emu.el +++ b/emu.el @@ -7,7 +7,7 @@ ;;; Author: MORIOKA Tomohiko ;;; modified by Shuhei KOBAYASHI ;;; Version: -;;; $Id: emu.el,v 7.3 1996/03/13 17:13:31 morioka Exp $ +;;; $Id: emu.el,v 7.5 1996/04/14 00:11:18 morioka Exp $ ;;; Keywords: emulation, compatibility, NEmacs, Mule, XEmacs ;;; ;;; This file is part of tl (Tiny Library). @@ -28,11 +28,20 @@ ;;; ;;; Code: +(defvar running-xemacs (string-match "XEmacs" emacs-version)) + (cond ((boundp 'MULE) (require 'emu-mule)) ((boundp 'NEMACS)(require 'emu-nemacs)) (t (require 'emu-orig)) ) +(defvar running-emacs-18 (<= emacs-major-version 18)) +(defvar running-emacs-19 (and (not running-xemacs) + (= emacs-major-version 19))) +(defvar running-emacs-19_29-or-later + (or (and running-emacs-19 (>= emacs-minor-version 29)) + (>= emacs-major-version 20))) + ;;; @ Emacs 19.29 emulation ;;; @@ -45,16 +54,15 @@ string)) ) -(cond ((or (<= emacs-major-version 18) - (<= emacs-minor-version 28)) +(cond ((or running-emacs-19_29-or-later running-xemacs) + ;; for Emacs 19.29 or later and XEmacs + (defalias 'tl:read-string 'read-string) + ) + (t ;; for Emacs 19.28 or earlier (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) )) -- 1.7.10.4