# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1168042865 0
# Node ID a2b7810d4ec7ad48f5ad17e40ef159ea968f3b8b
# Parent  7c6a9fab5a16326b70af7a880a7103e8152456fc
(table--warn-incompatibility):
Use display-warning instead of momentary-string-display.

diff -r 7c6a9fab5a16 -r a2b7810d4ec7 lisp/textmodes/table.el
--- a/lisp/textmodes/table.el	Fri Jan 05 22:54:11 2007 +0000
+++ b/lisp/textmodes/table.el	Sat Jan 06 00:21:05 2007 +0000
@@ -6,7 +6,7 @@
 ;; Keywords: wp, convenience
 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
 ;; Created: Sat Jul 08 2000 13:28:45 (PST)
-;; Revised: Thu Jul 20 2006 17:30:09 (PDT)
+;; Revised: Wed Jan 03 2007 13:23:46 (PST)
 
 ;; This file is part of GNU Emacs.
 
@@ -5358,7 +5358,7 @@
     (cond ((and (featurep 'xemacs)
 		(not (get 'table-disable-incompatibility-warning 'xemacs)))
 	   (put 'table-disable-incompatibility-warning 'xemacs t)
-	   (momentary-string-display
+	   (display-warning 'table
 	    "
 *** Warning ***
 
@@ -5369,12 +5369,12 @@
 aware of this.
 
 "
-	    (save-excursion (forward-line 1) (point))))
+	    :warning))
 	  ((and (boundp 'flyspell-mode)
 		flyspell-mode
 		(not (get 'table-disable-incompatibility-warning 'flyspell)))
 	   (put 'table-disable-incompatibility-warning 'flyspell t)
-	   (momentary-string-display
+	   (display-warning 'table
 	    "
 *** Warning ***
 
@@ -5383,7 +5383,7 @@
 works better than the previous versions however not fully compatible.
 
 "
-	    (save-excursion (forward-line 1) (point))))
+	    :warning))
 	  )))
 
 (defun table--cell-blank-str (&optional n)