possible bug on utf-8

[Guo Wei-Wei]

When (require 'table) or (require 'emacs-wiki-table) is in .emacs , the wrong message of "map-char-table: Wrong type argument: integerp, (127 . 127)" comes. And when I want to insert a table with "M-x table-insert", the wrong message of "map-char-table: Wrong type argument: integerp, (48 . 57)" comes. 

When (require 'table) or (require 'emacs-wiki-table) is not in .emacs and I use " M-x load-file <RET> ..../table.el <RET>", there is no wrong message. But when I want to insert a table with " M-x table-insert", instead of the wrong message of "map-char-table: Wrong type argument: integerp, (48 . 57)", the wrong message of "map-char-table: Wrong type argument: integerp, (127 . 127)" comes. 



In GNU Emacs 23.0.0.1 (i686-pc-linux-gnu, GTK+ Version 2.8.12)
 of 2006-04-22 on localhost
X server distributor `The 
X.Org Foundation', version 11.0.70000000
configured using `configure '--prefix=/usr' '--host=i686-pc-linux-gnu' '--mandir=/usr/share/man' '--infodir=/usr/share/info' '--datadir=/usr/share' '--sysconfdir=/etc' '--localstatedir=/var/lib' '--enable-debug' '--program-suffix=.emacs-
23.0.0' '--without-carbon' '--with-x' '--with-xpm' '--with-toolkit-scroll-bars' '--with-jpeg' '--without-tiff' '--with-gif' '--with-png' '--with-x-toolkit=gtk' '--build=i686-pc-linux-gnu' 'CFLAGS= -O2' 'build_alias=i686-pc-linux-gnu' 'host_alias=i686-pc-linux-gnu''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: zh_CN.UTF-8
  locale-coding-system: utf-8-unix
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  auto-image-file-mode: t
  show-paren-mode: t
  display-time-mode: t
  tooltip-mode: t
  auto-compression-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
M-x m a <backspace> <backspace> l o a d - f i <tab> 
<return> . e m <tab> . d <tab> t a b <tab> l <tab> 
<return> m x t a <backspace> <backspace> <backspace> 
<backspace> M-x t a b <tab> i <tab> <backspace> <backspace> 
l e <backspace> <backspace> <backspace> l e <tab> <tab> 
i <tab> <return> <return> <return> <return> <return> 
M-x b u <backspace> <backspace> r e p o r t - e <tab> 
<return>

Recent messages:
Loading outline...done
For information about the GNU Project and its goals, type C-h C-p.
Making completion list...
Loading help-mode...done
Loading /home/wwguo/.emacs.d/table.el (source)...
Loading byte-opt...done
Loading /home/wwguo/.emacs.d/table.el (source)...done
Making completion list... [2 times]
Wrong type argument: integerp, (127 . 127)
Loading emacsbug...done

Here is the debugging information for "map-char-table: Wrong type argument: integerp, (127 . 127)" .

