# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1243308722 0
# Node ID 299eb8fbcd4932c93876ab32014eb92f4ecc6cbe
# Parent  ff7c2d7d29e62b7c2cf25511911b59400289aff2
* textmodes/table.el (table--unibyte-char-to-multibyte): Function
deleted.
(*table--cell-self-insert-command, *table--cell-quoted-insert):
Don't call table--unibyte-char-to-multibyte (Bug#3372).

diff -r ff7c2d7d29e6 -r 299eb8fbcd49 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue May 26 03:23:13 2009 +0000
+++ b/lisp/ChangeLog	Tue May 26 03:32:02 2009 +0000
@@ -1,3 +1,10 @@
+2009-05-26  Kenichi Handa  <handa@m17n.org>
+
+	* textmodes/table.el (table--unibyte-char-to-multibyte): Function
+	deleted.
+	(*table--cell-self-insert-command, *table--cell-quoted-insert):
+	Don't call table--unibyte-char-to-multibyte (Bug#3372).
+
 2009-05-26  Chong Yidong  <cyd@stupidchicken.com>
 
 	* newcomment.el (comment-region): Doc fix (Bug#3370).
diff -r ff7c2d7d29e6 -r 299eb8fbcd49 lisp/textmodes/table.el
--- a/lisp/textmodes/table.el	Tue May 26 03:23:13 2009 +0000
+++ b/lisp/textmodes/table.el	Tue May 26 03:32:02 2009 +0000
@@ -3943,7 +3943,7 @@
 (defun *table--cell-self-insert-command ()
   "Table cell version of `self-insert-command'."
   (interactive "*")
-  (let ((char (table--unibyte-char-to-multibyte last-command-event)))
+  (let ((char last-command-event))
     (if (eq buffer-undo-list t) nil
       (if (not (eq last-command this-command))
 	  (setq table-cell-self-insert-command-count 0)
@@ -4048,7 +4048,7 @@
 (defun *table--cell-quoted-insert (arg)
   "Table cell version of `quoted-insert'."
   (interactive "*p")
-  (let ((char (table--unibyte-char-to-multibyte (read-quoted-char))))
+  (let ((char (read-quoted-char)))
     (while (> arg 0)
       (table--cell-insert-char char nil)
       (setq arg (1- arg)))))
@@ -4349,19 +4349,6 @@
 	    (cdr (symbol-value (cdr prompt-history)))))
   (car (symbol-value (cdr prompt-history))))
 
-(defun table--unibyte-char-to-multibyte (char)
-  "Convert CHAR by `unibyte-char-to-multibyte' when possible and necessary."
-  ;; This part is take from `quoted-insert'.
-  ;; Assume character codes 0240 - 0377 stand for characters in some
-  ;; single-byte character set, and convert them to Emacs
-  ;; characters.
-  (if (and enable-multibyte-characters
-	   (fboundp 'unibyte-char-to-multibyte)
-	   (>= char ?\240)
-	   (<= char ?\377))
-      (unibyte-char-to-multibyte char)
-    char))
-
 (defun table--buffer-substring-and-trim (beg end)
   "Extract buffer substring and remove blanks from front and the rear of it."
   (save-excursion