mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

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

Browse Source 
(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.
This commit is contained in:
Richard M. Stallman 1998-03-14 08:15:36 +00:00
parent a55340a857
commit 024ae2c6d6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/subr.el
View File

@ -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.