Mercurial > emacs
comparison src/buffer.c @ 72503:6ccb18aa8a5d
(Fswitch_to_buffer): Move buffer to front of
buffer-alist if necessary.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Thu, 24 Aug 2006 20:40:53 +0000 |
| parents | c5d047643872 |
| children | 49a6e184d20a |
comparison
equal
deleted
inserted
replaced
| 72502:552742f761d7 | 72503:6ccb18aa8a5d |
|---|---|
| 1682 Lisp_Object buffer, norecord; | 1682 Lisp_Object buffer, norecord; |
| 1683 { | 1683 { |
| 1684 char *err; | 1684 char *err; |
| 1685 | 1685 |
| 1686 if (EQ (buffer, Fwindow_buffer (selected_window))) | 1686 if (EQ (buffer, Fwindow_buffer (selected_window))) |
| 1687 /* Basically a NOP. Avoid signalling an error if the selected window | 1687 { |
| 1688 is dedicated, or a minibuffer, ... */ | 1688 if (NILP (norecord) && !EQ (buffer, XCDR (XCAR (Vbuffer_alist)))) |
| 1689 return Fset_buffer (buffer); | 1689 record_buffer (buffer); |
| 1690 /* Basically a NOP. Avoid signalling an error if the selected window | |
| 1691 is dedicated, or a minibuffer, ... */ | |
| 1692 return Fset_buffer (buffer); | |
| 1693 } | |
| 1690 | 1694 |
| 1691 err = no_switch_window (selected_window); | 1695 err = no_switch_window (selected_window); |
| 1692 if (err) error (err); | 1696 if (err) error (err); |
| 1693 | 1697 |
| 1694 return switch_to_buffer_1 (buffer, norecord); | 1698 return switch_to_buffer_1 (buffer, norecord); |