Mercurial > emacs

comparison src/buffer.c @ 51048:7ac9c3bea5ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fselect_window): Add optional arg `norecord'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 17 May 2003 21:17:45 +0000
parents d91f2dfe45eb
children 44219a7a4ca4
comparison
equal deleted inserted replaced
51047:497252d655f0 51048:7ac9c3bea5ea
1 /* Buffer manipulation primitives for GNU Emacs. 1 /* Buffer manipulation primitives for GNU Emacs.
2 Copyright (C) 1985,86,87,88,89,93,94,95,97,98, 1999, 2000, 2001, 2002 2 Copyright (C) 1985,86,87,88,89,93,94,95,97,98, 1999, 2000, 2001, 02, 2003
3 Free Software Foundation, Inc. 3 Free Software Foundation, Inc.
4 4
5 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
6 6
7 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
1659 Fset_buffer_major_mode (buf); 1659 Fset_buffer_major_mode (buf);
1660 } 1660 }
1661 } 1661 }
1662 Fset_buffer (buf); 1662 Fset_buffer (buf);
1663 if (NILP (norecord)) 1663 if (NILP (norecord))
1664 /* This seems bogus since Fselect_window will call record_buffer anyway. */ 1664 /* Why bother ? Fselect_window will do it for us anyway. -stef */
1665 record_buffer (buf); 1665 record_buffer (buf);
1666 Fselect_window (Fdisplay_buffer (buf, other_window, Qnil)); 1666 Fselect_window (Fdisplay_buffer (buf, other_window, Qnil), norecord);
1667 return buf; 1667 return buf;
1668 } 1668 }
1669 1669
1670 DEFUN ("current-buffer", Fcurrent_buffer, Scurrent_buffer, 0, 0, 0, 1670 DEFUN ("current-buffer", Fcurrent_buffer, Scurrent_buffer, 0, 0, 0,
1671 doc: /* Return the current buffer as a Lisp object. */) 1671 doc: /* Return the current buffer as a Lisp object. */)