Commit 66bb8485 authored by Chong Yidong's avatar Chong Yidong
Browse files

* 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).
parent 0d774907
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).
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment