diff options
author | Pavel Janík <Pavel@Janik.cz> | 2001-07-15 19:53:53 +0000 |
---|---|---|
committer | Pavel Janík <Pavel@Janik.cz> | 2001-07-15 19:53:53 +0000 |
commit | 6c0d3e7a800435aea234af023d1b2ca320ac284a (patch) | |
tree | 080983ad81b43633eb87f92bbe7843f7a14ab79b /lisp/international | |
parent | 9db4dfe6a5df6292a801b9ce83bd2f221ca3b944 (diff) | |
download | emacs-6c0d3e7a800435aea234af023d1b2ca320ac284a.tar.gz |
Some fixes to follow coding conventions.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/ccl.el | 4 | ||||
-rw-r--r-- | lisp/international/characters.el | 4 | ||||
-rw-r--r-- | lisp/international/encoded-kb.el | 6 | ||||
-rw-r--r-- | lisp/international/fontset.el | 4 | ||||
-rw-r--r-- | lisp/international/ja-dic-cnv.el | 6 | ||||
-rw-r--r-- | lisp/international/ja-dic-utl.el | 6 | ||||
-rw-r--r-- | lisp/international/kinsoku.el | 4 | ||||
-rw-r--r-- | lisp/international/kkc.el | 2 | ||||
-rw-r--r-- | lisp/international/mule-cmds.el | 4 | ||||
-rw-r--r-- | lisp/international/mule-diag.el | 6 | ||||
-rw-r--r-- | lisp/international/mule-util.el | 4 | ||||
-rw-r--r-- | lisp/international/mule.el | 2 | ||||
-rw-r--r-- | lisp/international/titdic-cnv.el | 6 |
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 |