Mercurial > emacs
changeset 103294:299eb8fbcd49
* 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).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 26 May 2009 03:32:02 +0000 |
| parents | ff7c2d7d29e6 |
| children | 578359a0fca6 |
| files | lisp/ChangeLog lisp/textmodes/table.el |
| diffstat | 2 files changed, 9 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- 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).
--- 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