summaryrefslogtreecommitdiff
path: root/lisp/international
diff options
context:
space:
mode:
authorPavel Janík <Pavel@Janik.cz>2001-07-15 19:53:53 +0000
committerPavel Janík <Pavel@Janik.cz>2001-07-15 19:53:53 +0000
commit6c0d3e7a800435aea234af023d1b2ca320ac284a (patch)
tree080983ad81b43633eb87f92bbe7843f7a14ab79b /lisp/international
parent9db4dfe6a5df6292a801b9ce83bd2f221ca3b944 (diff)
downloademacs-6c0d3e7a800435aea234af023d1b2ca320ac284a.tar.gz
Some fixes to follow coding conventions.
Diffstat (limited to 'lisp/international')
-rw-r--r--lisp/international/ccl.el4
-rw-r--r--lisp/international/characters.el4
-rw-r--r--lisp/international/encoded-kb.el6
-rw-r--r--lisp/international/fontset.el4
-rw-r--r--lisp/international/ja-dic-cnv.el6
-rw-r--r--lisp/international/ja-dic-utl.el6
-rw-r--r--lisp/international/kinsoku.el4
-rw-r--r--lisp/international/kkc.el2
-rw-r--r--lisp/international/mule-cmds.el4
-rw-r--r--lisp/international/mule-diag.el6
-rw-r--r--lisp/international/mule-util.el4
-rw-r--r--lisp/international/mule.el2
-rw-r--r--lisp/international/titdic-cnv.el6
13 files changed, 38 insertions, 20 deletions
diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 5da5cab6ed8..2053b6364cb 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -317,7 +317,7 @@
(defun ccl-check-register (arg cmd)
(if (get arg 'ccl-register-number)
arg
- (error "CCL: Invalid register %s in %s." arg cmd)))
+ (error "CCL: Invalid register %s in %s" arg cmd)))
;; Check if ARG is a valid CCL command.
(defun ccl-check-compile-function (arg cmd)
@@ -1483,4 +1483,4 @@ See the documentation of `define-ccl-program' for the detail of CCL program."
(provide 'ccl)
-;; ccl.el ends here
+;;; ccl.el ends here
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index ea890448c4c..9b158bb2fe2 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -30,6 +30,8 @@
;; This file does not define the syntax for Latin-N character sets;
;; those are defined by the files latin-N.el.
+;;; Code:
+
;;; Predefined categories.
;; For each character set.
@@ -827,4 +829,4 @@
;;; coding: iso-2022-7bit
;;; End:
-;;; end of characters.el
+;;; characters.el ends here
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index 91041cceb62..fa3a6407c6b 100644
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -1,4 +1,4 @@
-;;; encoded-kb.el --- Handler to input multibyte characters encoded somehow
+;;; encoded-kb.el --- handler to input multibyte characters encoded somehow
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
@@ -20,6 +20,10 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
+;;; Code:
+
(defvar encoded-kbd-mode nil
"Non-nil if in Encoded-kbd minor mode.")
(put 'encoded-kbd-mode 'permanent-local t)
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index d0f3de09a64..c23ae218933 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -1,4 +1,4 @@
-;;; fontset.el --- Commands for handling fontset.
+;;; fontset.el --- commands for handling fontset
;; Copyright (C) 1995, 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:
;; Set standard fontname specification of characters in the default
diff --git a/lisp/international/ja-dic-cnv.el b/lisp/international/ja-dic-cnv.el
index d6f3ccfb739..81b9fdc498c 100644
--- a/lisp/international/ja-dic-cnv.el
+++ b/lisp/international/ja-dic-cnv.el
@@ -1,4 +1,4 @@
-;;; ja-dic-cnv.el --- Convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp
+;;; ja-dic-cnv.el --- convert a Japanese dictionary (SKK-JISYO.L) to Emacs Lisp
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
@@ -562,8 +562,8 @@ To get complete usage, invoke:
(provide 'ja-dic-cnv)
-;; ja-dic-cnv.el ends here
-
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
+
+;;; ja-dic-cnv.el ends here
diff --git a/lisp/international/ja-dic-utl.el b/lisp/international/ja-dic-utl.el
index 245cdfd0637..6afeceb9a9e 100644
--- a/lisp/international/ja-dic-utl.el
+++ b/lisp/international/ja-dic-utl.el
@@ -1,4 +1,4 @@
-;;; ja-dic-utl.el --- Utilities for handling Japanese dictionary (SKK-JISYO.L)
+;;; ja-dic-utl.el --- utilities for handling Japanese dictionary (SKK-JISYO.L)
;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
@@ -213,8 +213,8 @@ LEIM is available from the same ftp directory as Emacs."))
;;
(provide 'ja-dic-utl)
-;; ja-dic-utl.el ends here
-
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
+
+;;; ja-dic-utl.el ends here
diff --git a/lisp/international/kinsoku.el b/lisp/international/kinsoku.el
index b845774fe55..4fc99bcac6a 100644
--- a/lisp/international/kinsoku.el
+++ b/lisp/international/kinsoku.el
@@ -1,4 +1,4 @@
-;;; kinsoku.el --- `Kinsoku' processing funcs. -*- coding: iso-2022-7bit; -*-
+;;; kinsoku.el --- `Kinsoku' processing funcs -*- coding: iso-2022-7bit; -*-
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
@@ -170,4 +170,4 @@ the context of text formatting."
(aref (char-category-set (preceding-char)) ?<))
(kinsoku-shorter linebeg))))
-;; kinsoku.el ends here
+;;; kinsoku.el ends here
diff --git a/lisp/international/kkc.el b/lisp/international/kkc.el
index 78d981affab..ff95fa18858 100644
--- a/lisp/international/kkc.el
+++ b/lisp/international/kkc.el
@@ -655,4 +655,4 @@ and change the current conversion to the last one in the group."
;;
(provide 'kkc)
-;; kkc.el ends here
+;;; kkc.el ends here
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 2d95a531bd5..67aef2be068 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1,4 +1,4 @@
-;;; mule-cmds.el --- Commands for mulitilingual environment
+;;; mule-cmds.el --- commands for mulitilingual environment
;; Copyright (C) 1995 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:
(eval-when-compile (defvar dos-codepage))
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 51ac6f79073..af4573ad788 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -1,4 +1,4 @@
-;;; mule-diag.el --- Show diagnosis of multilingual environment (Mule)
+;;; mule-diag.el --- show diagnosis of multilingual environment (Mule)
;; Copyright (C) 1995 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:
+
;;; General utility function
;; Print all arguments with single space separator in one line.
diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index af5b608f6c8..f66420a8686 100644
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -1,4 +1,4 @@
-;;; mule-util.el --- Utility functions for mulitilingual environment (mule)
+;;; mule-util.el --- utility functions for mulitilingual environment (mule)
;; 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:
;;; String manipulations while paying attention to multibyte
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 4700abcc186..5d86f69bdea 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -23,6 +23,8 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
+;;; Commentary:
+
;;; Code:
(defconst mule-version "5.0 (SAKAKI)" "\
diff --git a/lisp/international/titdic-cnv.el b/lisp/international/titdic-cnv.el
index 8865024f89b..b7ac8a93fd0 100644
--- a/lisp/international/titdic-cnv.el
+++ b/lisp/international/titdic-cnv.el
@@ -22,7 +22,7 @@
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Comments:
+;;; Commentary:
;; Convert cxterm dictionary (of TIT format) to quail-package.
;;
@@ -1179,8 +1179,8 @@ to store generated Quail packages."
(miscdic-convert filename dir))))
(kill-emacs 0))
-;;; titdic-cnv.el ends here
-
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
+
+;;; titdic-cnv.el ends here