Commits

Anonymous committed 5187495

Romanian and Russian TUTORIAL support

Comments (0)

Files changed (6)

+1998-07-09  SL Baur  <steve@altair.xemacs.org>
+
+	* cyrillic.el "Cyrillic-ISO": Add Russian Tutorial.
+	"Cyrillic-KOI8": Ditto.
+	"Cyrillic": Ditto.
+	"Cyrillic-ALT": Ditto.
+
+1998-06-27  SL Baur  <steve@altair.xemacs.org>
+
+	* european.el ("Romanian"): Add support for Romanian Tutorial.
+	("Croatian"): 
+	("Romanian"): 
+	("Polish"): Serbian and Croatian are NOT synonymous.
+
+1998-06-05  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* mule-misc.el (split-char): fixed.
+
+1998-04-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* hebrew-hooks.el: Delete garbage.
+
+1998-04-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* china-util.el (decode-hz-region): Use 'cn-gb-2312 instead of
+ 	'euc-china.
+
+1997-12-26  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
+
+	* cyrillic.el: Comment out `ccl-encode-alternativnyj-font' because
+	it is not used.
+
+	* cyrillic.el: Comment out `ccl-encode-koi8-font' because it is
+	not used.
+
+	* cyrillic.el: Revive coding-system `koi8-r'.
+
 1998-05-10  Martin Buchholz  <martin@xemacs.org>
 
 	* mule-tty-init.el: Use before-init-hook to allow user's .emacs to 
 
 	* mule-init.el (init-mule): Locale specific start files have been
 	moved to the data-directory.
-
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.17
+VERSION = 1.19
 AUTHOR_VERSION =
 MAINTAINER = SL Baur <steve@altair.xemacs.org>
 PACKAGE = mule-base
 		  ;; If any, we had better decode them also.
 		  (goto-char (point-min))
 		  (re-search-forward "[\240-\377]" nil t))) 
-	    (decode-coding-region (point-min) (point-max) 'euc-china)))
+	    (decode-coding-region (point-min) (point-max) 'cn-gb-2312)))
 
       ;; "~~" -> "~"
       (goto-char (point-min))
 ;;   '("Cyrillic" . setup-cyrillic-environment-map)
 ;;   t)
 
-;; (define-language-environment 'cyrillic
-;;   "Cyrillic"
-;;   (lambda ()
-;;     (set-coding-category-system 'iso-8-designate 'iso-8859-5)
-;;     (set-coding-priority-list '(iso-8-designate iso-8-1))
-;;     (set-default-buffer-file-coding-system 'iso-8859-5)
-;;     (setq terminal-coding-system 'iso-8859-5)
-;;     (setq keyboard-coding-system 'iso-8859-5)
-;;     ;; (setq-default quail-current-package
-;;     ;;               (assoc "yawerty" quail-package-alist))
-;;     ))
 
 ;; ISO-8859-5 staff
 
  "Cyrillic-ISO" '((setup-function . (setup-cyrillic-iso-environment
 				     . setup-cyrillic-environment-map))
 		  (charset . (cyrillic-iso8859-5))
+		  (tutorial . "TUTORIAL.ru")
 		  (coding-system . (iso-8859-5))
 		  (sample-text . "Russian (,L@caaZXY(B)	,L7T`PRabRcYbU(B!")
 		  (documentation . ("Support for Cyrillic ISO-8859-5."
 ;(define-coding-system-alias 'koi8-r 'cyrillic-koi8)
 ;(define-coding-system-alias 'koi8 'cyrillic-koi8)
 
-;(make-coding-system
-;  'koi8-r 'ccl
-;  "Coding-system used for KOI8-R."
-;  `(decode ,ccl-decode-koi8
-;    encode ,ccl-encode-koi8
-;    mnemonic "KOI8"))
+(make-coding-system
+ 'koi8-r 'ccl
+ "Coding-system used for KOI8-R."
+ `(decode ,ccl-decode-koi8
+   encode ,ccl-encode-koi8
+   mnemonic "KOI8"))
 
 ;(define-coding-system-alias 'koi8-r 'koi8)
 
-(define-ccl-program ccl-encode-koi8-font
-  '(0
-    ((r1 -= 160)
-     (r1 = r1
-	 [ 32 179  32  32  32  32  32  32  32  32  32  32  32  32  32  32
-	      225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240
-	      242 243 244 245 230 232 227 254 251 253 255 249 248 252 224 241
-	      193 194 215 199 196 197 214 218 201 202 203 204 205 206 207 208
-	      210 211 212 213 198 200 195 222 219 221 223 217 216 220 192 209
-	      32 163  32  32  32  32  32  32  32  32  32  32  32  32  32  32])
-     ))
-  "CCL program to encode Cyrillic chars to KOI font.")
+;; (define-ccl-program ccl-encode-koi8-font
+;;   '(0
+;;     ((r1 -= 160)
+;;      (r1 = r1
+;;          [ 32 179  32  32  32  32  32  32  32  32  32  32  32  32  32  32
+;;               225 226 247 231 228 229 246 250 233 234 235 236 237 238 239 240
+;;               242 243 244 245 230 232 227 254 251 253 255 249 248 252 224 241
+;;               193 194 215 199 196 197 214 218 201 202 203 204 205 206 207 208
+;;               210 211 212 213 198 200 195 222 219 221 223 217 216 220 192 209
+;;               32 163  32  32  32  32  32  32  32  32  32  32  32  32  32  32])
+;;      ))
+;;   "CCL program to encode Cyrillic chars to KOI font.")
 
 ;; (setq font-ccl-encoder-alist
 ;;       (cons (cons "koi8" ccl-encode-koi8-font) font-ccl-encoder-alist))
 				      . setup-cyrillic-environment-map))
 		   (charset . (cyrillic-iso8859-5))
 		   (coding-system . (koi8-r))
