Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tm 7.49.

  • Loading branch information...
commit c28ca086e81c47460aa0f01e9d3f7405aed0c4bc 1 parent d6bdf8e
morioka authored
View
60 ChangeLog
@@ -1,3 +1,63 @@
+Mon Apr 15 08:57:58 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * emu.el (running-xemacs): New variable
+
+Thu Apr 11 14:13:56 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * 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 <morioka@jaist.ac.jp>
+
+ * tl-list.el (poly-funcall): New function
+
+Sun Apr 7 00:37:48 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-misc.el (get-latest-path): New function
+
+Sat Apr 6 21:35:59 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-str.el (version-to-list): New function
+ (version<, version<=, version>, version>=): New function
+
+Sat Apr 6 21:31:32 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * tl-str.el (expand-char-ranges): New function
+
+
Mon Mar 25 12:00:57 1996 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* tl: Version 7.19 was released.
View
2  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:
View
9 emu-18.el
@@ -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
;;;
View
20 emu-19.el
@@ -9,7 +9,7 @@
;;; $Id$
;;; 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
;;;
View
38 emu-xemacs.el
@@ -9,7 +9,25 @@
;;; $Id$
;;; 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
View
20 emu.el
@@ -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)
))
Please sign in to comment.
Something went wrong with that request. Please try again.