[Emacs-diffs] emacs/lisp ChangeLog textmodes/table.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/05/26 03:32:04

Modified files:
        lisp           : ChangeLog 
        lisp/textmodes : table.el 

Log message:
        * 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).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15657&r2=1.15658
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/textmodes/table.el?cvsroot=emacs&r1=1.39&r2=1.40

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15657
retrieving revision 1.15658
diff -u -b -r1.15657 -r1.15658
--- ChangeLog   26 May 2009 03:16:31 -0000      1.15657
+++ ChangeLog   26 May 2009 03:32:02 -0000      1.15658
@@ -1,3 +1,10 @@
+2009-05-26  Kenichi Handa  <address@hidden>
+
+       * 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  <address@hidden>
 
        * newcomment.el (comment-region): Doc fix (Bug#3370).

Index: textmodes/table.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/textmodes/table.el,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -b -r1.39 -r1.40
--- textmodes/table.el  9 Jan 2009 04:19:13 -0000       1.39
+++ textmodes/table.el  26 May 2009 03:32:03 -0000      1.40
@@ -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