# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 852432837 0
# Node ID 4792e73d511f4bb6e74310a2e7abe429dad68cb2
# Parent  f9daa704b442b23edd7d621c7b97a9e50dca3dcf
(Fpop_to_buffer): New arg NORECORD.

diff -r f9daa704b442 -r 4792e73d511f src/buffer.c
--- a/src/buffer.c	Sun Jan 05 02:14:59 1997 +0000
+++ b/src/buffer.c	Sun Jan 05 02:53:57 1997 +0000
@@ -1238,7 +1238,7 @@
 		      : selected_window,
 		      buf);
 
-  return buf;
+  3eturn buf;
 }
 
 DEFUN ("pop-to-buffer", Fpop_to_buffer, Spop_to_buffer, 1, 2, 0,
@@ -1248,9 +1248,12 @@
 If optional second arg OTHER-WINDOW is non-nil, insist on finding another\n\
 window even if BUFFER is already visible in the selected window.\n\
 This uses the function `display-buffer' as a subroutine; see the documentation\n\
-of `display-buffer' for additional customization information.")
-  (buffer, other_window)
-     Lisp_Object buffer, other_window;
+of `display-buffer' for additional customization information.\n\
+\n\
+Optional third arg NORECORD non-nil means\n\
+do not put this buffer at the front of the list of recently selected ones.")
+  (buffer, other_window, norecord)
+     Lisp_Object buffer, other_window, norecord;
 {
   register Lisp_Object buf;
   if (NILP (buffer))
@@ -1265,7 +1268,8 @@
 	}
     }
   Fset_buffer (buf);
-  record_buffer (buf);
+  if (NILP (norecord))
+    record_buffer (buf);
   Fselect_window (Fdisplay_buffer (buf, other_window));
   return buf;
 }