Some fixes to follow coding conventions.

9 files changed, 24 insertions, 16 deletions

diff --git a/lisp/language/devan-util.el b/lisp/language/devan-util.el
index be15f2d5b31..f77ac2d4214 100644
--- a/lisp/language/devan-util.el
+++ b/lisp/language/devan-util.el
@@ -1,4 +1,4 @@
-;;; devan-util.el --- Support for Devanagari Script Composition
+;;; devan-util.el --- support for Devanagari Script Composition
 
 ;; Copyright (C) 1996, 2001 Free Software Foundation, Inc.
 
@@ -1281,8 +1281,8 @@ If there's no corresponding narrow character, return CHAR as is."
 ;;
 (provide 'devan-util)
 
-;;; devan-util.el end here
-
 ;; Local Variables:
 ;; coding: iso-2022-7bit
 ;; End:
+
+;;; devan-util.el ends here
diff --git a/lisp/language/devanagari.el b/lisp/language/devanagari.el
index 1be6e270037..e0f3e783b0a 100644
--- a/lisp/language/devanagari.el
+++ b/lisp/language/devanagari.el
@@ -1,4 +1,4 @@
-;;; devanagari.el --- Support for Devanagari -*- coding: iso-2022-7bit; -*-
+;;; devanagari.el --- support for Devanagari -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1996 Free Software Foundation, Inc.
 
@@ -28,6 +28,7 @@
 ;; History:
 ;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
 ;; 1997.1.20 fixed some bugs.
+
 ;;; Code:
 
 (make-coding-system
diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el
index 5dde78ec832..68bfc7b1c9c 100644
--- a/lisp/language/ethio-util.el
+++ b/lisp/language/ethio-util.el
@@ -24,6 +24,8 @@
 
 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
 
+;;; Commentary:
+
 ;;; Code:
 
 ;; Information for exiting Ethiopic environment.
@@ -1296,7 +1298,7 @@ The markers \"<sera>\" and \"</sera>\" themselves are not deleted."
             composite t))
      ;; neither gemination nor fidel
      ((not (eq (char-charset ch) 'ethiopic))
-      (error "Not a valid character.")))
+      (error "Not a valid character")))
 
     ;; set frequently referred character features
     (setq ch     (ethio-char-to-ethiocode ch)
@@ -1306,7 +1308,7 @@ The markers \"<sera>\" and \"</sera>\" themselves are not deleted."
     (if (or (and (>= ch 344) (<= ch 380)) ;; mYa - `10000
             (and (>= ch 448) (<= ch 452)) ;; \~X - \~A
             (>= ch 458))                  ;; private punctuations
-        (error "Not a valid character."))
+        (error "Not a valid character"))
 
     (setq
      newch
diff --git a/lisp/language/ethiopic.el b/lisp/language/ethiopic.el
index 15ad961167a..27c7e77f4b7 100644
--- a/lisp/language/ethiopic.el
+++ b/lisp/language/ethiopic.el
@@ -1,4 +1,4 @@
-;;; ethiopic.el --- Support for Ethiopic -*- coding: iso-2022-7bit; -*-
+;;; ethiopic.el --- support for Ethiopic -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995, 2001 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -24,6 +24,8 @@
 
 ;; Author: TAKAHASHI Naoto <ntakahas@m17n.org>
 
+;;; Commentary:
+
 ;;; Code:
 
 (define-ccl-program ccl-encode-ethio-font
diff --git a/lisp/language/european.el b/lisp/language/european.el
index 9e9e10ae402..ad7353bae72 100644
--- a/lisp/language/european.el
+++ b/lisp/language/european.el
@@ -1,4 +1,4 @@
-;;; european.el --- European languages -*- coding: iso-2022-7bit; -*-
+;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995, 1997, 2001 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
diff --git a/lisp/language/indian.el b/lisp/language/indian.el
index 190e3769f3f..617c20123be 100644
--- a/lisp/language/indian.el
+++ b/lisp/language/indian.el
@@ -1,4 +1,4 @@
-;;; indian.el --- Support for Indian Languages -*- coding: iso-2022-7bit; -*-
+;;; indian.el --- support for Indian Languages -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1995 Free Software Foundation, Inc.
 
diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el
index 795876547d2..2ca780dd1bb 100644
--- a/lisp/language/romanian.el
+++ b/lisp/language/romanian.el
@@ -1,4 +1,4 @@
-;;; romanian.el --- Support for Romanian -*- coding: iso-latin-2; -*-
+;;; romanian.el --- support for Romanian -*- coding: iso-latin-2; -*-
 
 ;; Copyright (C) 1998 Free Software Foundation.
 
@@ -43,5 +43,4 @@
 
 (provide 'romanian)
 
-;; romanian.el ends here
-
+;;; romanian.el ends here
diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el
index af10e94d344..54938ffe635 100644
--- a/lisp/language/tibet-util.el
+++ b/lisp/language/tibet-util.el
@@ -26,11 +26,13 @@
 
 ;; Created: Feb. 17. 1997
 
-;; History:
+;;; History:
 ;; 1997.03.13 Modification in treatment of text properties;
 ;;            Support for some special signs and punctuations.
 ;; 1999.10.25 Modification for a new composition way by K.Handa.
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;;###autoload
@@ -350,4 +352,4 @@ See also docstring of the function tibetan-compose-region."
 
 (provide 'tibet-util)
 
-;;; language/tibet-util.el ends here.
+;;; tibet-util.el ends here
diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el
index a6824887702..4f9068c0263 100644
--- a/lisp/language/tibetan.el
+++ b/lisp/language/tibetan.el
@@ -1,4 +1,4 @@
-;;; tibetan.el --- Support for Tibetan language -*- coding: iso-2022-7bit; -*-
+;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -29,6 +29,8 @@
 ;; History:
 ;; 1997.03.13 Modification for special signs and punctuations. 
 
+;;; Commentary:
+
 ;;; Code:
 
 ;;; Tibetan Character set.
@@ -625,4 +627,4 @@ This also matches some punctuation characters which need conversion.")
 
 (provide 'tibetan)
 
-;;; language/tibetan.el ends here
+;;; tibetan.el ends here