From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 26 May 2009 03:32:02 +0000 (+0000)
Subject: * textmodes/table.el (table--unibyte-char-to-multibyte): Function
X-Git-Tag: emacs-pretest-23.0.95~164
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66bb84855f71d0fd97736929b39dfce282ec1fff;p=emacs.git

* 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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index b15c72614cd..56ed296fb69 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index fbfdf573640..873a6121b86 100644
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -3943,7 +3943,7 @@ converts a table into plain text without frames.  It is a companion to
 (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 @@ converts a table into plain text without frames.  It is a companion to
 (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 is the history symbol."
 	    (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