Some fixes to follow lisp coding conventions and typo fixes.

29 files changed, 155 insertions, 48 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 9ca242f4a06..e8a7ff60aeb 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,16 @@
+2001-07-16  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+        * 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  <akochoi@i-cable.com>
 
         * quail/.cvsignore: Change CTLauB.el to CTLau-b5.el.
diff --git a/leim/ja-dic/ja-dic.el b/leim/ja-dic/ja-dic.el
index 93306bef389..56249760060 100644
--- a/leim/ja-dic/ja-dic.el
+++ b/leim/ja-dic/ja-dic.el
@@ -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 --git a/leim/quail/cyril-jis.el b/leim/quail/cyril-jis.el
index c17c9c76fb3..5196b4c63c6 100644
--- a/leim/quail/cyril-jis.el
+++ b/leim/quail/cyril-jis.el
@@ -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 --git a/leim/quail/cyrillic.el b/leim/quail/cyrillic.el
index 1cd7f08eaf8..efe713f00f2 100644
--- a/leim/quail/cyrillic.el
+++ b/leim/quail/cyrillic.el
@@ -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 @@ The only difference with cyrillic-translit is that \"sht\" translates as
  ("/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 --git a/leim/quail/czech.el b/leim/quail/czech.el
index 666a9c0cf80..15fd8774b78 100644
--- a/leim/quail/czech.el
+++ b/leim/quail/czech.el
@@ -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 <pdm@zamazal.org>
-;; Maintainer: Pavel Jan,Al(Bk <Pavel@Janik.cz>
+;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz>
 ;; Keywords: multilingual, input method, Czech
 
 ;; This file is part of GNU Emacs.
@@ -566,3 +566,5 @@ All other keys are the same as on standard US keyboard."
  ([kp-9] ?9)
  ([kp-0] ?0)
  ([kp-add] ?+))
+
+;;; czech.el ends here
diff --git a/leim/quail/devanagari.el b/leim/quail/devanagari.el
index 9d840b91bf7..8f4ac00e3db 100644
--- a/leim/quail/devanagari.el
+++ b/leim/quail/devanagari.el
@@ -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 @@ Specials   :   Anuswar       M  $(5!"(B     Visarg        H  $(5!#(B
                       )
 
 (devanagari-hindi-transliteration-quail-define-rules)
+
+;;; devanagari.el ends here
diff --git a/leim/quail/ethiopic.el b/leim/quail/ethiopic.el
index 3b010615558..929570446d0 100644
--- a/leim/quail/ethiopic.el
+++ b/leim/quail/ethiopic.el
@@ -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 <ntakahas@etl.go.jp>
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'quail)
@@ -1144,4 +1146,4 @@ C-' or `M-x ethio-gemination'
                  (if (ethio-prefer-amharic-p) ?$(3"c(B ?$(3"f(B)
                  "ethiopic"))
 
-;;; quail/ethiopic.el ends here
+;;; ethiopic.el ends here
diff --git a/leim/quail/greek.el b/leim/quail/greek.el
index aa815650761..ea20b83dab3 100644
--- a/leim/quail/greek.el
+++ b/leim/quail/greek.el
@@ -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 @@ e.g.
  ("Y:" ?,F[(B)
  ("i:;" ?,F@(B)
  ("y:;" ?,F`(B))
+
+;;; greek.el ends here
diff --git a/leim/quail/hangul.el b/leim/quail/hangul.el
index 08447ba44c5..044d12b9930 100644
--- a/leim/quail/hangul.el
+++ b/leim/quail/hangul.el
@@ -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 @@ For instance, typing \"S\" followed by TAB will tell you
  ("SA"  ?$(C!J(B)
  ("SC/" ?$(C!K(B)
  ("SF"  ?$(C"5(B))
+
+;;; hangul.el ends here
diff --git a/leim/quail/hangul3.el b/leim/quail/hangul3.el
index 57fcc0b4d06..974c7557ded 100644
--- a/leim/quail/hangul3.el
+++ b/leim/quail/hangul3.el
@@ -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 --git a/leim/quail/hanja-jis.el b/leim/quail/hanja-jis.el
index 1814d2e92ab..865981684d7 100644
--- a/leim/quail/hanja-jis.el
+++ b/leim/quail/hanja-jis.el
@@ -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`!`:c6f<nZrF(B")
  ("glf" "$B5Merk#pvs\(B")
  ("unknown"     "$B4#<5DNFJFdFuJ=KsL]QeRIRpS&S9SuS{T*T+T8T:T>TBTCTKTNTQTWT\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`<a:a<a>b<bBbXbmbpbsc%c5cNcdc}d&d1d=dIdLdYdddfdhdte9eaebemenevf$g3g\h4h6hHhMhWhhiFi[ibj,jQj^jmk\lCmZmhmimzn%n}o'oZo]p#p-pXp]p`q;qIqRr;r@rGrOrZr_rer~s#s%(B"))
+
+;;; hanja-jis.el ends here
diff --git a/leim/quail/hanja.el b/leim/quail/hanja.el
index 9cad9fcbef4..861cd22f5f8 100644
--- a/leim/quail/hanja.el
+++ b/leim/quail/hanja.el
@@ -1,4 +1,4 @@
-;;; quail/hanja.el --- Quail-package for Korean Hanja (KSC5601)
+;;; hanja.el --- Quail-package for Korean Hanja (KSC5601)
 
 ;; 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)
@@ -507,3 +509,5 @@
  ("gmd" "$(C}i(B")
  ("gml" "$(C}j}k}l}m}n}o}p}q}r}s}t}u}v}w}x}y}z}{}|}}(B")
  ("glf" "$(C}~(B"))
+
+;;; hanja.el ends here
diff --git a/leim/quail/hanja3.el b/leim/quail/hanja3.el
index 1276106c30b..b24c612eb83 100644
--- a/leim/quail/hanja3.el
+++ b/leim/quail/hanja3.el
@@ -1,4 +1,4 @@
-;;; quail/hanja3.el --- Quail-package for Korean Hanja (KSC5601)
+;;; hanja3.el --- Quail-package for Korean Hanja (KSC5601)
 
 ;; Copyright (C) 1997 Free Software Foundation, Inc.
 
@@ -22,6 +22,8 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
 ;;; Code:
 
 (require 'quail)
@@ -505,3 +507,5 @@
  ("mga" "$(C}i(B")
  ("m8" "$(C}j}k}l}m}n}o}p}q}r}s}t}u}v}w}x}y}z}{}|}}(B")
  ("mdw" "$(C}~(B"))
+
+;;; hanja3.el ends here
diff --git a/leim/quail/hebrew.el b/leim/quail/hebrew.el
index c7a998dae93..9e6be106805 100644
--- a/leim/quail/hebrew.el
+++ b/leim/quail/hebrew.el
@@ -1,4 +1,4 @@
-;; Quail package for inputting Hebrew characters.
+;;; hebrew.el --- Quail package for inputting Hebrew characters
 
 ;; Copyright (C) 1998 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -22,6 +22,10 @@
 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;; Boston, MA 02111-1307, USA.
 
+;;; Commentary:
+
+;;; Code:
+
 (require 'quail)
 
 (quail-define-package
@@ -69,5 +73,6 @@ Hebrew letters are assigned to lowercases.
  ("," ?,Hz(B)
  ("." ?,Hu(B)
  ("/" ?.)
- ("'" ?,)
- )
+ ("'" ?,))
+
+;;; hebrew.el ends here
diff --git a/leim/quail/ipa.el b/leim/quail/ipa.el
index 41a5f27fe47..3192890179c 100644
--- a/leim/quail/ipa.el
+++ b/leim/quail/ipa.el
@@ -1,4 +1,4 @@
-;;; quail/ipa.el -- Quail package for inputting IPA characters
+;;; ipa.el --- Quail package for inputting IPA 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)
@@ -105,3 +107,5 @@ Upside-down characters are obtained by a preceding slash (/)."
  ("'" ?,0p(B)
  ("`" ?,0q(B)
  (":" ?,0r(B))
+
+;;; ipa.el ends here
diff --git a/leim/quail/japanese.el b/leim/quail/japanese.el
index f9f2837c6cc..6cf25ae8b5e 100644
--- a/leim/quail/japanese.el
+++ b/leim/quail/japanese.el
@@ -1,4 +1,4 @@
-;;; quail/japanese.el --- Quail package for inputting Japanese
+;;; japanese.el --- Quail package for inputting Japanese
 
 ;; 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)
@@ -541,3 +543,4 @@ qq:	toggle between this input method and the input method `japanese-ascii'.
                           (vector (japanese-katakana (aref trans 0))))
                          (t trans)))))
 
+;;; japanese.el ends here
diff --git a/leim/quail/lao.el b/leim/quail/lao.el
index 955420af55b..cb39f662f3b 100644
--- a/leim/quail/lao.el
+++ b/leim/quail/lao.el
@@ -1,4 +1,4 @@
-;;; quail/lao.el --- Quail package for inputting Lao characters
+;;; lao.el --- Quail package for inputting Lao 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)
@@ -195,4 +197,4 @@
     (v-state (lao-vowel-key-alist . t-state))
     (t-state lao-tone-key-alist))))
 
-;;; quail/lao.el ends here
+;;; lao.el ends here
diff --git a/leim/quail/latin-alt.el b/leim/quail/latin-alt.el
index 2c254887b71..7145ccc51b7 100644
--- a/leim/quail/latin-alt.el
+++ b/leim/quail/latin-alt.el
@@ -1,4 +1,4 @@
-;; Quail packages for inputting various European characters.
+;;; latin-alt.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 <ntakahas@etl.go.jp>
 
+;;; Commentary:
+
+;;; Code:
+
 (require 'quail)
 
 (quail-define-package
@@ -1524,3 +1528,5 @@ Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
  ("U^^" ["U^"])
  ("u^^" ["u^"])
  )
+
+;;; latin-alt.el ends here
diff --git a/leim/quail/latin-ltx.el b/leim/quail/latin-ltx.el
index aaab74b93a4..4fe3d9456bf 100644
--- a/leim/quail/latin-ltx.el
+++ b/leim/quail/latin-ltx.el
@@ -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 @@ system, including many technical ones.  Examples:
  ("\\mu" ?$,1'<(B)
  ("\\rho" ?$,1'A(B)
 )
+
+;;; latin-ltx.el ends here
diff --git a/leim/quail/latin-post.el b/leim/quail/latin-post.el
index 725ad58c40b..44798389dac 100644
--- a/leim/quail/latin-post.el
+++ b/leim/quail/latin-post.el
@@ -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 <ntakahas@etl.go.jp>
 
+;;; Commentary:
+
+;;; Code:
+
 (require 'quail)
 
 (quail-define-package
@@ -2121,3 +2125,5 @@ Dead accent is right to ,Af(B." nil t t t t nil nil nil nil nil t)
  (">" ?V)
  ("?" ?Z)
  )
+
+;;; latin-post.el ends here
diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el
index 222dbb85142..e75de685aca 100644
--- a/leim/quail/latin-pre.el
+++ b/leim/quail/latin-pre.el
@@ -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 <rsmith@xs4all.nl>
 ;;
 ;; polish-slash:
-;;  Author:     W,B3(Bodek Bzyl <matwb@univ.gda.pl>
-;;  Maintainer: W,B3(Bodek Bzyl <matwb@univ.gda.pl>
+;; Author: W,B3(Bodek Bzyl <matwb@univ.gda.pl>
+;; Maintainer: W,B3(Bodek Bzyl <matwb@univ.gda.pl>
 ;;
 ;; latin-[89]-prefix: Dave Love <fx@gnu.org>
 
@@ -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 @@ For example, the character named `aogonek' is obtained by `/a'."
  ("~$" ?,_#(B)
  ("^r" ?,_.(B)
  ("^c" ?,_)(B))
+
+;;; latin-pre.el ends here
diff --git a/leim/quail/lrt.el b/leim/quail/lrt.el
index bdc1cc71cbf..4348d87a8a9 100644
--- a/leim/quail/lrt.el
+++ b/leim/quail/lrt.el
@@ -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 --git a/leim/quail/py-punct.el b/leim/quail/py-punct.el
index b903f214e4f..a2f9c7fef27 100644
--- a/leim/quail/py-punct.el
+++ b/leim/quail/py-punct.el
@@ -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 @@ For instance, typing `v' and `%' insert `$A#%(B'.
 ")
 
 (quail-defrule "v" (nth 2 (assoc "chinese-punct-b5" quail-package-alist)))
+
+;;; py-punct.el ends here
diff --git a/leim/quail/pypunct-b5.el b/leim/quail/pypunct-b5.el
index 2863a9490db..e07593e23a3 100644
--- a/leim/quail/pypunct-b5.el
+++ b/leim/quail/pypunct-b5.el
@@ -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 @@ For instance, typing `v' and `%' insert `$(0"h(B'.
         (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 --git a/leim/quail/slovak.el b/leim/quail/slovak.el
index b92dba625ca..18c7dd57e2e 100644
--- a/leim/quail/slovak.el
+++ b/leim/quail/slovak.el
@@ -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 <tibor.simko@fmph.uniba.sk>,
-;;             Milan Zamazal <pdm@zamazal.org>
-;; Maintainer: Pavel Jan,Al(Bk <Pavel@Janik.cz>
+;; Authors: Tibor ,B)(Bimko <tibor.simko@fmph.uniba.sk>
+;;      Milan Zamazal <pdm@zamazal.org>
+;; Maintainer: Pavel Jan,Bm(Bk <Pavel@Janik.cz>
 ;; 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 @@ All other keys are the same as on standard US keyboard."
  ([kp-9] ?9)
  ([kp-0] ?0)
  ([kp-add] ?+))
+
+;;; slovak.el ends here
diff --git a/leim/quail/symbol-ksc.el b/leim/quail/symbol-ksc.el
index abacb4df368..5ccf9dd6fc9 100644
--- a/leim/quail/symbol-ksc.el
+++ b/leim/quail/symbol-ksc.el
@@ -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 --git a/leim/quail/thai.el b/leim/quail/thai.el
index c6b51647073..ec7bffa9373 100644
--- a/leim/quail/thai.el
+++ b/leim/quail/thai.el
@@ -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 @@ The difference from the ordinal Thai keyboard:
     ",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 --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el
index 83b2fb8272a..75ca75e3465 100644
--- a/leim/quail/tibetan.el
+++ b/leim/quail/tibetan.el
@@ -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 --git a/leim/quail/viqr.el b/leim/quail/viqr.el
index d619f50f814..00328b3f64d 100644
--- a/leim/quail/viqr.el
+++ b/leim/quail/viqr.el
@@ -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