Mercurial > emacs
comparison src/buffer.c @ 25664:832aeb9c3996
(Fother_buffer): Change for Lisp_Object selected_frame.
(record_buffer): Ditto.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 13 Sep 1999 11:13:16 +0000 |
| parents | ff17759d9d9f |
| children | 8b89b961f7d1 |
comparison
equal
deleted
inserted
replaced
| 25663:a5eaace0fa01 | 25664:832aeb9c3996 |
|---|---|
| 919 Lisp_Object Fset_buffer_major_mode (); | 919 Lisp_Object Fset_buffer_major_mode (); |
| 920 register Lisp_Object tail, buf, notsogood, tem, pred, add_ons; | 920 register Lisp_Object tail, buf, notsogood, tem, pred, add_ons; |
| 921 notsogood = Qnil; | 921 notsogood = Qnil; |
| 922 | 922 |
| 923 if (NILP (frame)) | 923 if (NILP (frame)) |
| 924 frame = Fselected_frame (); | 924 frame = selected_frame; |
| 925 | 925 |
| 926 tail = Vbuffer_alist; | 926 tail = Vbuffer_alist; |
| 927 pred = frame_buffer_predicate (frame); | 927 pred = frame_buffer_predicate (frame); |
| 928 | 928 |
| 929 /* Consider buffers that have been seen in the selected frame | 929 /* Consider buffers that have been seen in the selected frame |
| 1239 record_buffer (buf) | 1239 record_buffer (buf) |
| 1240 Lisp_Object buf; | 1240 Lisp_Object buf; |
| 1241 { | 1241 { |
| 1242 register Lisp_Object link, prev; | 1242 register Lisp_Object link, prev; |
| 1243 Lisp_Object frame; | 1243 Lisp_Object frame; |
| 1244 frame = Fselected_frame (); | 1244 frame = selected_frame; |
| 1245 | 1245 |
| 1246 prev = Qnil; | 1246 prev = Qnil; |
| 1247 for (link = Vbuffer_alist; CONSP (link); link = XCONS (link)->cdr) | 1247 for (link = Vbuffer_alist; CONSP (link); link = XCONS (link)->cdr) |
| 1248 { | 1248 { |
| 1249 if (EQ (XCONS (XCONS (link)->car)->cdr, buf)) | 1249 if (EQ (XCONS (XCONS (link)->car)->cdr, buf)) |