Debugger entered--Lisp error: (wrong-type-argument integerp (127 . 127))
  aset(#^[nil nil keymap #^^[3 0 pop-global-mark nil list-buffers save-buffers-kill-emacs list-directory eval-last-sexp find-file nil nil indent-rigidly nil table-cell-map-kmacro-keymap downcase-region (keymap ... ... ... ... ... ... ... ... ... ... ...) set-goal-column delete-blank-lines mark-page toggle-read-only find-file-read-only save-buffer transpose-lines upcase-region find-alternate-file write-file exchange-point-and-mark nil iconify-or-deiconify-frame (keymap ... ...) nil nil nil nil nil nil nil nil set-selective-display nil nil expand-abbrev kmacro-start-macro kmacro-end-macro calc-dispatch balance-windows nil shrink-window-if-larger-than-buffer set-fill-prefix point-to-register-compatibility-binding ...] #^^[1 0 #^^[2 0 #^^[3 0 pop-global-mark nil list-buffers save-buffers-kill-emacs list-directory eval-last-sexp find-file nil nil indent-rigidly nil table-cell-map-kmacro-keymap downcase-region ... set-goal-column delete-blank-lines mark-page toggle-read-only find-file-read-only save-buffer transpose-lines upcase-region find-alternate-file write-file exchange-point-and-mark nil iconify-or-deiconify-frame ... nil nil nil nil nil nil nil nil set-selective-display nil nil expand-abbrev kmacro-start-macro kmacro-end-macro calc-dispatch balance-windows nil shrink-window-if-larger-than-buffer set-fill-prefix point-to-register-compatibility-binding ...] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...] (127 . 127) backward-kill-sentence)
  (lambda (key value) (aset elt key (table--replace-binding1 value)))((127 . 127) backward-kill-sentence)
  map-char-table((lambda (key value) (aset elt key (table--replace-binding1 value))) #^[nil nil keymap #^^[3 0 pop-global-mark nil list-buffers save-buffers-kill-emacs list-directory eval-last-sexp find-file nil nil indent-rigidly nil table-cell-map-kmacro-keymap downcase-region (keymap ... ... ... ... ... ... ... ... ... ... ...) set-goal-column delete-blank-lines mark-page toggle-read-only find-file-read-only save-buffer transpose-lines upcase-region find-alternate-file write-file exchange-point-and-mark nil iconify-or-deiconify-frame (keymap ... ...) nil nil nil nil nil nil nil nil set-selective-display nil nil expand-abbrev kmacro-start-macro kmacro-end-macro calc-dispatch balance-windows nil shrink-window-if-larger-than-buffer set-fill-prefix point-to-register-compatibility-binding ...] #^^[1 0 #^^[2 0 #^^[3 0 pop-global-mark nil list-buffers save-buffers-kill-emacs list-directory eval-last-sexp find-file nil nil indent-rigidly nil table-cell-map-kmacro-keymap downcase-region ... set-goal-column delete-blank-lines mark-page toggle-read-only find-file-read-only save-buffer transpose-lines upcase-region find-alternate-file write-file exchange-point-and-mark nil iconify-or-deiconify-frame ... nil nil nil nil nil nil nil nil set-selective-display nil nil expand-abbrev kmacro-start-macro kmacro-end-macro calc-dispatch balance-windows nil shrink-window-if-larger-than-buffer set-fill-prefix point-to-register-compatibility-binding ...] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...])
  (cond ((char-table-p elt) (map-char-table ... elt)) ((vectorp elt) (let ... ...)) ((consp elt) (if ... ... ...)))
  (let ((elt ...) (otail tail)) (setq tail (cdr tail)) (cond (... ...) (... ...) (... ...)))
  (while (consp tail) (let (... ...) (setq tail ...) (cond ... ... ...)))
  (let ((tail keymap)) (while (consp tail) (let ... ... ...)))
  table--replace-binding((keymap #^[nil nil keymap #^^[3 0 pop-global-mark nil list-buffers save-buffers-kill-emacs list-directory eval-last-sexp find-file nil nil indent-rigidly nil table-cell-map-kmacro-keymap downcase-region ... set-goal-column delete-blank-lines mark-page toggle-read-only find-file-read-only save-buffer transpose-lines upcase-region find-alternate-file write-file exchange-point-and-mark nil iconify-or-deiconify-frame ... nil nil nil nil nil nil nil nil set-selective-display nil nil expand-abbrev kmacro-start-macro kmacro-end-macro calc-dispatch balance-windows nil shrink-window-if-larger-than-buffer set-fill-prefix point-to-register-compatibility-binding ...] #^^[1 0 #^^[2 0 #^^[3 0 pop-global-mark nil list-buffers save-buffers-kill-emacs list-directory eval-last-sexp find-file nil nil indent-rigidly nil table-cell-map-kmacro-keymap downcase-region ... set-goal-column delete-blank-lines mark-page toggle-read-only find-file-read-only save-buffer transpose-lines upcase-region find-alternate-file write-file exchange-point-and-mark nil iconify-or-deiconify-frame ... nil nil nil nil nil nil nil nil set-selective-display nil nil expand-abbrev kmacro-start-macro kmacro-end-macro calc-dispatch balance-windows nil shrink-window-if-larger-than-buffer set-fill-prefix point-to-register-compatibility-binding ...] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...] (67108896 . pop-global-mark) (C-left . previous-buffer) (left . previous-buffer) (C-right . next-buffer) (right . next-buffer)))
  table--deep-copy-rebind-keymap((keymap #^[nil nil keymap #^^[3 0 pop-global-mark nil list-buffers save-buffers-kill-emacs list-directory eval-last-sexp find-file nil nil indent-rigidly nil kmacro-keymap downcase-region ... set-goal-column delete-blank-lines mark-page toggle-read-only find-file-read-only save-buffer transpose-lines upcase-region find-alternate-file write-file exchange-point-and-mark nil iconify-or-deiconify-frame ... nil nil nil nil nil nil nil nil set-selective-display nil nil expand-abbrev kmacro-start-macro kmacro-end-macro calc-dispatch balance-windows nil shrink-window-if-larger-than-buffer set-fill-prefix point-to-register-compatibility-binding ...] #^^[1 0 #^^[2 0 #^^[3 0 pop-global-mark nil list-buffers save-buffers-kill-emacs list-directory eval-last-sexp find-file nil nil indent-rigidly nil kmacro-keymap downcase-region ... set-goal-column delete-blank-lines mark-page toggle-read-only find-file-read-only save-buffer transpose-lines upcase-region find-alternate-file write-file exchange-point-and-mark nil iconify-or-deiconify-frame ... nil nil nil nil nil nil nil nil set-selective-display nil nil expand-abbrev kmacro-start-macro kmacro-end-macro calc-dispatch balance-windows nil shrink-window-if-larger-than-buffer set-fill-prefix point-to-register-compatibility-binding ...] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil ...] (67108896 . pop-global-mark) (C-left . previous-buffer) (left . previous-buffer) (C-right . next-buffer) (right . next-buffer)))
  (fset symbol (table--deep-copy-rebind-keymap (symbol-function binding)))
  (let ((symbol ...) (func ...)) (setq table-cell-global-map-alist (cons ... table-cell-global-map-alist)) (if (eq ... ...) (load-library ...)) (fset symbol (table--deep-copy-rebind-keymap ...)) symbol)
  (or (cdr (assoc binding table-cell-global-map-alist)) (let (... ...) (setq table-cell-global-map-alist ...) (if ... ...) (fset symbol ...) symbol))
  (cond ((and ... ... ...) (or ... ...)) ((keymapp binding) (table--replace-binding binding)) ((stringp binding) (copy-sequence binding)) ((setq tmp ...) (cdr tmp)) (t binding))
  (let (tmp) (cond (... ...) (... ...) (... ...) (... ...) (t binding)))
  table--replace-binding1(Control-X-prefix)
  (aset elt key (table--replace-binding1 value))
  (lambda (key value) (aset elt key (table--replace-binding1 value)))(24 Control-X-prefix)
  map-char-table((lambda (key value) (aset elt key (table--replace-binding1 value))) #^[nil nil keymap #^^[3 0 set-mark-command move-beginning-of-line backward-char table-cell-map-mode-specific-command-prefix *table--cell-delete-char move-end-of-line forward-char keyboard-quit table-cell-map-help-command indent-for-tab-command *table--cell-newline-and-indent kill-line recenter *table--cell-newline next-line *table--cell-open-line previous-line *table--cell-quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up kill-region Control-X-prefix yank ctl-z-map ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0 #^^[3 0 set-mark-command move-beginning-of-line backward-char table-cell-map-mode-specific-command-prefix *table--cell-delete-char move-end-of-line forward-char keyboard-quit table-cell-map-help-command indent-for-tab-command *table--cell-newline-and-indent kill-line recenter *table--cell-newline next-line *table--cell-open-line previous-line *table--cell-quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up kill-region Control-X-prefix yank ctl-z-map ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...])
  (cond ((char-table-p elt) (map-char-table ... elt)) ((vectorp elt) (let ... ...)) ((consp elt) (if ... ... ...)))
  (let ((elt ...) (otail tail)) (setq tail (cdr tail)) (cond (... ...) (... ...) (... ...)))
  (while (consp tail) (let (... ...) (setq tail ...) (cond ... ... ...)))
  (let ((tail keymap)) (while (consp tail) (let ... ... ...)))
  table--replace-binding((keymap #^[nil nil keymap #^^[3 0 set-mark-command move-beginning-of-line backward-char table-cell-map-mode-specific-command-prefix *table--cell-delete-char move-end-of-line forward-char keyboard-quit table-cell-map-help-command indent-for-tab-command *table--cell-newline-and-indent kill-line recenter *table--cell-newline next-line *table--cell-open-line previous-line *table--cell-quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up kill-region Control-X-prefix yank ctl-z-map ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0 #^^[3 0 set-mark-command move-beginning-of-line backward-char table-cell-map-mode-specific-command-prefix *table--cell-delete-char move-end-of-line forward-char keyboard-quit table-cell-map-help-command indent-for-tab-command *table--cell-newline-and-indent kill-line recenter *table--cell-newline next-line *table--cell-open-line previous-line *table--cell-quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up kill-region Control-X-prefix yank ctl-z-map ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] (quail-advice . quail-advice) (33554464 . set-mark-command) (F1 lambda nil (interactive) (manual-entry ...)) (S-mouse-3 . kmacro-end-call-mouse) (C-M-backspace) (C-M-delete) (M-backspace) (M-delete) (drag-n-drop . x-dnd-handle-drag-n-drop-event) (paste . clipboard-yank) (copy . clipboard-kill-ring-save) (cut . clipboard-kill-region) (f18 . clipboard-yank) (f16 . clipboard-kill-ring-save) (f20 . clipboard-kill-region) (C-mouse-4 . mwheel-scroll) (S-mouse-4 . mwheel-scroll) (mouse-4 . mwheel-scroll) (C-mouse-5 . mwheel-scroll) (S-mouse-5 . mwheel-scroll) (mouse-5 . mwheel-scroll) (tool-bar menu-item "tool bar" ignore :filter (lambda ... tool-bar-map)) (vertical-line keymap (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-vertical-line) (C-mouse-2 . mouse-split-window-vertically)) (vertical-scroll-bar keymap (mouse-1 . scroll-bar-toolkit-scroll) (C-mouse-2 . mouse-split-window-vertically)) (header-line keymap (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-header-line)) (mode-line keymap (C-mouse-2 . mouse-split-window-horizontally) (mouse-3 . mouse-delete-window) (mouse-2 . mouse-delete-other-windows) (down-mouse-1 . mouse-drag-mode-line) (drag-mouse-1 . mouse-select-window) (mouse-1 . mouse-select-window)) (C-down-mouse-3 . mouse-popup-menubar-stuff) (S-down-mouse-1 . mouse-set-font) (C-down-mouse-1 . mouse-buffer-menu) (mouse-3 . mouse-save-then-kill) (mouse-2 . mouse-yank-at-click) (right-fringe keymap (mouse-1 . mouse-set-point)) (left-fringe keymap (mouse-1 . mouse-set-point)) (triple-mouse-1 . mouse-set-point) (double-mouse-1 . mouse-set-point) (drag-mouse-1 . mouse-set-region) (mouse-1 . mouse-set-point) (down-mouse-1 . mouse-drag-region) (M-mouse-2 . mouse-yank-secondary) (M-mouse-3 . mouse-secondary-save-then-kill) (M-down-mouse-1 . mouse-drag-secondary) (M-drag-mouse-1 . mouse-set-secondary) (M-mouse-1 . mouse-start-secondary) (C-down-mouse-2 . facemenu-menu) (compose-last-chars . compose-last-chars) (f1 . help-command) (help . help-command) (f2 . 2C-command) ...))
  table--deep-copy-rebind-keymap((keymap #^[nil nil keymap #^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command newline-and-indent kill-line recenter newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up kill-region Control-X-prefix yank ctl-z-map ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] #^^[1 0 #^^[2 0 #^^[3 0 set-mark-command move-beginning-of-line backward-char mode-specific-command-prefix delete-char move-end-of-line forward-char keyboard-quit help-command indent-for-tab-command newline-and-indent kill-line recenter newline next-line open-line previous-line quoted-insert isearch-backward isearch-forward transpose-chars universal-argument scroll-up kill-region Control-X-prefix yank ctl-z-map ESC-prefix toggle-input-method abort-recursive-edit nil undo self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command] self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command self-insert-command ...] (quail-advice . quail-advice) (33554464 . set-mark-command) (F1 lambda nil (interactive) (manual-entry ...)) (S-mouse-3 . kmacro-end-call-mouse) (C-M-backspace) (C-M-delete) (M-backspace) (M-delete) (drag-n-drop . x-dnd-handle-drag-n-drop-event) (paste . clipboard-yank) (copy . clipboard-kill-ring-save) (cut . clipboard-kill-region) (f18 . clipboard-yank) (f16 . clipboard-kill-ring-save) (f20 . clipboard-kill-region) (C-mouse-4 . mwheel-scroll) (S-mouse-4 . mwheel-scroll) (mouse-4 . mwheel-scroll) (C-mouse-5 . mwheel-scroll) (S-mouse-5 . mwheel-scroll) (mouse-5 . mwheel-scroll) (tool-bar menu-item "tool bar" ignore :filter (lambda ... tool-bar-map)) (vertical-line keymap (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-vertical-line) (C-mouse-2 . mouse-split-window-vertically)) (vertical-scroll-bar keymap (mouse-1 . scroll-bar-toolkit-scroll) (C-mouse-2 . mouse-split-window-vertically)) (header-line keymap (mouse-1 . mouse-select-window) (down-mouse-1 . mouse-drag-header-line)) (mode-line keymap (C-mouse-2 . mouse-split-window-horizontally) (mouse-3 . mouse-delete-window) (mouse-2 . mouse-delete-other-windows) (down-mouse-1 . mouse-drag-mode-line) (drag-mouse-1 . mouse-select-window) (mouse-1 . mouse-select-window)) (C-down-mouse-3 . mouse-popup-menubar-stuff) (S-down-mouse-1 . mouse-set-font) (C-down-mouse-1 . mouse-buffer-menu) (mouse-3 . mouse-save-then-kill) (mouse-2 . mouse-yank-at-click) (right-fringe keymap (mouse-1 . mouse-set-point)) (left-fringe keymap (mouse-1 . mouse-set-point)) (triple-mouse-1 . mouse-set-point) (double-mouse-1 . mouse-set-point) (drag-mouse-1 . mouse-set-region) (mouse-1 . mouse-set-point) (down-mouse-1 . mouse-drag-region) (M-mouse-2 . mouse-yank-secondary) (M-mouse-3 . mouse-secondary-save-then-kill) (M-down-mouse-1 . mouse-drag-secondary) (M-drag-mouse-1 . mouse-set-secondary) (M-mouse-1 . mouse-start-secondary) (C-down-mouse-2 . facemenu-menu) (compose-last-chars . compose-last-chars) (f1 . help-command) (help . help-command) (f2 . 2C-command) ...))
  (setq table-cell-global-map (table--deep-copy-rebind-keymap (current-global-map)))
  (let ((map ...) table-cell-global-map) (if (vectorp table-command-prefix) (mapcar ... table-cell-bindings)) (mapcar (lambda ... ...) table-cell-bindings) (setq table-cell-global-map (table--deep-copy-rebind-keymap ...)) (if (featurep ...) (mapcar ... table-command-replacement-alist)) (set-keymap-parent map table-cell-global-map) (setq table-cell-map map) (fset (quote table-cell-map) map))
  (if table-cell-map nil (let (... table-cell-global-map) (if ... ...) (mapcar ... table-cell-bindings) (setq table-cell-global-map ...) (if ... ...) (set-keymap-parent map table-cell-global-map) (setq table-cell-map map) (fset ... map)))
  (unless table-cell-map (let (... table-cell-global-map) (if ... ...) (mapcar ... table-cell-bindings) (setq table-cell-global-map ...) (if ... ...) (set-keymap-parent map table-cell-global-map) (setq table-cell-map map) (fset ... map)))
  (let ((table-inhibit-advice t)) (unless table-cell-map (let ... ... ... ... ... ... ... ...)) (unless table-disable-menu (easy-menu-define table-cell-menu-map table-cell-map "Table cell menu" table-cell-menu) (if ... ...)) (run-hooks (quote table-cell-map-hook)))
  table--make-cell-map()
  (let ((table-inhibit-advice t)) (table--make-cell-map) (if (null cell-width) (setq cell-width ...)) (if (null cell-height) (setq cell-height ...)) (if (stringp columns) (setq columns ...)) (if (stringp rows) (setq rows ...)) (if (stringp cell-width) (setq cell-width ...)) (if (stringp cell-height) (setq cell-height ...)) (if (numberp cell-width) (setq cell-width ...)) (if (numberp cell-height) (setq cell-height ...)) (mapcar (lambda ... ...) (quote ...)) (let (... ... r i cw ch cell-str border-str) (with-temp-buffer ... ... ... ... ... ... ... ... ... ... ...) (save-excursion ... ...) (setq r 0) (setq ch cell-height) (while ... ... ... ... ... ... ... ... ... ...) (table--goto-coordinate ...) (table-recognize-cell ...)))

  table-insert("3" "3" "5" "1")
  call-interactively(table-insert)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)