From nobody Fri Nov 05 07:49:29 2021 X-Original-To: dev-commits-ports-main@mlmmj.nyi.freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2610:1c1:1:606c::19:1]) by mlmmj.nyi.freebsd.org (Postfix) with ESMTP id 62DCD1844B51; Fri, 5 Nov 2021 07:49:29 +0000 (UTC) (envelope-from git@FreeBSD.org) Received: from mxrelay.nyi.freebsd.org (mxrelay.nyi.freebsd.org [IPv6:2610:1c1:1:606c::19:3]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (4096 bits) server-digest SHA256 client-signature RSA-PSS (4096 bits) client-digest SHA256) (Client CN "mxrelay.nyi.freebsd.org", Issuer "R3" (verified OK)) by mx1.freebsd.org (Postfix) with ESMTPS id 4Hlt212DQ6z3hjB; Fri, 5 Nov 2021 07:49:29 +0000 (UTC) (envelope-from git@FreeBSD.org) Received: from gitrepo.freebsd.org (gitrepo.freebsd.org [IPv6:2610:1c1:1:6068::e6a:5]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (4096 bits) server-digest SHA256) (Client did not present a certificate) by mxrelay.nyi.freebsd.org (Postfix) with ESMTPS id 2D00613674; Fri, 5 Nov 2021 07:49:29 +0000 (UTC) (envelope-from git@FreeBSD.org) Received: from gitrepo.freebsd.org ([127.0.1.44]) by gitrepo.freebsd.org (8.16.1/8.16.1) with ESMTP id 1A57nTDA056309; Fri, 5 Nov 2021 07:49:29 GMT (envelope-from git@gitrepo.freebsd.org) Received: (from git@localhost) by gitrepo.freebsd.org (8.16.1/8.16.1/Submit) id 1A57nTxD056308; Fri, 5 Nov 2021 07:49:29 GMT (envelope-from git) Date: Fri, 5 Nov 2021 07:49:29 GMT Message-Id: <202111050749.1A57nTxD056308@gitrepo.freebsd.org> To: ports-committers@FreeBSD.org, dev-commits-ports-all@FreeBSD.org, dev-commits-ports-main@FreeBSD.org From: Yasuhiro Kimura Subject: git: d59facdd8f77 - main - editors/tamago: Unbreak with Emacs 28 List-Id: Commits to the main branch of the FreeBSD ports repository List-Archive: https://lists.freebsd.org/archives/dev-commits-ports-main List-Help: List-Post: List-Subscribe: List-Unsubscribe: Sender: owner-dev-commits-ports-main@freebsd.org X-BeenThere: dev-commits-ports-main@freebsd.org MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Git-Committer: yasu X-Git-Repository: ports X-Git-Refname: refs/heads/main X-Git-Reftype: branch X-Git-Commit: d59facdd8f77110a194894cf74806a83b3879893 Auto-Submitted: auto-generated X-ThisMailContainsUnwantedMimeParts: N The branch main has been updated by yasu: URL: https://cgit.FreeBSD.org/ports/commit/?id=d59facdd8f77110a194894cf74806a83b3879893 commit d59facdd8f77110a194894cf74806a83b3879893 Author: Yasuhiro Kimura AuthorDate: 2020-09-09 00:26:11 +0000 Commit: Yasuhiro Kimura CommitDate: 2021-11-05 07:48:48 +0000 editors/tamago: Unbreak with Emacs 28 PR: 249201 Approved by: maintainer timeout (> 13 months) MFH: 2021Q4 --- editors/tamago/Makefile | 5 +- editors/tamago/files/patch-make-coding-system | 237 ++++++++++++++++++++++++++ 2 files changed, 238 insertions(+), 4 deletions(-) diff --git a/editors/tamago/Makefile b/editors/tamago/Makefile index 7e67201abdd0..fb8c305bce1c 100644 --- a/editors/tamago/Makefile +++ b/editors/tamago/Makefile @@ -3,7 +3,7 @@ PORTNAME= tamago PORTVERSION= 4.0.6.0.20041122.19.14 DISTVERSIONPREFIX= v -PORTREVISION= 6 +PORTREVISION= 7 CATEGORIES= editors elisp PKGNAMESUFFIX= ${EMACS_PKGNAMESUFFIX} @@ -13,9 +13,6 @@ COMMENT= Egg V4, Multilingual Input Method for Emacsen LICENSE= GPLv2 USES= emacs -# Fails to build with Emacs 27. -# Temporarily disable devel_full and devel_nox. -EMACS_FLAVORS_EXCLUDE= devel_full devel_nox USE_GITHUB= yes GH_ACCOUNT= hrs-allbsd diff --git a/editors/tamago/files/patch-make-coding-system b/editors/tamago/files/patch-make-coding-system new file mode 100644 index 000000000000..6de81e8bcacd --- /dev/null +++ b/editors/tamago/files/patch-make-coding-system @@ -0,0 +1,237 @@ +diff --git egg-com.el egg-com.el +index 63ebdb5..daab668 100644 +--- egg-com.el ++++ egg-com.el +@@ -99,135 +99,38 @@ + (prog1 (- (point) pos) + (goto-char pos)))) + +-(if (and (fboundp 'make-coding-system) +- (null (get 'make-coding-system 'byte-obsolete-info))) +-;; since Emacs 23.1, make-coding-system has been marked as obsolete. +- (eval-and-compile +- (define-ccl-program ccl-decode-fixed-euc-jp +- `(2 +- ((r2 = ,(charset-id 'japanese-jisx0208)) +- (r3 = ,(charset-id 'japanese-jisx0212)) +- (r4 = ,(charset-id 'katakana-jisx0201)) +- (read r0) +- (loop +- (read r1) +- (if (r0 < ?\x80) +- ((r0 = r1) +- (if (r1 < ?\x80) +- (write-read-repeat r0)) +- (write r4) +- (write-read-repeat r0)) +- ((if (r1 > ?\x80) +- ((write r2 r0) +- (r0 = r1) +- (write-read-repeat r0)) +- ((write r3 r0) +- (r0 = (r1 | ?\x80)) +- (write-read-repeat r0))))))))) +- +- (define-ccl-program ccl-encode-fixed-euc-jp +- `(2 +- ((read r0) +- (loop +- (if (r0 == ,(charset-id 'latin-jisx0201)) ; Unify +- ((read r0) +- (r0 &= ?\x7f))) +- (if (r0 < ?\x80) ;G0 +- ((write 0) +- (write-read-repeat r0))) +- (r6 = (r0 == ,(charset-id 'japanese-jisx0208))) +- (r6 |= (r0 == ,(charset-id 'japanese-jisx0208-1978))) +- (if r6 ;G1 +- ((read r0) +- (write r0) +- (read r0) +- (write-read-repeat r0))) +- (if (r0 == ,(charset-id 'katakana-jisx0201)) ;G2 +- ((read r0) +- (write 0) +- (write-read-repeat r0))) +- (if (r0 == ,(charset-id 'japanese-jisx0212)) ;G3 +- ((read r0) +- (write r0) +- (read r0) +- (r0 &= ?\x7f) +- (write-read-repeat r0))) +- (read r0) +- (repeat))))) +- (make-coding-system 'fixed-euc-jp 4 ?W "Coding System for fixed EUC Japanese" +- (cons ccl-decode-fixed-euc-jp ccl-encode-fixed-euc-jp)) +- ) +- (eval-and-compile +- ;; since Emacs 23.1, make-coding-system has been marked as obsolete. +- ;; From Handa-san. [mule-ja : No.09414] +- (define-charset 'fixed-euc-jp +- "Fixed EUC Japanese" +- :dimension 2 +- :superset '(ascii +- (katakana-jisx0201 . #x80) +- (japanese-jisx0208 . #x8080) +- (japanese-jisx0212 . #x8000))) +- (define-coding-system 'fixed-euc-jp +- "Coding System for fixed EUC Japanese" +- :mnemonic ?W +- :coding-type 'charset +- :charset-list '(fixed-euc-jp)) +- ) ++(eval-and-compile ++ (define-charset 'fixed-euc-jp ++ "Fixed EUC Japanese" ++ :dimension 2 ++ :superset '(ascii ++ (katakana-jisx0201 . #x80) ++ (japanese-jisx0208 . #x8080) ++ (japanese-jisx0212 . #x8000))) ++ (define-coding-system 'fixed-euc-jp ++ "Coding System for fixed EUC Japanese" ++ :mnemonic ?W ++ :coding-type 'charset ++ :charset-list '(fixed-euc-jp)) + ) + + ;; Korean +- +-(if (and (fboundp 'make-coding-system) +- (null (get 'make-coding-system 'byte-obsolete-info))) +-;; since Emacs 23.1, make-coding-system has been marked as obsolete. +- (eval-and-compile +-(define-ccl-program ccl-decode-fixed-euc-kr +- `(2 +- ((r2 = ,(charset-id 'korean-ksc5601)) +- (read r0) +- (loop +- (read r1) +- (if (r0 < ?\x80) +- (r0 = r1 & ?\x7f) +- ((write r2 r0) +- (r0 = r1 | ?\x80))) +- (write-read-repeat r0))))) +- +-(define-ccl-program ccl-encode-fixed-euc-kr +- `(2 +- ((read r0) +- (loop +- (if (r0 < ?\x80) +- ((write 0) +- (write-read-repeat r0))) +- (if (r0 == ,(charset-id 'korean-ksc5601)) +- ((read r0) +- (write r0) +- (read r0) +- (write-read-repeat r0))) +- (read r0) +- (repeat))))) +-(make-coding-system 'fixed-euc-kr 4 ?W "Coding System for fixed EUC Korean" +- (cons ccl-decode-fixed-euc-kr ccl-encode-fixed-euc-kr))) +- (eval-and-compile +- ;; since Emacs 23.1, make-coding-system has been marked as obsolete. +- (define-charset 'fixed-euc-kr +- "Fixed EUC Korean" +- :dimension 2 +- :superset '(ascii +- (korean-ksc5601 . #x8080))) +- (define-coding-system 'fixed-euc-kr +- "Coding System for fixed EUC Korean" +- :mnemonic ?W +- :coding-type 'charset +- :charset-list '(fixed-euc-kr)) +- ) +-) ++(eval-and-compile ++ (define-charset 'fixed-euc-kr ++ "Fixed EUC Korean" ++ :dimension 2 ++ :superset '(ascii ++ (korean-ksc5601 . #x8080))) ++ (define-coding-system 'fixed-euc-kr ++ "Coding System for fixed EUC Korean" ++ :mnemonic ?W ++ :coding-type 'charset ++ :charset-list '(fixed-euc-kr)) ++ ) + + + ;; Chinese + ;; +-;; TODO: convert an obsolete make-coding-system to define-coding-system. + + (defconst egg-pinyin-shengmu + '(("" . 0) ("B" . 1) ("C" . 2) ("Ch" . 3) ("D" . 4) +@@ -687,29 +590,33 @@ Return the length of resulting text." + (defun post-read-decode-euc-zy-tw (len) + (post-read-decode-fixed-euc-china len 'tw t)) + +-(make-coding-system 'fixed-euc-py-cn 0 ?W +- "Coding System for fixed EUC Chinese-gb2312") ++(define-coding-system ++ 'fixed-euc-py-cn "Coding System for fixed EUC Chinese-gb2312" ++ :mnemonic ?W :coding-type 'emacs-mule) + (coding-system-put 'fixed-euc-py-cn + 'pre-write-conversion 'pre-write-encode-euc-cn) + (coding-system-put 'fixed-euc-py-cn + 'post-read-conversion 'post-read-decode-euc-py-cn) + +-(make-coding-system 'fixed-euc-zy-cn 0 ?W +- "Coding System for fixed EUC Chinese-gb2312") ++(define-coding-system ++ 'fixed-euc-zy-cn "Coding System for fixed EUC Chinese-gb2312" ++ :mnemonic ?W :coding-type 'emacs-mule) + (coding-system-put 'fixed-euc-zy-cn + 'pre-write-conversion 'pre-write-encode-euc-cn) + (coding-system-put 'fixed-euc-zy-cn + 'post-read-conversion 'post-read-decode-euc-zy-cn) + +-(make-coding-system 'fixed-euc-py-tw 0 ?W +- "Coding System for fixed EUC Chinese-cns11643") ++(define-coding-system ++ 'fixed-euc-py-tw "Coding System for fixed EUC Chinese-cns11643" ++ :mnemonic ?W :coding-type 'emacs-mule) + (coding-system-put 'fixed-euc-py-tw + 'pre-write-conversion 'pre-write-encode-euc-tw) + (coding-system-put 'fixed-euc-py-tw + 'post-read-conversion 'post-read-decode-euc-py-tw) + +-(make-coding-system 'fixed-euc-zy-tw 0 ?W +- "Coding System for fixed EUC Chinese-cns11643") ++(define-coding-system ++ 'fixed-euc-zy-tw "Coding System for fixed EUC Chinese-cns11643" ++ :mnemonic ?W :coding-type 'emacs-mule) + (coding-system-put 'fixed-euc-zy-tw + 'pre-write-conversion 'pre-write-encode-euc-tw) + (coding-system-put 'fixed-euc-zy-tw +@@ -735,8 +642,9 @@ Return the length of resulting text." + (r0 = 0))) + (write-read-repeat r0)))))) + +-(make-coding-system 'egg-binary 4 ?W "Coding System for binary data" +- (cons ccl-decode-egg-binary ccl-encode-egg-binary)) ++(define-coding-system 'egg-binary "Coding System for binary data" ++ :mnemonic ?W :coding-type 'ccl :ccl-decoder ccl-decode-egg-binary ++ :ccl-encoder ccl-encode-egg-binary) + + + (defun comm-format-u32c (uint32c) +diff --git egg-x0213.el egg-x0213.el +index ce13eb3..bb44584 100644 +--- egg-x0213.el ++++ egg-x0213.el +@@ -104,8 +104,10 @@ + (repeat))) + (repeat))))) + +- (make-coding-system +- 'fixed-euc-jisx0213 4 ?W "Coding System for fixed EUC Japanese" +- (cons ccl-decode-fixed-euc-jisx0213 ccl-encode-fixed-euc-jisx0213)))) ++ (define-coding-system ++ 'fixed-euc-jisx0213 "Coding System for fixed EUC Japanese" ++ :mnemonic ?W :coding-type 'ccl ++ :ccl-decoder ccl-decode-fixed-euc-jisx0213 ++ :ccl-encoder ccl-encode-fixed-euc-jisx0213))) + + (provide 'egg-x0213)