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

(table--warn-incompatibility): Use display-warning instead of momentary-string-display.
author Richard M. Stallman <rms@gnu.org>
date Sat, 06 Jan 2007 00:21:05 +0000
parents 3c539f2ffdc3
children e3694f1cb928
comparison
equal deleted inserted replaced
75116:7c6a9fab5a16 75117:a2b7810d4ec7
4 ;; 2005, 2006 Free Software Foundation, Inc. 4 ;; 2005, 2006 Free Software Foundation, Inc.
5 5
6 ;; Keywords: wp, convenience 6 ;; Keywords: wp, convenience
7 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com> 7 ;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com>
8 ;; Created: Sat Jul 08 2000 13:28:45 (PST) 8 ;; Created: Sat Jul 08 2000 13:28:45 (PST)
9 ;; Revised: Thu Jul 20 2006 17:30:09 (PDT) 9 ;; Revised: Wed Jan 03 2007 13:23:46 (PST)
10 10
11 ;; This file is part of GNU Emacs. 11 ;; This file is part of GNU Emacs.
12 12
13 ;; GNU Emacs is free software; you can redistribute it and/or modify 13 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by 14 ;; it under the terms of the GNU General Public License as published by
5356 (unless (and table-disable-incompatibility-warning 5356 (unless (and table-disable-incompatibility-warning
5357 (not (interactive-p))) 5357 (not (interactive-p)))
5358 (cond ((and (featurep 'xemacs) 5358 (cond ((and (featurep 'xemacs)
5359 (not (get 'table-disable-incompatibility-warning 'xemacs))) 5359 (not (get 'table-disable-incompatibility-warning 'xemacs)))
5360 (put 'table-disable-incompatibility-warning 'xemacs t) 5360 (put 'table-disable-incompatibility-warning 'xemacs t)
5361 (momentary-string-display 5361 (display-warning 'table
5362 " 5362 "
5363 *** Warning *** 5363 *** Warning ***
5364 5364
5365 Table package mostly works fine under XEmacs, however, due to the 5365 Table package mostly works fine under XEmacs, however, due to the
5366 peculiar implementation of text property under XEmacs, cell splitting 5366 peculiar implementation of text property under XEmacs, cell splitting
5367 and any undo operation of table exhibit some known strange problems, 5367 and any undo operation of table exhibit some known strange problems,
5368 such that a border characters dissolve into adjacent cells. Please be 5368 such that a border characters dissolve into adjacent cells. Please be
5369 aware of this. 5369 aware of this.
5370 5370
5371 " 5371 "
5372 (save-excursion (forward-line 1) (point)))) 5372 :warning))
5373 ((and (boundp 'flyspell-mode) 5373 ((and (boundp 'flyspell-mode)
5374 flyspell-mode 5374 flyspell-mode
5375 (not (get 'table-disable-incompatibility-warning 'flyspell))) 5375 (not (get 'table-disable-incompatibility-warning 'flyspell)))
5376 (put 'table-disable-incompatibility-warning 'flyspell t) 5376 (put 'table-disable-incompatibility-warning 'flyspell t)
5377 (momentary-string-display 5377 (display-warning 'table
5378 " 5378 "
5379 *** Warning *** 5379 *** Warning ***
5380 5380
5381 Flyspell minor mode is known to be incompatible with this table 5381 Flyspell minor mode is known to be incompatible with this table
5382 package. The flyspell version 1.5d at http://kaolin.unice.fr/~serrano 5382 package. The flyspell version 1.5d at http://kaolin.unice.fr/~serrano
5383 works better than the previous versions however not fully compatible. 5383 works better than the previous versions however not fully compatible.
5384 5384
5385 " 5385 "
5386 (save-excursion (forward-line 1) (point)))) 5386 :warning))
5387 ))) 5387 )))
5388 5388
5389 (defun table--cell-blank-str (&optional n) 5389 (defun table--cell-blank-str (&optional n)
5390 "Return blank table cell string of length N." 5390 "Return blank table cell string of length N."
5391 (let ((str (make-string (or n 1) ?\s))) 5391 (let ((str (make-string (or n 1) ?\s)))