Mercurial > emacs
changeset 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 | 7c6a9fab5a16 |
| children | d6061490a94c |
| files | lisp/textmodes/table.el |
| diffstat | 1 files changed, 5 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)