+		   (tutorial . "TUTORIAL.ru")
 		   (sample-text . "Russian (,L@caaZXY(B)	,L7T`PRabRcYbU(B!")
 		   (documentation . ("Support for Cyrillic KOI-8."
 				     . describe-cyrillic-environment-map))))
    encode ,ccl-encode-alternativnyj
    mnemonic "Cy.Alt"))
 
-(define-ccl-program ccl-encode-alternativnyj-font
-  '(0
-    ((r1 -= 160)
-     (r1 = r1
-      [ 32 240  32  32  32  32  32  32  32  32  32  32  32  32  32  32
-       128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
-       144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
-       160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175
-       224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
-       255 241  32  32  32  32  32  32  32  32  32  32  32  32  32  32])
-     ))
-  "CCL program to encode Cyrillic chars to Alternativnyj font.")
+;; (define-ccl-program ccl-encode-alternativnyj-font
+;;   '(0
+;;     ((r1 -= 160)
+;;      (r1 = r1
+;;       [ 32 240  32  32  32  32  32  32  32  32  32  32  32  32  32  32
+;;        128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
+;;        144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159
+;;        160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175
+;;        224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239
+;;        255 241  32  32  32  32  32  32  32  32  32  32  32  32  32  32])
+;;      ))
+;;   "CCL program to encode Cyrillic chars to Alternativnyj font.")
 
 ;; (setq font-ccl-encoder-alist
 ;;       (cons (cons "alternativnyj" ccl-encode-alternativnyj-font)
 				     . setup-cyrillic-environment-map))
 		  (charset . (cyrillic-iso8859-5))
 		  (coding-system . (alternativnyj))
+		  (tutorial . "TUTORIAL.ru")
 		  (sample-text . "Russian (,L@caaZXY(B)	,L7T`PRabRcYbU(B!")
 		  (documentation . ("Support for Cyrillic ALTERNATIVNYJ."
 				    . describe-cyrillic-environment-map))))
  "Cyrillic" '((setup-function . setup-cyrillic-environment)
               (describe-function . describe-cyrillic-support)
               (charset . (cyrillic-iso8859-5))
+	      (tutorial . "TUTORIAL.ru")
               (coding-system . (iso-8859-5 koi8-r alternativnyj))
               (sample-text . "Russian (,L@caaZXY(B) ,L7T`PRabRcYbU(B!")
               (documentation . nil)))
 	      (documentation . ("\
 These languages are supported with the Latin-2 (ISO-8859-2) character set:
  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
- Serbian or Croatian, Slovak, Slovene, and Swedish.
+ Serbian, Croatian, Slovak, Slovene, and Swedish.
 " . describe-european-environment-map))
 	      ))
 
 	      (documentation . ("\
 These languages are supported with the Latin-2 (ISO-8859-2) character set:
  Albanian, Czech, English, German, Hungarian, Polish, Romanian,
- Serbian or Croatian, Slovak, Slovene, and Swedish.
+ Serbian, Croatian, Slovak, Slovene, and Swedish.
+" . describe-european-environment-map))
+	      ))
+
+(set-language-info-alist
+ "Romanian" '((setup-function . (setup-latin2-environment
+				 . setup-european-environment-map))
+	      (charset . (ascii latin-iso8859-2))
+	      (tutorial . "TUTORIAL.ro")
+	      (coding-system . (iso-8859-2))
+	      (documentation . ("\
+These languages are supported with the Latin-2 (ISO-8859-2) character set:
+ Albanian, Czech, English, German, Hungarian, Polish, Romanian,
+ Serbian, Croatian, Slovak, Slovene, and Swedish.
 " . describe-european-environment-map))
 	      ))
 
   "Return list of charset and one or two position-codes of CHAR."
   (let ((charset (char-charset char)))
     (if (eq charset 'ascii)
-	(list charset char)
+	(list charset (char-int char))
       (let ((i 0)
 	    (len (charset-dimension charset))
 	    (code (if (integerp char)