Permalink
Browse files

APEL 3.3.2.

  • Loading branch information...
morioka
morioka committed Mar 11, 1998
1 parent 581cc7e commit cc56a459a5fbdb3d2bfb18ebbe27fde6b81e780e
Showing with 191 additions and 83 deletions.
  1. +65 −0 ChangeLog
  2. +21 −7 Makefile
  3. +1 −1 emu-18.el
  4. +1 −9 emu-19.el
  5. +2 −2 emu-mule.el
  6. +9 −9 emu-nemacs.el
  7. +14 −19 emu-x20.el
  8. +10 −8 emu-xemacs.el
  9. +30 −0 emu.el
  10. +8 −10 file-detect.el
  11. +30 −18 filename.el
View
@@ -1,3 +1,68 @@
+1997-05-09 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu: Version 7.43.1 was released.
+ * APEL: Version 3.3.2 was released.
+
+Fri May 9 01:23:44 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * APEL-ELS: Add mule-caesar.el.
+
+ * mule-caesar.el: New file.
+
+
+1997-04-30 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * emu: Version 7.43 was released.
+ * APEL: Version 3.3.1 was released.
+
+Wed Apr 30 12:40:32 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * Makefile: add `release'.
+
+Mon Apr 28 16:47:30 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * Makefile: `TARFILE' was abolished.
+
+Thu Apr 3 17:14:39 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * APEL-ELS: std11.el and std11-parse.el were moved from mu/.
+
+
+1997-03-20 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * APEL: Version 3.3 was released.
+
+Thu Mar 20 06:09:03 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * Makefile: Add README.en.
+
+Thu Mar 20 06:08:29 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * file-detect.el: Header and DOC-strings were modified.
+
+Thu Mar 20 06:03:51 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * README.en: New file.
+
+Thu Mar 20 05:48:02 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * filename.el: Add DOC-strings.
+
+ * APEL-MK (install-apel): Use `compile-apel'.
+
+ * Makefile (install): Don't depend on `elc'.
+
+Thu Mar 20 02:04:19 1997 MORIOKA Tomohiko <morioka@jaist.ac.jp>
+
+ * APEL-MK: Setting for load-path and requiring install were moved
+ from APEL-CFG.
+
+ (install-apel): Compile apel-modules.
+
+ * APEL-CFG: Setting for load-path and requiring install were moved
+ to APEL-MK.
+
+
1997-03-14 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* APEL: Version 3.2 was released.
View
@@ -2,23 +2,26 @@
# $Id$
#
+VERSION = 3.3.2
+
+TAR = gtar
+RM = /bin/rm -f
+CP = /bin/cp -p
+
EMACS = emacs
FLAGS = -batch -q -no-site-file -l APEL-MK
PREFIX =
-FILES = emu/Makefile emu/EMU-MK emu/EMU-CFG emu/EMU-ELS \
- emu/*.el emu/README.?? \
- apel/Makefile apel/APEL-MK apel/APEL-CFG apel/APEL-ELS \
- apel/*.el
+EMU_FILES = EMU-ELS *.el
-TARFILE = apel-0.1.tar
+APEL_FILES = README.?? Makefile APEL-MK APEL-CFG APEL-ELS *.el ChangeLog
elc:
$(EMACS) $(FLAGS) -f compile-apel
-install: elc
+install:
$(EMACS) $(FLAGS) -f install-apel $(PREFIX)
@@ -27,4 +30,15 @@ clean:
tar:
- cd ..; tar cvf $(TARFILE) $(FILES); gzip -best $(TARFILE)
+ -cd ..; mkdir apel-$(VERSION)
+ -cd ../emu; $(CP) $(EMU_FILES) ../apel-$(VERSION)
+ -cd ../emu; $(CP) ChangeLog ../apel-$(VERSION)/ChangeLog.emu
+ -$(CP) $(APEL_FILES) ../apel-$(VERSION)
+ cd ..; $(TAR) cvzf apel-$(VERSION).tar.gz apel-$(VERSION)
+ cd ..; $(RM) -r apel-$(VERSION)
+
+release:
+ -$(RM) /pub/GNU/elisp/apel/apel-$(VERSION).tar.gz
+ cd ..; mv apel-$(VERSION).tar.gz /pub/GNU/elisp/apel/
+ cd /pub/GNU/elisp/mime/alpha/ ; \
+ ln -s ../../apel/apel-$(VERSION).tar.gz .
View
@@ -276,7 +276,7 @@ With optional non-nil ALL, force redisplay of all mode-lines.
;;; @ overlay
;;;
-(defun tl:overlay-buffer (overlay))
+(defun overlay-buffer (overlay))
;;; @ text property
View
@@ -33,15 +33,7 @@
)
-;;; @ overlay
-;;;
-
-(defalias 'tl:make-overlay 'make-overlay)
-(defalias 'tl:overlay-put 'overlay-put)
-(defalias 'tl:overlay-buffer 'overlay-buffer)
-
-
-;;; @@ visible/invisible
+;;; @ visible/invisible
;;;
(defmacro enable-invisible ())
View
@@ -50,8 +50,8 @@
)
(running-emacs-18
(require 'emu-18)
- (defun tl:make-overlay (beg end &optional buffer type))
- (defun tl:overlay-put (overlay prop value))
+ (defun make-overlay (beg end &optional buffer type))
+ (defun overlay-put (overlay prop value))
))
View
@@ -395,12 +395,12 @@ Optional non-nil arg START-COLUMN specifies the starting column.
;;; @ text property emulation
;;;
-(setq tl:available-face-attribute-alist
- '(
- ;;(bold . inversed-region)
- (italic . underlined-region)
- (underline . underlined-region)
- ))
+(defvar emu:available-face-attribute-alist
+ '(
+ ;;(bold . inversed-region)
+ (italic . underlined-region)
+ (underline . underlined-region)
+ ))
;; by YAMATE Keiichirou 1994/10/28
(defun attribute-add-narrow-attribute (attr from to)
@@ -441,11 +441,11 @@ Optional non-nil arg START-COLUMN specifies the starting column.
(setcdr (nthcdr posfrom attr-value)
(nthcdr posto attr-value)))))
-(defalias 'tl:make-overlay 'cons)
+(defalias 'make-overlay 'cons)
-(defun tl:overlay-put (overlay prop value)
+(defun overlay-put (overlay prop value)
(let ((ret (and (eq prop 'face)
- (assq value tl:available-face-attribute-alist)
+ (assq value emu:available-face-attribute-alist)
)))
(if ret
(attribute-add-narrow-attribute (cdr ret)
View
@@ -25,7 +25,7 @@
;;; Commentary:
-;; This module requires XEmacs 20.1 b6 or later with mule.
+;; This module requires XEmacs 20.1 b12 or later with mule.
;;; Code:
@@ -36,21 +36,20 @@
;;; @ coding-system
;;;
-(defconst *noconv* 'no-conversion)
+(defconst *noconv* 'binary)
(defmacro as-binary-process (&rest body)
`(let (selective-display ; Disable ^M to nl translation.
- (coding-system-for-write 'no-conversion)
- process-input-coding-system
- process-output-coding-system)
+ (coding-system-for-read 'binary)
+ (coding-system-for-write 'binary))
,@body))
(defmacro as-binary-input-file (&rest body)
- `(let ((coding-system-for-read 'no-conversion))
+ `(let ((coding-system-for-read 'binary))
,@body))
(defmacro as-binary-output-file (&rest body)
- `(let ((coding-system-for-write 'no-conversion))
+ `(let ((coding-system-for-write 'binary))
,@body))
@@ -64,7 +63,7 @@ A buffer may be modified in several ways after reading into the buffer due
to advanced Emacs features, such as file-name-handlers, format decoding,
find-file-hooks, etc.
This function ensures that none of these modifications will take place."
- (let ((coding-system-for-read 'no-conversion))
+ (let ((coding-system-for-read 'binary))
(insert-file-contents-literally filename visit beg end replace)
))
@@ -123,7 +122,7 @@ find-file-hooks, etc.
))
(defun mime-charset-to-coding-system (charset)
- "Return coding-system by MIME charset. [emu-x20.el]"
+ "Return coding-system by MIME charset."
(if (stringp charset)
(setq charset (intern (downcase charset)))
)
@@ -132,35 +131,32 @@ find-file-hooks, etc.
))
(defun detect-mime-charset-region (start end)
- "Return MIME charset for region between START and END.
-\[emu-x20.el]"
+ "Return MIME charset for region between START and END."
(charsets-to-mime-charset (charsets-in-region start end)))
(defun encode-mime-charset-region (start end charset)
- "Encode the text between START and END as MIME CHARSET.
-\[emu-x20.el]"
+ "Encode the text between START and END as MIME CHARSET."
(let ((cs (mime-charset-to-coding-system charset)))
(if cs
(encode-coding-region start end cs)
)))
(defun decode-mime-charset-region (start end charset)
- "Decode the text between START and END as MIME CHARSET.
-\[emu-x20.el]"
+ "Decode the text between START and END as MIME CHARSET."
(let ((cs (mime-charset-to-coding-system charset)))
(if cs
(decode-coding-region start end cs)
)))
(defun encode-mime-charset-string (string charset)
- "Encode the STRING as MIME CHARSET. [emu-x20.el]"
+ "Encode the STRING as MIME CHARSET."
(let ((cs (mime-charset-to-coding-system charset)))
(if cs
(encode-coding-string string cs)
string)))
(defun decode-mime-charset-string (string charset)
- "Decode the STRING as MIME CHARSET. [emu-x20.el]"
+ "Decode the STRING as MIME CHARSET."
(let ((cs (mime-charset-to-coding-system charset)))
(if cs
(decode-coding-string string cs)
@@ -179,8 +175,7 @@ find-file-hooks, etc.
(defun char-category (character)
"Return string of category mnemonics for CHAR in TABLE.
CHAR can be any multilingual character
-TABLE defaults to the current buffer's category table.
-\[emu-x20.el; Mule emulating function]"
+TABLE defaults to the current buffer's category table."
(mapconcat (lambda (chr)
(char-to-string (int-char chr))
)
View
@@ -46,16 +46,18 @@
;;; @ overlay
;;;
-(defalias 'tl:make-overlay 'make-extent)
-(defalias 'tl:overlay-put 'set-extent-property)
-(defalias 'tl:overlay-buffer 'extent-buffer)
-
-(defun tl:move-overlay (extent start end &optional buffer)
- (set-extent-endpoints extent start end)
- )
+(condition-case err
+ (require 'overlay)
+ (error (defalias 'make-overlay 'make-extent)
+ (defalias 'overlay-put 'set-extent-property)
+ (defalias 'overlay-buffer 'extent-buffer)
+ (defun move-overlay (extent start end &optional buffer)
+ (set-extent-endpoints extent start end)
+ )
+ ))
-;;; @@ visible/invisible
+;;; @ visible/invisible
;;;
(defmacro enable-invisible ())
View
30 emu.el
@@ -134,6 +134,17 @@ and `default-mime-charset'. [emu.el]"
default-mime-charset)))
+;;; @ Emacs 19 emulation
+;;;
+
+(defun-maybe minibuffer-prompt-width ()
+ "Return the display width of the minibuffer prompt."
+ (save-excursion
+ (set-buffer (window-buffer (minibuffer-window)))
+ (current-column)
+ ))
+
+
;;; @ Emacs 19.29 emulation
;;;
@@ -246,6 +257,22 @@ Value is nil if OBJECT is not a buffer or if it has been killed.
(and (consp obj)(eq (car obj) 'lambda))
))
+(defun-maybe point-at-eol (&optional arg buffer)
+ "Return the character position of the last character on the current line.
+With argument N not nil or 1, move forward N - 1 lines first.
+If scan reaches end of buffer, return that position.
+This function does not move point. [XEmacs emulating function]"
+ (save-excursion
+ (if buffer
+ (set-buffer buffer)
+ )
+ (if arg
+ (forward-line (1- arg))
+ )
+ (end-of-line)
+ (point)
+ ))
+
;;; @ for XEmacs 20
;;;
@@ -256,6 +283,9 @@ Value is nil if OBJECT is not a buffer or if it has been killed.
(or (fboundp 'int-char)
(fset 'int-char (symbol-function 'identity))
)
+(or (fboundp 'char-or-char-int-p)
+ (fset 'char-or-char-int-p (symbol-function 'integerp))
+ )
;;; @ for text/richtext and text/enriched
Oops, something went wrong.

0 comments on commit cc56a45

Please sign in to comment.