# HG changeset patch # User Pavel Jank # Date 995314944 0 # Node ID 519983161a466a75c2d3bb9f4757ada3bea47b54 # Parent e1e6c0c30e692dbc9b9677fcbb6e3c5c1ab7e51a Some fixes to follow lisp coding conventions and typo fixes. diff -r e1e6c0c30e69 -r 519983161a46 leim/ChangeLog --- a/leim/ChangeLog Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/ChangeLog Mon Jul 16 20:22:24 2001 +0000 @@ -1,3 +1,16 @@ +2001-07-16 Pavel Jan,Bm(Bk + + * ja-dic/ja-dic.el, quail/cyril-jis.el, quail/cyrillic.el, + quail/czech.el, quail/devanagari.el, quail/ethiopic.el, + quail/greek.el, quail/hangul.el, quail/hangul3.el, + quail/hanja-jis.el, quail/hanja.el, quail/hanja3.el, + quail/hebrew.el, quail/ipa.el, quail/japanese.el, quail/lao.el, + quail/latin-alt.el, quail/latin-ltx.el, quail/latin-post.el, + quail/latin-pre.el, quail/lrt.el, quail/py-punct.el, + quail/pypunct-b5.el, quail/slovak.el, quail/symbol-ksc.el, + quail/thai.el, quail/tibetan.el, quail/viqr.el: Some fixes to + follow coding conventions. + 2001-06-04 Andrew Choi * quail/.cvsignore: Change CTLauB.el to CTLau-b5.el. diff -r e1e6c0c30e69 -r 519983161a46 leim/ja-dic/ja-dic.el --- a/leim/ja-dic/ja-dic.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/ja-dic/ja-dic.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,9 +1,9 @@ -;; ja-dic.el -- dictionary for Japanese input method +;;; ja-dic.el --- dictionary for Japanese input method ;; Generated by the command `skkdic-convert' ;; Date: Sat Dec 16 09:09:04 2000 ;; Original SKK dictionary file: SKK-JISYO.L -;;; Comment: +;;; Commentary: ;; Do byte-compile this file again after any modification. @@ -20,6 +20,8 @@ ;; Yukiyoshi Kameyama, Akihiko Sasaki, Dai Ando, Junichi Okukawa, ;; Katsushi Sato and Nobuhiro Yamagishi ;; +;; This file is part of GNU Emacs. +;; ;; This dictionary is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either versions 2, or (at your option) @@ -54580,4 +54582,4 @@ ;; (provide 'ja-dic) -;; ja-dic.el ends here +;;; ja-dic.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/cyril-jis.el --- a/leim/quail/cyril-jis.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/cyril-jis.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/cyril-jis.el -- Quail package for inputting JISX0208 Cyrillic letters +;;; cyril-jis.el --- Quail package for inputting JISX0208 Cyrillic letters ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -140,3 +140,5 @@ ;; Local Variables: ;; buffer-file-coding-system: iso-2022-7bit ;; End: + +;;; cyril-jis.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/cyrillic.el --- a/leim/quail/cyrillic.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/cyrillic.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/cyrillic.el -- Quail package for inputting Cyrillic characters +;;; cyrillic.el --- Quail package for inputting Cyrillic characters ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -838,10 +840,8 @@ ("/I" ?,L&(B) ("/J" ?,L((B) ("/L" ?,L)(B) ("/N" ?,L*(B) ("/Z" ?,L/(B) ) - - - - ;; Local Variables: ;; buffer-file-coding-system: iso-2022-7bit ;; End: + +;;; cyrillic.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/czech.el --- a/leim/quail/czech.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/czech.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,9 +1,9 @@ -;;; quail/czech.el -- Quail package for inputting Czech +;;; czech.el --- Quail package for inputting Czech ;; Copyright (C) 1998, 2001 Free Software Foundation. ;; Author: Milan Zamazal -;; Maintainer: Pavel Jan,Al(Bk +;; Maintainer: Pavel Jan,Bm(Bk ;; Keywords: multilingual, input method, Czech ;; This file is part of GNU Emacs. @@ -566,3 +566,5 @@ ([kp-9] ?9) ([kp-0] ?0) ([kp-add] ?+)) + +;;; czech.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/devanagari.el --- a/leim/quail/devanagari.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/devanagari.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;; quail/devanagari.el -- Quail packages for inputting Devanagari +;;; devanagari.el --- Quail packages for inputting Devanagari ;; Copyright (C) 1997 Free Software Foundation, Inc. @@ -667,3 +667,5 @@ ) (devanagari-hindi-transliteration-quail-define-rules) + +;;; devanagari.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/ethiopic.el --- a/leim/quail/ethiopic.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/ethiopic.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;; quail/ethiopic.el --- Quail package for inputting Ethiopic characters +;;; ethiopic.el --- Quail package for inputting Ethiopic characters ;; Copyright (C) 1997, 1998 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -24,6 +24,8 @@ ;; Author: TAKAHASHI Naoto +;;; Commentary: + ;;; Code: (require 'quail) @@ -1144,4 +1146,4 @@ (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B) "ethiopic")) -;;; quail/ethiopic.el ends here +;;; ethiopic.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/greek.el --- a/leim/quail/greek.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/greek.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/greek.el -- Quail package for inputting Greek +;;; greek.el --- Quail package for inputting Greek ;; Copyright (C) 1997, 2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -904,3 +906,5 @@ ("Y:" ?,F[(B) ("i:;" ?,F@(B) ("y:;" ?,F`(B)) + +;;; greek.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/hangul.el --- a/leim/quail/hangul.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/hangul.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/hangul.el -- Quail package for inputting Korean Hangul characters +;;; hangul.el --- Quail package for inputting Korean Hangul characters ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -2605,3 +2607,5 @@ ("SA" ?$(C!J(B) ("SC/" ?$(C!K(B) ("SF" ?$(C"5(B)) + +;;; hangul.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/hangul3.el --- a/leim/quail/hangul3.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/hangul3.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/hangul3.el -- Quail package for inputting Korean Hangul characters +;;; hangul3.el --- Quail package for inputting Korean Hangul characters ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -2884,3 +2886,5 @@ ("md3" ?$(CH|(B) ("mdq" ?$(CH}(B) ("mda" ?$(CH~(B)) + +;;; hangul3.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/hanja-jis.el --- a/leim/quail/hanja-jis.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/hanja-jis.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/hanja-jis.el -- Quail package for inputting Korean Hanja (JISX0208) +;;; hanja-jis.el --- Quail package for inputting Korean Hanja (JISX0208) ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -521,3 +523,5 @@ ("gml" "$B4n4r4u5)5:5>I1Q%RzS)S`XAXZY&Zk[']8_f_g_t`!`:c6fTBTCTKTNTQTWT\T_UNU~V&V,V-V.V/V0V2V4V8VNW;WjWnWpY0YKY^Z1Zs[=[b[n\)\-\.\/\0\1\O\S\j\n\o\p\q\x]&]6]B]i^<^L^c_&_1`b +;;; Commentary: + +;;; Code: + (require 'quail) (quail-define-package @@ -1524,3 +1528,5 @@ ("U^^" ["U^"]) ("u^^" ["u^"]) ) + +;;; latin-alt.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/latin-ltx.el --- a/leim/quail/latin-ltx.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/latin-ltx.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/latin-ltx.el -- Quail package for TeX-style input -*-coding: iso-2022-7bit-*- +;;; latin-ltx.el --- Quail package for TeX-style input -*-coding: iso-2022-7bit-*- ;; Copyright (C) 2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -23,6 +23,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -900,3 +902,5 @@ ("\\mu" ?$,1'<(B) ("\\rho" ?$,1'A(B) ) + +;;; latin-ltx.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/latin-post.el --- a/leim/quail/latin-post.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/latin-post.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;; Quail packages for inputting various European characters. +;;; latin-post.el --- Quail packages for inputting various European characters ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -24,6 +24,10 @@ ;; Author: TAKAHASHI Naoto +;;; Commentary: + +;;; Code: + (require 'quail) (quail-define-package @@ -2121,3 +2125,5 @@ (">" ?V) ("?" ?Z) ) + +;;; latin-post.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/latin-pre.el --- a/leim/quail/latin-pre.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/latin-pre.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; latin-pre.el -- Quail packages for inputting various European characters. +;;; latin-pre.el --- Quail packages for inputting various European characters ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -31,8 +31,8 @@ ;; by R.F. Smith ;; ;; polish-slash: -;; Author: W,B3(Bodek Bzyl -;; Maintainer: W,B3(Bodek Bzyl +;; Author: W,B3(Bodek Bzyl +;; Maintainer: W,B3(Bodek Bzyl ;; ;; latin-[89]-prefix: Dave Love @@ -62,7 +62,7 @@ symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B " nil t nil nil nil nil nil nil nil nil t) -;; Fixme: should we have non-break space somehow? Is so, how? +;; Fixme: should we have non-break space somehow? If so, how? (quail-define-rules ("'A" ?,AA(B) ("'E" ?,AI(B) @@ -979,3 +979,5 @@ ("~$" ?,_#(B) ("^r" ?,_.(B) ("^c" ?,_)(B)) + +;;; latin-pre.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/lrt.el --- a/leim/quail/lrt.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/lrt.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/lrt.el --- Quail package for inputting Lao characters by LRT method +;;; lrt.el --- Quail package for inputting Lao characters by LRT method ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -74,4 +76,4 @@ lao-transcription-tone-alist) (t-state lao-transcription-tone-alist)))) -;;; quail/lrt.el ends here +;;; lrt.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/py-punct.el --- a/leim/quail/py-punct.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/py-punct.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;; quail/py-punct.el -- Quail packages for Chinese (pinyin + extra symbols) +;;; py-punct.el --- Quail packages for Chinese (pinyin + extra symbols) ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -24,6 +24,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (require 'quail) (load "quail/PY") @@ -65,3 +69,5 @@ ") (quail-defrule "v" (nth 2 (assoc "chinese-punct-b5" quail-package-alist))) + +;;; py-punct.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/pypunct-b5.el --- a/leim/quail/pypunct-b5.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/pypunct-b5.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;; quail/pypunct-b5.el -- Quail packages for Chinese (pinyin + extra symbols) +;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols) ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -24,6 +24,10 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + +;;; Code: + (require 'quail) (load "quail/PY-b5") @@ -48,3 +52,5 @@ (nth 2 (assoc "chinese-py-b5" quail-package-alist))) (quail-defrule "v" (nth 2 (assoc "chinese-punct-b5" quail-package-alist))) + +;;; pypunct-b5.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/slovak.el --- a/leim/quail/slovak.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/slovak.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,10 +1,10 @@ -;;; quail/slovak.el -- Quail package for inputting Slovak +;;; slovak.el --- Quail package for inputting Slovak ;; Copyright (C) 1998, 2001 Free Software Foundation. -;; Authors: Tibor ,B)(Bimko , -;; Milan Zamazal -;; Maintainer: Pavel Jan,Al(Bk +;; Authors: Tibor ,B)(Bimko +;; Milan Zamazal +;; Maintainer: Pavel Jan,Bm(Bk ;; Keywords: multilingual, input method, Slovak ;; This file is part of GNU Emacs. @@ -34,7 +34,6 @@ (require 'quail) - (quail-define-package "slovak" "Slovak" "SK" t "Standard Slovak keyboard." @@ -477,3 +476,5 @@ ([kp-9] ?9) ([kp-0] ?0) ([kp-add] ?+)) + +;;; slovak.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/symbol-ksc.el --- a/leim/quail/symbol-ksc.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/symbol-ksc.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) +;;; symbol-ksc.el --- Quail-package for Korean Symbol (KSC5601) ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -26,6 +26,7 @@ ;;; 94.11.04 Updated for Mule Ver.2.1 (koaunghi.un@zdv.uni-tuebingen.de) ;;; 96.09.23 Updated for emacs-19.33-beta (koaunghi.un@zdv.uni-tuebingen.de) +;;; Commentary: ;;; Code: @@ -196,3 +197,5 @@ ("kata" "$(C+"+#+$+%+&+'+(+)+*+++,+-+.+/+0+1+2+3+4+5+6+7+8+9+:+;+<+=+>+?+@+A+B+C+D+E+F+G+H+I+J+K+L+M+N+O+P+Q+R+S+T+U+V+W+X+Y+[+Z+\+]+^+_+`+a+b+c+d+e+f+g+h+i+j+k+l+m+n+o+p+q+r+s+t+u+v(B") ("Russ" "$(C,",#,$,%,&,',(,),*,+,,,-,.,/,0,1,2,3,4,5,6,7,8,9,:,;,<,=,>,?,@,A(B") ("russ" "$(C,Q,R,S,T,U,V,W,X,Y,[,Z,\,],^,_,`,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q(B")) + +;;; symbol-ksc.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/thai.el --- a/leim/quail/thai.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/thai.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/thai.el --- Quail package for inputting Thai characters +;;; thai.el --- Quail package for inputting Thai characters ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -125,3 +127,5 @@ ",Ta(B" ",Tg(B" ",TM(B" ",T7(B" ",TC(B" ",T4(B" ",TK(B" ",T5(B" ; p .. w ",T;(B" ",Th(B" ",T:(B" ",TO(B" ",Tm(B" ",TF(B" ",T%(B" 0 ; x .. DEL ])) + +;;; thai.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/tibetan.el --- a/leim/quail/tibetan.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/tibetan.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;;; quail/tibetan.el -- Quail package for inputting Tibetan characters +;;; tibetan.el --- Quail package for inputting Tibetan characters ;; Copyright (C) 1995 Free Software Foundation, Inc. ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. @@ -29,6 +29,8 @@ ;; 1997.03.13 Support for inputting special signs and punctuations added. ;; (Only Ext. Wylie input) +;;; Commentary: + ;;; Code: (require 'quail) @@ -447,3 +449,5 @@ (s-state (tibetan-subjoined-tibkey-alist . s-state) (tibetan-vowel-tibkey-alist . m-state)) (m-state tibetan-modifier-tibkey-alist)))) + +;;; tibetan.el ends here diff -r e1e6c0c30e69 -r 519983161a46 leim/quail/viqr.el --- a/leim/quail/viqr.el Mon Jul 16 18:41:09 2001 +0000 +++ b/leim/quail/viqr.el Mon Jul 16 20:22:24 2001 +0000 @@ -1,4 +1,4 @@ -;; quail/viqr.el -- Quail packages for inputting Vietnamese with VIQR system +;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -22,6 +22,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: (require 'quail) @@ -66,4 +68,4 @@ (viet-quail-define-rules) -;;; quail/viqr.el ends here +;;; viqr.el ends here