← Back to branch summary

~ubuntu-branches/ubuntu/karmic/emacs-snapshot/karmic

« back to all changes in this revision

Viewing changes to lisp/textmodes/table.el

  • Committer: Bazaar Package Importer
  • Author(s): Reinhard Tartler
  • Date: 2009-04-05 09:14:30 UTC
  • mto: This revision was merged to the branch mainline in revision 34.
  • Revision ID: james.westby@ubuntu.com-20090405091430-nw07lynn2arotjbe
Tags: upstream-20090320
Import upstream version 20090320

Show diffs side-by-side

added added

removed removed

Lines of Context:
lisp/textmodes/table.el
1
1
;;; table.el --- create and edit WYSIWYG text based embedded tables
2
2
 
3
3
;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
4
 
;;   2005, 2006, 2007, 2008  Free Software Foundation, Inc.
 
4
;;   2005, 2006, 2007, 2008, 2009  Free Software Foundation, Inc.
5
5
 
6
6
;; Keywords: wp, convenience
7
7
;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
8
8
;; Created: Sat Jul 08 2000 13:28:45 (PST)
9
 
;; Revised: Wed Jan 03 2007 13:23:46 (PST)
 
9
;; Revised: Thu Jan 08 2009 20:17:04 (PST)
10
10
 
11
11
;; This file is part of GNU Emacs.
12
12
 
3738
3738
        (table--read-from-minibuffer '("Minimum cell width" . table-capture-min-cell-width-history)))
3739
3739
      (if (and (not (string= col-delim-regexp "")) (string= row-delim-regexp ""))
3740
3740
          (string-to-number
3741
 
           (table--read-from-minibuffer '("Number of columns" . 'table-capture-columns-history)))
 
3741
           (table--read-from-minibuffer '("Number of columns" . table-capture-columns-history)))
3742
3742
        nil)
3743
3743
      )))
3744
3744
  (if (> beg end) (let ((tmp beg)) (setq beg end) (setq end tmp)))
3943
3943
(defun *table--cell-self-insert-command ()
3944
3944
  "Table cell version of `self-insert-command'."
3945
3945
  (interactive "*")
3946
 
  (let ((char (table--unibyte-char-to-multibyte last-command-char)))
 
3946
  (let ((char (table--unibyte-char-to-multibyte last-command-event)))
3947
3947
    (if (eq buffer-undo-list t) nil
3948
3948
      (if (not (eq last-command this-command))
3949
3949
          (setq table-cell-self-insert-command-count 0)