Permalink
Browse files

Sync up to APEL 10.2.

  • Loading branch information...
shuhei
shuhei committed Mar 8, 2001
1 parent b4d553a commit 785df92ab7ae790e00e0546c7ea1d20deb4fb9f9
Showing with 1,021 additions and 116 deletions.
  1. +3 −3 APEL-CFG
  2. +124 −1 ChangeLog
  3. +1 −1 Makefile
  4. +3 −2 apel-ver.el
  5. +24 −0 emu.el
  6. +1 −0 mcs-20.el
  7. +38 −11 pces-om.el
  8. +149 −85 poe-18.el
  9. +44 −0 poe-xemacs.el
  10. +633 −1 poe.el
  11. +1 −12 timezone.el
View
@@ -24,10 +24,10 @@
;; make subdirectory.
;;
;; APEL_DIR: The directory where APEL modules will be installed.
-;; Generated from LISPDIR and APEL_DIR if it is not set.
+;; Generated from LISPDIR and APEL_PREFIX if it is not set.
;; EMU_DIR: The directory where EMU modules will be installed.
-;; Generated from VERSION_SPECIFIC_LISPDIR and EMU_DIR if
-;; it is not set.
+;; Generated from VERSION_SPECIFIC_LISPDIR and EMU_PREFIX
+;; if it is not set.
;;
;; For XEmacs with package system:
;;
View
125 ChangeLog
@@ -1,3 +1,126 @@
+2000-03-01 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * APEL: Version 10.2 released.
+
+2000-02-29 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * poe-18.el (current-time-string): Fixed leap year's day counting bug.
+
+2000-02-28 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * emu.el (enriched-encode): Do nothing for it if FSF Emacs 19.28
+ and earlier or XEmacs 19.13 and earlier is used.
+
+2000-02-25 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * emu.el (enriched-encode): Allow the 3rd argument ORIG-BUF for old
+ Emacsen.
+
+2000-02-21 Makoto Nakagawa <Makoto.Nakagawa@jp.compaq.com>
+
+ * poe.el (format-time-string): New function for Emacs 19.28 and
+ earlier.
+ (format-time-month-list): New constant for `format-time-string'.
+ (format-time-week-list): New constant for `format-time-string'.
+
+2000-02-21 Daiki Ueno <ueno@ueda.info.waseda.ac.jp>
+
+ * poe-18.el (walk-windows): New function.
+
+ * poe-xemacs.el
+ (set-extent-properties): New function.
+ (run-at-time): New function.
+ (cancel-timer): New function.
+ (with-timeout-handler): New function.
+ (with-timeout): New function.
+
+ * poe.el (remassq): New function.
+ (remassoc): New function.
+ (remrassoc): New function.
+ (get-buffer-window-list): New function.
+ (save-selected-frame): New macro.
+
+2000-02-10 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * poe.el (replace-match): Redefined to add `STRING' optional
+ argument.
+
+2000-02-07 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * poe-18.el (mod): Define as an alias for `%'.
+ (overlayp, move-overlay, delete-overlay, overlay-start,
+ overlay-end, overlay-buffer, overlay-properties, overlays-at,
+ overlays-in, next-overlay-change, previous-overlay-change,
+ overlay-lists, overlay-recenter, overlay-get):
+ Define as null function.
+
+2000-02-05 MORIOKA Tomohiko <tomo@m17n.org>
+
+ * mcs-20.el (mime-charset-coding-system-alist): Add
+ `iso-2022-jp-3'.
+
+2000-02-04 Katsumi Yamaoka <yamaoka@jpl.org>
+
+ * poe.el (read-file-name): Replacement for Emacs 19.28 and earlier
+ (except for Emacs 18) or XEmacs 19.13 and earlier, for
+ compatibility.
+
+2000-02-04 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * timezone.el (timezone-floor): Eliminated.
+ (timezone-fix-time-2): Use `floor' instead of `timezone-floor'.
+
+ * poe-18.el (current-time): Fixed leap year count bug.
+ (set-time-zone-rule): New function.
+ (current-time-zone): Use `set-time-zone-rule'.
+ (floor): New function.
+ (window-live-p): New function.
+ (read-from-minibuffer): Redefined to add `HIST' optional argument.
+ (accept-process-output): Redefined to add `TIMEOUT' and
+ `TIMEOUT-MSECS' optional arguments.
+ (get-buffer-window): Redefined to add `FRAME' optional argument.
+
+ * poe.el (completing-read): Redefined to adjust optional arguments
+ for some emacsen.
+
+2000-01-31 Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+ * poe-18.el (auto-fill-function): Declare with defvar-maybe.
+ (unread-command-event): Ditto.
+ (unread-command-events): Ditto.
+ (insert-and-inherit): Define with defalias.
+ (insert-before-markers-and-inherit): Ditto.
+ (number-to-string): Ditto.
+
+2000-01-30 Mikio Nakajima <minakaji@osaka.email.ne.jp>
+
+ * poe-18.el (window-minibuffer-p): New function.
+
+2000-01-30 Tsukamoto Tetsuo <czkmt@remus.dti.ne.jp>
+
+ * pces-om.el (insert-file-contents-as-coding-system): Ignore BEG,
+ END and REPLACE under Emacs 18, or Mule 1.1 or earlier.
+ (insert-file-contents-as-binary): Ditto.
+
+2000-01-27 Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+ * APEL-CFG: Typo.
+
+2000-01-26 Shuhei KOBAYASHI <shuhei@aqua.ocn.ne.jp>
+
+ * poe-18.el (set-match-data): New alias for `store-match-data'.
+ (save-match-data-internal): New variable.
+ (save-match-data): New macro; use above.
+
+ (defalias): Docstring sync.
+ (put-text-property): Typo.
+
+2000-01-23 Tsukamoto Tetsuo <czkmt@remus.dti.ne.jp>
+
+ * poe-18.el (byte-code-function-p): Check if the CDR of OBJECT is
+ a cons cell.
+
+
2000-01-21 Yuuichi Teranishi <teranisi@gohome.org>
* APEL: Version 10.1 released.
@@ -2473,7 +2596,7 @@
* APEL: Version 8.4 was released.
- * EMU-ELS: Don't use HIRAGANA LETTER A ($(B$"(B) to detect character
+ * EMU-ELS: Don't use HIRAGANA LETTER A ($B$"(B) to detect character
indexing (Emacs 20.3 or later).
1998-04-20 MORIOKA Tomohiko <morioka@jaist.ac.jp>
View
@@ -2,7 +2,7 @@
# Makefile for APEL.
#
-VERSION = 10.1
+VERSION = 10.2
TAR = tar
RM = /bin/rm -f
View
@@ -38,8 +38,9 @@
(product-provide 'apel-ver
;; (product-define "APEL" nil '(9 23)) ; comment.
;; (product-define "APEL" nil '(10 0)) ; Released 24 December 1999
- (product-define "APEL" nil '(10 1)) ; Released 20 January 2000
- ;; (product-define "APEL" nil '(10 2)) ;
+ ;; (product-define "APEL" nil '(10 1)) ; Released 20 January 2000
+ (product-define "APEL" nil '(10 2)) ; Released 01 March 2000
+ ;; (product-define "APEL" nil '(10 3))
)
(defun apel-version ()
View
24 emu.el
@@ -223,6 +223,30 @@ find-file-hooks, etc.
(autoload 'enriched-decode "tinyrich")
))
+(if (or (and (eq emacs-major-version 19)
+ (>= emacs-minor-version (if (featurep 'xemacs) 14 29)))
+ (and (eq emacs-major-version 20)
+ (< emacs-minor-version (if (featurep 'xemacs) 3 1))))
+ (eval-after-load "enriched"
+ '(if (fboundp 'si:enriched-encode)
+ nil
+ (fset 'si:enriched-encode (symbol-function 'enriched-encode))
+ (defun enriched-encode (from to &optional orig-buf)
+ (let* ((si:enriched-initial-annotation enriched-initial-annotation)
+ (enriched-initial-annotation
+ (if (stringp si:enriched-initial-annotation)
+ si:enriched-initial-annotation
+ (function
+ (lambda ()
+ (save-excursion
+ ;; Eval this in the buffer we are annotating. This
+ ;; fixes a bug which was saving incorrect File-Width
+ ;; information, since we were looking at local
+ ;; variables in the wrong buffer.
+ (if orig-buf (set-buffer orig-buf))
+ (funcall si:enriched-initial-annotation)))))))
+ (si::enriched-encode from to))))))
+
;;; @ end
;;;
View
@@ -43,6 +43,7 @@
(gb2312 . cn-gb-2312)
(cn-gb . cn-gb-2312)
(iso-2022-jp-2 . iso-2022-7bit-ss2)
+ (iso-2022-jp-3 . iso-2022-7bit-ss2)
(tis-620 . tis620)
(windows-874 . tis-620)
(cp874 . tis-620)
View
@@ -160,12 +160,23 @@
;;; @ with code-conversion
;;;
-(defun insert-file-contents-as-coding-system
- (coding-system filename &optional visit beg end replace)
- "Like `insert-file-contents', q.v., but CODING-SYSTEM the first arg will
+(cond
+ ((and (>= emacs-major-version 19) (>= emacs-minor-version 23))
+ ;; Mule 2.0 or later.
+ (defun insert-file-contents-as-coding-system
+ (coding-system filename &optional visit beg end replace)
+ "Like `insert-file-contents', q.v., but CODING-SYSTEM the first arg will
+be applied to `file-coding-system-for-read'."
+ (let ((file-coding-system-for-read coding-system))
+ (insert-file-contents filename visit beg end replace))))
+ (t
+ ;; Mule 1.1 or earlier.
+ (defun insert-file-contents-as-coding-system
+ (coding-system filename &optional visit beg end replace)
+ "Like `insert-file-contents', q.v., but CODING-SYSTEM the first arg will
be applied to `file-coding-system-for-read'."
- (let ((file-coding-system-for-read coding-system))
- (insert-file-contents filename visit beg end replace)))
+ (let ((file-coding-system-for-read coding-system))
+ (insert-file-contents filename visit)))))
(cond
((and (>= emacs-major-version 19) (>= emacs-minor-version 29))
@@ -237,17 +248,33 @@ applied to `coding-system-for-write'."
(defalias 'set-process-input-coding-system 'set-process-coding-system)
-(defun insert-file-contents-as-binary (filename
- &optional visit beg end replace)
- "Like `insert-file-contents', q.v., but don't code and format conversion.
+(cond
+ ((and (>= emacs-major-version 19) (>= emacs-minor-version 23))
+ ;; Mule 2.0 or later.
+ (defun insert-file-contents-as-binary (filename
+ &optional visit beg end replace)
+ "Like `insert-file-contents', q.v., but don't code and format conversion.
+Like `insert-file-contents-literary', but it allows find-file-hooks,
+automatic uncompression, etc.
+
+Namely this function ensures that only format decoding and character
+code conversion will not take place."
+ (as-binary-input-file
+ ;; Returns list absolute file name and length of data inserted.
+ (insert-file-contents filename visit beg end replace))))
+ (t
+ ;; Mule 1.1 or earlier.
+ (defun insert-file-contents-as-binary (filename
+ &optional visit beg end replace)
+ "Like `insert-file-contents', q.v., but don't code and format conversion.
Like `insert-file-contents-literary', but it allows find-file-hooks,
automatic uncompression, etc.
Namely this function ensures that only format decoding and character
code conversion will not take place."
- (as-binary-input-file
- ;; Returns list absolute file name and length of data inserted.
- (insert-file-contents filename visit beg end replace)))
+ (as-binary-input-file
+ ;; Returns list absolute file name and length of data inserted.
+ (insert-file-contents filename visit)))))
(defun insert-file-contents-as-raw-text (filename
&optional visit beg end replace)
Oops, something went wrong.

0 comments on commit 785df92

Please sign in to comment.