From 9ba9623dc3b50df0e67424ab2f588dbb62b3c8c8 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 13 Sep 1999 11:13:16 +0000
Subject: [PATCH] (Fother_buffer): Change for Lisp_Object selected_frame.
 (record_buffer): Ditto.

---
 src/buffer.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/buffer.c b/src/buffer.c
index 68013d4032a..99683385786 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -921,7 +921,7 @@ If BUFFER is omitted or nil, some interesting buffer is returned.")
   notsogood = Qnil;
 
   if (NILP (frame))
-    frame = Fselected_frame ();
+    frame = selected_frame;
 
   tail = Vbuffer_alist;
   pred = frame_buffer_predicate (frame);
@@ -1241,7 +1241,7 @@ record_buffer (buf)
 {
   register Lisp_Object link, prev;
   Lisp_Object frame;
-  frame = Fselected_frame ();
+  frame = selected_frame;
 
   prev = Qnil;
   for (link = Vbuffer_alist; CONSP (link); link = XCONS (link)->cdr)
-- 
2.39.5