comparison lisp/textmodes/table.el @ 75117:a2b7810d4ec7

(table--warn-incompatibility): Use display-warning instead of momentary-string-display.

75116:7c6a9fab5a16

;;   2005, 2006  Free Software Foundation, Inc.

;; Keywords: wp, convenience
;; Author: Takaaki Ota <[e-mail]>
;; Created: Sat Jul 08 2000 13:28:45 (PST)
;; Revised: Thu Jul 20 2006 17:30:09 (PDT)

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

  (unless (and table-disable-incompatibility-warning
	       (not (interactive-p)))
    (cond ((and (featurep 'xemacs)
		(not (get 'table-disable-incompatibility-warning 'xemacs)))
	   (put 'table-disable-incompatibility-warning 'xemacs t)
	   (momentary-string-display
	    "
*** Warning ***

Table package mostly works fine under XEmacs, however, due to the
peculiar implementation of text property under XEmacs, cell splitting
and any undo operation of table exhibit some known strange problems,
such that a border characters dissolve into adjacent cells.  Please be
aware of this.

"
	    (save-excursion (forward-line 1) (point))))
	  ((and (boundp 'flyspell-mode)
		flyspell-mode
		(not (get 'table-disable-incompatibility-warning 'flyspell)))
	   (put 'table-disable-incompatibility-warning 'flyspell t)
	   (momentary-string-display
	    "
*** Warning ***

Flyspell minor mode is known to be incompatible with this table
package.  The flyspell version 1.5d at http://kaolin.unice.fr/~serrano
works better than the previous versions however not fully compatible.

"
	    (save-excursion (forward-line 1) (point))))
	  )))

(defun table--cell-blank-str (&optional n)
  "Return blank table cell string of length N."
  (let ((str (make-string (or n 1) ?\s)))

75117:a2b7810d4ec7

;;   2005, 2006  Free Software Foundation, Inc.

;; Keywords: wp, convenience
;; Author: Takaaki Ota <[e-mail]>
;; Created: Sat Jul 08 2000 13:28:45 (PST)
;; Revised: Wed Jan 03 2007 13:23:46 (PST)

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

  (unless (and table-disable-incompatibility-warning
	       (not (interactive-p)))
    (cond ((and (featurep 'xemacs)
		(not (get 'table-disable-incompatibility-warning 'xemacs)))
	   (put 'table-disable-incompatibility-warning 'xemacs t)
	   (display-warning 'table
	    "
*** Warning ***

Table package mostly works fine under XEmacs, however, due to the
peculiar implementation of text property under XEmacs, cell splitting
and any undo operation of table exhibit some known strange problems,
such that a border characters dissolve into adjacent cells.  Please be
aware of this.

"
	    :warning))
	  ((and (boundp 'flyspell-mode)
		flyspell-mode
		(not (get 'table-disable-incompatibility-warning 'flyspell)))
	   (put 'table-disable-incompatibility-warning 'flyspell t)
	   (display-warning 'table
	    "
*** Warning ***

Flyspell minor mode is known to be incompatible with this table
package.  The flyspell version 1.5d at http://kaolin.unice.fr/~serrano
works better than the previous versions however not fully compatible.

"
	    :warning))
	  )))

(defun table--cell-blank-str (&optional n)
  "Return blank table cell string of length N."
  (let ((str (make-string (or n 1) ?\s)))