comparison lisp/textmodes/table.el @ 90268:d88caeac70d7

Revision: [e-mail]/emacs--unicode--0--patch-2 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (base, patch 1-3) - tag of [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-704 - Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0 (patch 700-704) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/cus-edit.el (customize-rogue): Minor doc fix. * [e-mail]--gnu-2005/gnus--rel--5.10 (patch 185-186) - Merge from emacs--cvs-trunk--0 - Update from CVS

90267:e5855ea89245

;;; table.el --- create and edit WYSIWYG text based embedded tables

;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
;;   2005 Free Software Foundation, Inc.

;; Keywords: wp, convenience
;; Author: Takaaki Ota <[e-mail]>
;; Created: Sat Jul 08 2000 13:28:45 (PST)
;; Revised: Sat Aug 06 2005 19:42:54 (CEST)

;;;
;;; Compatibility:
;;;

;; hush up the byte-compiler
(eval-when-compile
  (defvar quail-translating)
  (defvar quail-converting)
  (defvar flyspell-mode)
  (defvar real-last-command)
  (defvar delete-selection-mode)
  (unless (fboundp 'set-face-property)
    (defun set-face-property (face prop value)))
  (unless (fboundp 'unibyte-char-to-multibyte)
    (defun unibyte-char-to-multibyte (char)))
  (defun table--point-in-cell-p (&optional location)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Customization:
;;;

(defvar table-inhibit-auto-fill-paragraph nil
  "Non-nil inhibits auto fill paragraph when `table-with-cache-buffer' exits.
This is always set to nil at the entry to `table-with-cache-buffer' before executing body forms.")
(defvar table-mode-indicator nil
  "For mode line indicator")
(defvar table-fixed-mode-indicator nil
  "For mode line indicator")
(defconst table-source-languages '(html latex cals)
  "Supported source languages.")
(defvar table-source-info-plist nil
  "General storage for temporary information used while generating source.")
;;; These are not real minor-mode but placed in the minor-mode-alist
;;; so that we can show the indicator on the mode line handy.
(mapcar (lambda (indicator)
	  (make-variable-buffer-local (car indicator))
	  (unless (assq (car indicator) minor-mode-alist)
	    (setq minor-mode-alist
		  (cons indicator minor-mode-alist))))
	'((table-mode-indicator " Table")
	  (table-fixed-mode-indicator " Fixed-Table")))
;;; The following history containers not only keep the history of user
;;; entries but also serve as the default value providers.  When an
;;; interactive command is invoked it offers a user the latest entry
;;; of the history as a default selection.  Therefore the values below
;;; are the first default value when a command is invoked for the very

		    (let ((cell (table-recognize-cell 'force 'no-copy)))
		      (if (and cell table-detect-cell-alignment)
			  (table--detect-cell-alignment cell)))
		    (unless (re-search-forward border end t)
		      (goto-char end))))))))))
    (set-buffer-modified-p modified-flag)))

;;;###autoload
(defun table-unrecognize-region (beg end)
  (interactive "r")
  (table-recognize-region beg end -1))

						    (cdr cell))))
		  (save-current-buffer
		    (set-buffer cache-buffer)
		    (erase-buffer)
		    (table--insert-rectangle rectangle)))))
	  (set-buffer-modified-p modified-flag))
	(if (featurep 'xemacs)
	    (table--warn-incompatibility))
	cell)))

;;;###autoload

  (table--finish-delayed-tasks)
  (setq table-fixed-width-mode
	(if (null arg)
	    (not table-fixed-width-mode)
	  (> (prefix-numeric-value arg) 0)))
  (save-excursion
    (mapcar (lambda (buf)
	      (set-buffer buf)
	      (if (table--point-in-cell-p)
		  (table--point-entered-cell-function)))
	    (buffer-list)))
  (table--update-cell-face))

;;;###autoload
(defun table-query-dimension (&optional where)
  "Return the dimension of the current cell and the current table.

in a fixed width mode all cell width are fixed.  When a word can not
fit in the cell width the word is folded into the next line.  The
folded location is marked by a continuation character which is
specified in the variable `table-word-continuation-char'.
")
      (print-help-return-message))))

(defun *table--cell-describe-bindings ()
  "Table cell version of `describe-bindings'."
  (interactive)
  (if (not (table--point-in-cell-p))

      (mapcar (lambda (binding)
		(princ (format "%-16s%s\n"
			       (key-description (car binding))
			       (cdr binding))))
	      table-cell-bindings)
      (print-help-return-message))))

(defun *table--cell-dabbrev-expand (arg)
  "Table cell version of `dabbrev-expand'."
  (interactive "*P")
  (let ((dabbrev-abbrev-char-regexp (concat "[^"

  (if table-heighten-timer
      (table--update-cell-heightened 'now)))

(defmacro table--log (&rest body)
  "Debug logging macro."
  `(save-excursion
     (set-buffer (get-buffer-create "log"))
     (goto-char (point-min))
     (let ((standard-output (current-buffer)))
       ,@body)))

(defun table--measure-max-width (&optional unlimited)

      (let* ((cell (if first-only (prog1 cell-list (setq cell-list nil))
		     (prog1 (car cell-list) (setq cell-list (cdr cell-list)))))
	     (dig1-str (format "%1d" (prog1 (% count 10) (setq count (1+ count))))))
	(goto-char (car cell))
	(table-with-cache-buffer
	  (replace-regexp "." dig1-str)
	  (setq table-inhibit-auto-fill-paragraph t))
	(table--finish-delayed-tasks)))
    (table--goto-coordinate current-coordinate)))

(defun table--vertical-cell-list (&optional top-to-bottom first-only pivot internal-dir internal-list internal-px)

(defun table--point-entered-cell-function (&optional old-point new-point)
  "Point has entered a cell.
Refresh the menu bar."
  (unless table-cell-entered-state
    (setq table-cell-entered-state t)
    (setq table-mode-indicator (not table-fixed-width-mode))
    (setq table-fixed-mode-indicator table-fixed-width-mode)
    (set-buffer-modified-p (buffer-modified-p))
    (table--warn-incompatibility)
    (run-hooks 'table-point-entered-cell-hook)))

(defun table--point-left-cell-function (&optional old-point new-point)
  "Point has left a cell.
Refresh the menu bar."
  (when table-cell-entered-state
    (setq table-cell-entered-state nil)
    (setq table-mode-indicator nil)
    (setq table-fixed-mode-indicator nil)
    (set-buffer-modified-p (buffer-modified-p))
    (run-hooks 'table-point-left-cell-hook)))

(defun table--warn-incompatibility ()
  "If called from interactive operation warn the know incompatibilities.
This feature is disabled when `table-disable-incompatibility-warning'

90268:d88caeac70d7

;;; table.el --- create and edit WYSIWYG text based embedded tables

;; Copyright (C) 2000, 2001, 2002, 2003, 2004,
;;   2005, 2006  Free Software Foundation, Inc.

;; Keywords: wp, convenience
;; Author: Takaaki Ota <[e-mail]>
;; Created: Sat Jul 08 2000 13:28:45 (PST)
;; Revised: Sat Aug 06 2005 19:42:54 (CEST)

;;;
;;; Compatibility:
;;;

;; hush up the byte-compiler
(defvar quail-translating)
(defvar quail-converting)
(defvar flyspell-mode)
(defvar real-last-command)
(defvar delete-selection-mode)
;; This is evil!!
;; (eval-when-compile
;;   (unless (fboundp 'set-face-property)
;;     (defun set-face-property (face prop value)))
;;   (unless (fboundp 'unibyte-char-to-multibyte)
;;     (defun unibyte-char-to-multibyte (char)))
;;   (defun table--point-in-cell-p (&optional location)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Customization:
;;;

(defvar table-inhibit-auto-fill-paragraph nil
  "Non-nil inhibits auto fill paragraph when `table-with-cache-buffer' exits.
This is always set to nil at the entry to `table-with-cache-buffer' before executing body forms.")
(defvar table-mode-indicator nil
  "For mode line indicator")
;; This is not a real minor-mode but placed in the minor-mode-alist
;; so that we can show the indicator on the mode line handy.
(make-variable-buffer-local table-mode-indicator)
(unless (assq table-mode-indicator minor-mode-alist)
  (push '(table-mode-indicator (table-fixed-width-mode " Fixed-Table" " Table"))
        minor-mode-alist))

(defconst table-source-languages '(html latex cals)
  "Supported source languages.")
(defvar table-source-info-plist nil
  "General storage for temporary information used while generating source.")

;;; The following history containers not only keep the history of user
;;; entries but also serve as the default value providers.  When an
;;; interactive command is invoked it offers a user the latest entry
;;; of the history as a default selection.  Therefore the values below
;;; are the first default value when a command is invoked for the very

		    (let ((cell (table-recognize-cell 'force 'no-copy)))
		      (if (and cell table-detect-cell-alignment)
			  (table--detect-cell-alignment cell)))
		    (unless (re-search-forward border end t)
		      (goto-char end))))))))))
    (restore-buffer-modified-p modified-flag)))

;;;###autoload
(defun table-unrecognize-region (beg end)
  (interactive "r")
  (table-recognize-region beg end -1))

						    (cdr cell))))
		  (save-current-buffer
		    (set-buffer cache-buffer)
		    (erase-buffer)
		    (table--insert-rectangle rectangle)))))
	  (restore-buffer-modified-p modified-flag))
	(if (featurep 'xemacs)
	    (table--warn-incompatibility))
	cell)))

;;;###autoload

  (table--finish-delayed-tasks)
  (setq table-fixed-width-mode
	(if (null arg)
	    (not table-fixed-width-mode)
	  (> (prefix-numeric-value arg) 0)))
  (table--update-cell-face))

;;;###autoload
(defun table-query-dimension (&optional where)
  "Return the dimension of the current cell and the current table.

in a fixed width mode all cell width are fixed.  When a word can not
fit in the cell width the word is folded into the next line.  The
folded location is marked by a continuation character which is
specified in the variable `table-word-continuation-char'.
")
      (help-print-return-message))))

(defun *table--cell-describe-bindings ()
  "Table cell version of `describe-bindings'."
  (interactive)
  (if (not (table--point-in-cell-p))

      (mapcar (lambda (binding)
		(princ (format "%-16s%s\n"
			       (key-description (car binding))
			       (cdr binding))))
	      table-cell-bindings)
      (help-print-return-message))))

(defun *table--cell-dabbrev-expand (arg)
  "Table cell version of `dabbrev-expand'."
  (interactive "*P")
  (let ((dabbrev-abbrev-char-regexp (concat "[^"

  (if table-heighten-timer
      (table--update-cell-heightened 'now)))

(defmacro table--log (&rest body)
  "Debug logging macro."
  `(with-current-buffer (get-buffer-create "log")
     (goto-char (point-min))
     (let ((standard-output (current-buffer)))
       ,@body)))

(defun table--measure-max-width (&optional unlimited)

      (let* ((cell (if first-only (prog1 cell-list (setq cell-list nil))
		     (prog1 (car cell-list) (setq cell-list (cdr cell-list)))))
	     (dig1-str (format "%1d" (prog1 (% count 10) (setq count (1+ count))))))
	(goto-char (car cell))
	(table-with-cache-buffer
          (while (re-search-forward "." nil t)
            (replace-match dig1-str nil nil))
	  (setq table-inhibit-auto-fill-paragraph t))
	(table--finish-delayed-tasks)))
    (table--goto-coordinate current-coordinate)))

(defun table--vertical-cell-list (&optional top-to-bottom first-only pivot internal-dir internal-list internal-px)

(defun table--point-entered-cell-function (&optional old-point new-point)
  "Point has entered a cell.
Refresh the menu bar."
  (unless table-cell-entered-state
    (setq table-cell-entered-state t)
    (setq table-mode-indicator t)
    (force-mode-line-update)
    (table--warn-incompatibility)
    (run-hooks 'table-point-entered-cell-hook)))

(defun table--point-left-cell-function (&optional old-point new-point)
  "Point has left a cell.
Refresh the menu bar."
  (when table-cell-entered-state
    (setq table-cell-entered-state nil)
    (setq table-mode-indicator nil)
    (force-mode-line-update)
    (run-hooks 'table-point-left-cell-hook)))

(defun table--warn-incompatibility ()
  "If called from interactive operation warn the know incompatibilities.
This feature is disabled when `table-disable-incompatibility-warning'