Mercurial > emacs

comparison src/buffer.c @ 9892:beb59716f299

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set_buffer_internal): Use XBUFFER_LOCAL_VALUE, not XCONS.
author Karl Heuer <kwzh@gnu.org>
date Fri, 11 Nov 1994 07:33:46 +0000
parents c76b3e670eb3
children 6cd89eaf36c9
comparison
equal deleted inserted replaced
9891:f4a53f86853d 9892:beb59716f299
998 for (tail = b->local_var_alist; !NILP (tail); tail = XCONS (tail)->cdr) 998 for (tail = b->local_var_alist; !NILP (tail); tail = XCONS (tail)->cdr)
999 { 999 {
1000 valcontents = XSYMBOL (XCONS (XCONS (tail)->car)->car)->value; 1000 valcontents = XSYMBOL (XCONS (XCONS (tail)->car)->car)->value;
1001 if ((BUFFER_LOCAL_VALUEP (valcontents) 1001 if ((BUFFER_LOCAL_VALUEP (valcontents)
1002 || SOME_BUFFER_LOCAL_VALUEP (valcontents)) 1002 || SOME_BUFFER_LOCAL_VALUEP (valcontents))
1003 && (tem = XCONS (valcontents)->car, 1003 && (tem = XBUFFER_LOCAL_VALUE (valcontents)->car,
1004 (BOOLFWDP (tem) || INTFWDP (tem) || OBJFWDP (tem)))) 1004 (BOOLFWDP (tem) || INTFWDP (tem) || OBJFWDP (tem))))
1005 /* Just reference the variable 1005 /* Just reference the variable
1006 to cause it to become set for this buffer. */ 1006 to cause it to become set for this buffer. */
1007 Fsymbol_value (XCONS (XCONS (tail)->car)->car); 1007 Fsymbol_value (XCONS (XCONS (tail)->car)->car);
1008 } 1008 }
1013 for (tail = old_buf->local_var_alist; !NILP (tail); tail = XCONS (tail)->cdr) 1013 for (tail = old_buf->local_var_alist; !NILP (tail); tail = XCONS (tail)->cdr)
1014 { 1014 {
1015 valcontents = XSYMBOL (XCONS (XCONS (tail)->car)->car)->value; 1015 valcontents = XSYMBOL (XCONS (XCONS (tail)->car)->car)->value;
1016 if ((BUFFER_LOCAL_VALUEP (valcontents) 1016 if ((BUFFER_LOCAL_VALUEP (valcontents)
1017 || SOME_BUFFER_LOCAL_VALUEP (valcontents)) 1017 || SOME_BUFFER_LOCAL_VALUEP (valcontents))
1018 && (tem = XCONS (valcontents)->car, 1018 && (tem = XBUFFER_LOCAL_VALUE (valcontents)->car,
1019 (BOOLFWDP (tem) || INTFWDP (tem) || OBJFWDP (tem)))) 1019 (BOOLFWDP (tem) || INTFWDP (tem) || OBJFWDP (tem))))
1020 /* Just reference the variable 1020 /* Just reference the variable
1021 to cause it to become set for this buffer. */ 1021 to cause it to become set for this buffer. */
1022 Fsymbol_value (XCONS (XCONS (tail)->car)->car); 1022 Fsymbol_value (XCONS (XCONS (tail)->car)->car);
1023 } 1023 }