From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 14 Mar 1998 08:15:36 +0000 (+0000)
Subject: (save-match-data): store-match-data => set-match-data.
X-Git-Tag: emacs-20.3~1901
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=024ae2c6d64223961a029c7ac17d9ba209bace72;p=emacs.git

(save-match-data): store-match-data => set-match-data.

(store-match-data): This is now the alias,
set-match-data is now the primitive.

(momentary-string-display): Pass t as UPDATE to window-end.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index ba3d1317768..b3ad3560eeb 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -543,7 +543,7 @@ Please convert your programs to use the variable `baud-rate' directly."
 (defalias 'search-forward-regexp (symbol-function 're-search-forward))
 (defalias 'search-backward-regexp (symbol-function 're-search-backward))
 (defalias 'int-to-string 'number-to-string)
-(defalias 'set-match-data 'store-match-data)
+(defalias 'store-match-data 'set-match-data)
 
 ;;; Should this be an obsolete name?  If you decide it should, you get
 ;;; to go through all the sources and change them.
@@ -825,7 +825,7 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there."
 	    (insert-before-markers string)
 	    (setq insert-end (point))
 	    ;; If the message end is off screen, recenter now.
-	    (if (< (window-end) insert-end)
+	    (if (< (window-end nil t) insert-end)
 		(recenter (/ (window-height) 2)))
 	    ;; If that pushed message start off the screen,
 	    ;; scroll to start it at the top of the screen.
@@ -993,7 +993,7 @@ in BODY."
   `(let ((save-match-data-internal (match-data)))
        (unwind-protect
 	   (progn ,@body)
-	 (store-match-data save-match-data-internal))))
+	 (set-match-data save-match-data-internal))))
 
 (defun match-string (num &optional string)
   "Return string of text matched by last search.