diff options
| author | Dave Love | 2002-07-24 22:23:44 +0000 |
|---|---|---|
| committer | Dave Love | 2002-07-24 22:23:44 +0000 |
| commit | e65186d5b293d718c927e179a64103e661b24c95 (patch) | |
| tree | 8dcacd4cd1e757e4c0b29a7d0fce8e8986f725ec | |
| parent | d21ba5e07da8a201b70193aa0c693d6bcf9f18e1 (diff) | |
| download | emacs-e65186d5b293d718c927e179a64103e661b24c95.tar.gz emacs-e65186d5b293d718c927e179a64103e661b24c95.zip | |
comment
| -rw-r--r-- | lisp/international/utf-8.el | 1 | ||||
| -rw-r--r-- | lisp/language/cyril-util.el | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el index b3f6390322e..327bc7261de 100644 --- a/lisp/international/utf-8.el +++ b/lisp/international/utf-8.el | |||
| @@ -341,7 +341,6 @@ option is not the default." | |||
| 341 | (write-multibyte-character r3 r2)))) | 341 | (write-multibyte-character r3 r2)))) |
| 342 | 342 | ||
| 343 | ;; Surrogates, U+D800 .. U+DFFF | 343 | ;; Surrogates, U+D800 .. U+DFFF |
| 344 | ;; Fixme: process them properly. | ||
| 345 | (if (r3 < #xe000) | 344 | (if (r3 < #xe000) |
| 346 | ((r3 = r6) | 345 | ((r3 = r6) |
| 347 | (write-multibyte-character r3 r0) ; eight-bit-graphic | 346 | (write-multibyte-character r3 r0) ; eight-bit-graphic |
diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el index e35d45b5afe..394400cda97 100644 --- a/lisp/language/cyril-util.el +++ b/lisp/language/cyril-util.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; cyril-util.el --- utilities for Cyrillic scripts | 1 | ;;; cyril-util.el --- utilities for Cyrillic scripts |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1997, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1997, 2001, 2002 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Keywords: mule, multilingual, Cyrillic | 5 | ;; Keywords: mule, multilingual, Cyrillic |
| 6 | 6 | ||
| @@ -25,6 +25,8 @@ | |||
| 25 | 25 | ||
| 26 | ;;; Code: | 26 | ;;; Code: |
| 27 | 27 | ||
| 28 | ;; Fixme: are the next two useful? | ||
| 29 | |||
| 28 | ;;;###autoload | 30 | ;;;###autoload |
| 29 | (defun cyrillic-encode-koi8-r-char (char) | 31 | (defun cyrillic-encode-koi8-r-char (char) |
| 30 | "Return KOI8-R external character code of CHAR if appropriate." | 32 | "Return KOI8-R external character code of CHAR if appropriate." |