From a83cf41845281cc3a1bac35767315daef208577c Mon Sep 17 00:00:00 2001
From: ueno <ueno>
Date: Sun, 9 Sep 2001 09:43:51 +0000
Subject: [PATCH] * pccl.el (transform-make-coding-system-args): Follow old
 backquote style.

---
 pccl.el |   58 ++++++++++++++++++++++++++++++----------------------------
 1 file changed, 30 insertions(+), 28 deletions(-)

diff --git a/pccl.el b/pccl.el
index 646bab7..b8baba1 100644
--- a/pccl.el
+++ b/pccl.el
@@ -85,11 +85,12 @@ Value is a list of transformed arguments."
 	    (setq properties (plist-put properties 'pre-write-conversion tmp)))
 	(cond
 	 ((eq type 'shift-jis)
-	  `(,name 1 ,mnemonic ,doc-string () ,properties ,eol-type))
+	  (` ((, name) 1 (, mnemonic) (, doc-string)
+	      nil (, properties) (, eol-type))))
 	 ((eq type 'iso2022) ; This is not perfect.
 	  (if (plist-get props 'escape-quoted)
 	      (error "escape-quoted is not supported: %S"
-		     `(,name ,type ,doc-string ,props)))
+		     (` ((, name) (, type) (, doc-string) (, props)))))
 	  (let ((g0 (plist-get props 'charset-g0))
 		(g1 (plist-get props 'charset-g1))
 		(g2 (plist-get props 'charset-g2))
@@ -112,42 +113,43 @@ Value is a list of transformed arguments."
 		      'japanese-jisx0208-1978))))
 	    (if (charsetp g0)
 		(if (plist-get props 'force-g0-on-output)
-		    (setq g0 `(nil ,g0))
-		  (setq g0 `(,g0 t))))
+		    (setq g0 (` (nil (, g0))))
+		  (setq g0 (` ((, g0) t)))))
 	    (if (charsetp g1)
 		(if (plist-get props 'force-g1-on-output)
-		    (setq g1 `(nil ,g1))
-		  (setq g1 `(,g1 t))))
+		    (setq g1 (` (nil (, g1))))
+		  (setq g1 (` ((, g1) t)))))
 	    (if (charsetp g2)
 		(if (plist-get props 'force-g2-on-output)
-		    (setq g2 `(nil ,g2))
-		  (setq g2 `(,g2 t))))
+		    (setq g2 (` (nil (, g2))))
+		  (setq g2 (` ((, g2) t)))))
 	    (if (charsetp g3)
 		(if (plist-get props 'force-g3-on-output)
-		    (setq g3 `(nil ,g3))
-		  (setq g3 `(,g3 t))))
-	    `(,name 2 ,mnemonic ,doc-string
-	      (,g0 ,g1 ,g2 ,g3
-	       ,(plist-get props 'short)
-	       ,(not (plist-get props 'no-ascii-eol))
-	       ,(not (plist-get props 'no-ascii-cntl))
-	       ,(plist-get props 'seven)
-	       t
-	       ,(not (plist-get props 'lock-shift))
-	       ,use-roman
-	       ,use-oldjis
-	       ,(plist-get props 'no-iso6429)
-	       nil nil nil nil)
-	    ,properties ,eol-type)))
+		    (setq g3 (` (nil (, g3))))
+		  (setq g3 (` ((, g3) t)))))
+	    (` ((, name) 2 (, mnemonic) (, doc-string)
+		((, g0) (, g1) (, g2) (, g3)
+		 (, (plist-get props 'short))
+		 (, (not (plist-get props 'no-ascii-eol)))
+		 (, (not (plist-get props 'no-ascii-cntl)))
+		 (, (plist-get props 'seven))
+		 t
+		 (, (not (plist-get props 'lock-shift)))
+		 (, use-roman)
+		 (, use-oldjis)
+		 (, (plist-get props 'no-iso6429))
+		 nil nil nil nil)
+		(, properties) (, eol-type)))))
 	 ((eq type 'big5)
-	  `(,name 3 ,mnemonic ,doc-string () ,properties ,eol-type))
+	  (` ((, name) 3 (, mnemonic) (, doc-string)
+	      nil (, properties) (, eol-type))))
 	 ((eq type 'ccl)
-	  `(,name 4 ,mnemonic ,doc-string
-		  (,(plist-get props 'decode) . ,(plist-get props 'encode))
-		  ,properties ,eol-type))
+	  (` ((, name) 4 (, mnemonic) (, doc-string)
+	      ((, (plist-get props 'decode)) . (, (plist-get props 'encode)))
+	      (, properties) (, eol-type))))
 	 (t
 	  (error "unsupported XEmacs style make-coding-style arguments: %S"
-		 `(,name ,type ,doc-string ,props))))))
+		 (` ((, name) (, type) (, doc-string) (, props))))))))
     (defadvice make-coding-system
       (before ccl-compat (name type &rest ad-subr-args) activate)
       "Emulate XEmacs style make-coding-system."
-- 
1.7.10.4