diff options
author | Pavel Janík <Pavel@Janik.cz> | 2001-07-16 12:23:00 +0000 |
---|---|---|
committer | Pavel Janík <Pavel@Janik.cz> | 2001-07-16 12:23:00 +0000 |
commit | e8af40eed41d6c61ea6a0649512c4b09afcb1bfa (patch) | |
tree | 588654cb6c38a93c432bfae53ccbf36569e3cf23 /lisp/international | |
parent | 4cba8c0bdcce038e6966aab82d08859d796e69d0 (diff) | |
download | emacs-e8af40eed41d6c61ea6a0649512c4b09afcb1bfa.tar.gz |
Some fixes to follow coding conventions.
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/isearch-x.el | 2 | ||||
-rw-r--r-- | lisp/international/iso-cvt.el | 2 | ||||
-rw-r--r-- | lisp/international/ogonek.el | 4 | ||||
-rw-r--r-- | lisp/international/quail.el | 2 | ||||
-rw-r--r-- | lisp/international/utf-8.el | 4 |
5 files changed, 9 insertions, 5 deletions
diff --git a/lisp/international/isearch-x.el b/lisp/international/isearch-x.el index bd49321dd5e..6f45540b292 100644 --- a/lisp/international/isearch-x.el +++ b/lisp/international/isearch-x.el @@ -25,6 +25,8 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. +;;; Commentary: + ;;; Code: ;;;###autoload diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el index 44821419a31..7374c7f5d41 100644 --- a/lisp/international/iso-cvt.el +++ b/lisp/international/iso-cvt.el @@ -1,4 +1,4 @@ -;;; iso-cvt.-el -- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- +;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- ;; This file was formerly called gm-lingo.el. ;; Copyright (C) 1993, 1994, 1995, 1996, 1998, 2000 Free Software Foundation, Inc. diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el index 43a051f9f7e..6f8a30b8f05 100644 --- a/lisp/international/ogonek.el +++ b/lisp/international/ogonek.el @@ -318,7 +318,7 @@ PROMPT is a string to be shown when the user is asked for a new prefix." (format "%s (default %s): " prompt (char-to-string (eval default-prefix-var)))))) (if (> (length prefix-string) 1) - (error "! Only one character expected.") + (error "! Only one character expected") ;; set the default prefix character to the one just read (set default-prefix-var (if (string= prefix-string "") @@ -333,7 +333,7 @@ Before returning a result test whether the string ENCODING is in the list `ogonek-name-encoding-alist'" (let ((code-list (assoc encoding ogonek-name-encoding-alist))) (if (null code-list) - (error "! Name `%s' not known in `ogonek-name-encoding-alist'." + (error "! Name `%s' not known in `ogonek-name-encoding-alist'" encoding) (cdr code-list)))) diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 088fb84e8e7..6a26b344bfa 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -1,4 +1,4 @@ -;;; quail.el --- Provides simple input method for multilingual text +;;; quail.el --- provides simple input method for multilingual text ;; Copyright (C) 1995, 2000 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el index 1bb0c52d3d3..85f60409567 100644 --- a/lisp/international/utf-8.el +++ b/lisp/international/utf-8.el @@ -1,4 +1,4 @@ -;;; utf-8.el --- Limited UTF-8 decoding/encoding support +;;; utf-8.el --- limited UTF-8 decoding/encoding support ;; Copyright (C) 2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. @@ -375,3 +375,5 @@ lower-casing commands won't work with them." (valid-codes (0 . 255)))) (define-coding-system-alias 'utf-8 'mule-utf-8) + +;;; utf-8.el ends here |