Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

APEL 3.4.2.

  • Loading branch information...
commit e0851a779a8497a1821286b37e7ee7ee32b8ad20 1 parent 6b6129c
morioka authored
Showing with 53 additions and 9 deletions.
  1. +27 −0 ChangeLog
  2. +1 −1  Makefile
  3. +6 −6 emu-20.el
  4. +7 −2 emu-e20.el
  5. +12 −0 emu.el
27 ChangeLog
View
@@ -1,3 +1,30 @@
+1997-09-09 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * APEL: Version 3.4.2 was released.
+
+ * README.en (What's APEL?): Add emu-20.el.
+
+1997-09-07 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu-20.el (mime-charset-to-coding-system): Use defsubst again;
+ modify implementation.
+
+ * emu-20.el (mime-charset-to-coding-system): Use
+ `find-coding-system'.
+
+ * emu-20.el (mime-charset-coding-system-alist): Use
+ `find-coding-system'.
+
+ * emu-e20.el (find-coding-system): New inline function.
+
+ * emu.el (defsubst-maybe): New macro.
+
+1997-09-03 MORIOKA Tomohiko <morioka@mousai>
+
+ * emu-20.el (mime-charset-to-coding-system): Use `defun' instead
+ of `defsubst'.
+
+
1997-09-02 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* APEL: Version 3.4.1 was released.
2  Makefile
View
@@ -2,7 +2,7 @@
# $Id$
#
-VERSION = 3.4.1
+VERSION = 3.4.2
TAR = gtar
RM = /bin/rm -f
12 emu-20.el
View
@@ -78,11 +78,10 @@ This constant is defined to emulate old MULE anything older than MULE
(iso-2022-jp-2 . iso-2022-7bit-ss2)
(x-ctext . ctext)
))
- (css (coding-system-list))
dest)
(while rest
(let ((pair (car rest)))
- (or (memq (car pair) css)
+ (or (find-coding-system (car pair))
(setq dest (cons pair dest))
))
(setq rest (cdr rest))
@@ -103,10 +102,11 @@ used as line break code type of coding-system."
(if ret
(setq charset (cdr ret))
))
- (if (memq charset (coding-system-list))
- (if lbt
- (intern (concat (symbol-name charset) "-" (symbol-name lbt)))
- charset)))
+ (if lbt
+ (setq charset (intern (format "%s-%s" charset lbt)))
+ )
+ (if (find-coding-system charset)
+ charset))
(defsubst encode-mime-charset-region (start end charset)
"Encode the text between START and END as MIME CHARSET."
9 emu-e20.el
View
@@ -44,8 +44,6 @@
(t 0)
)))
-(require 'emu-20)
-
;;; @ character set
;;;
@@ -67,6 +65,11 @@ in the region between START and END."
;;; @ coding system
;;;
+(defsubst-maybe find-coding-system (obj)
+ "Return OBJ if it is a coding-system."
+ (if (coding-system-p obj)
+ obj))
+
(defalias 'set-process-input-coding-system 'set-process-coding-system)
@@ -157,6 +160,8 @@ TABLE defaults to the current buffer's category table."
;;; @ end
;;;
+(require 'emu-20)
+
(provide 'emu-e20)
;;; emu-e20.el ends here
12 emu.el
View
@@ -36,6 +36,17 @@
))
)))
+(defmacro defsubst-maybe (name &rest everything-else)
+ (or (and (fboundp name)
+ (not (get name 'defsubst-maybe))
+ )
+ (` (or (fboundp (quote (, name)))
+ (progn
+ (defsubst (, name) (,@ everything-else))
+ (put (quote (, name)) 'defsubst-maybe t)
+ ))
+ )))
+
(defmacro defmacro-maybe (name &rest everything-else)
(or (and (fboundp name)
(not (get name 'defmacro-maybe))
@@ -48,6 +59,7 @@
)))
(put 'defun-maybe 'lisp-indent-function 'defun)
+(put 'defsubst-maybe 'lisp-indent-function 'defun)
(put 'defmacro-maybe 'lisp-indent-function 'defun)
(defmacro defconst-maybe (name &rest everything-else)
Please sign in to comment.
Something went wrong with that request. Please try again.