diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-27 12:39:42 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-06-27 12:39:42 +0200 |
commit | f9f41c586a31ad5ba326834c9f4dddfcf78f69e9 (patch) | |
tree | 2490d695be607459b779799cbc40c43764ead9ba /src/w32.c | |
parent | dedd19a2f5cbf16c8ac8a122b0c39ee4e178b9e8 (diff) | |
download | emacs-f9f41c586a31ad5ba326834c9f4dddfcf78f69e9.tar.gz |
Fix some missed Fplist_put adjustments in src/w32.c
* src/w32.c (serial_configure): Adjust some missed Fplist_put renames.
Diffstat (limited to 'src/w32.c')
-rw-r--r-- | src/w32.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/w32.c b/src/w32.c index c1e4118e9b9..e4c6d007661 100644 --- a/src/w32.c +++ b/src/w32.c @@ -10959,7 +10959,7 @@ serial_configure (struct Lisp_Process *p, Lisp_Object contact) tem = plist_get (p->childp, QCspeed); CHECK_FIXNUM (tem); dcb.BaudRate = XFIXNUM (tem); - childp2 = Fplist_put (childp2, QCspeed, tem); + childp2 = plist_put (childp2, QCspeed, tem); /* Configure bytesize. */ if (!NILP (plist_member (contact, QCbytesize))) @@ -10973,7 +10973,7 @@ serial_configure (struct Lisp_Process *p, Lisp_Object contact) error (":bytesize must be nil (8), 7, or 8"); dcb.ByteSize = XFIXNUM (tem); summary[0] = XFIXNUM (tem) + '0'; - childp2 = Fplist_put (childp2, QCbytesize, tem); + childp2 = plist_put (childp2, QCbytesize, tem); /* Configure parity. */ if (!NILP (plist_member (contact, QCparity))) @@ -11003,7 +11003,7 @@ serial_configure (struct Lisp_Process *p, Lisp_Object contact) dcb.Parity = ODDPARITY; dcb.fErrorChar = TRUE; } - childp2 = Fplist_put (childp2, QCparity, tem); + childp2 = plist_put (childp2, QCparity, tem); /* Configure stopbits. */ if (!NILP (plist_member (contact, QCstopbits))) @@ -11020,7 +11020,7 @@ serial_configure (struct Lisp_Process *p, Lisp_Object contact) dcb.StopBits = ONESTOPBIT; else if (XFIXNUM (tem) == 2) dcb.StopBits = TWOSTOPBITS; - childp2 = Fplist_put (childp2, QCstopbits, tem); + childp2 = plist_put (childp2, QCstopbits, tem); /* Configure flowcontrol. */ if (!NILP (plist_member (contact, QCflowcontrol))) @@ -11053,13 +11053,13 @@ serial_configure (struct Lisp_Process *p, Lisp_Object contact) dcb.fOutX = TRUE; dcb.fInX = TRUE; } - childp2 = Fplist_put (childp2, QCflowcontrol, tem); + childp2 = plist_put (childp2, QCflowcontrol, tem); /* Activate configuration. */ if (!SetCommState (hnd, &dcb)) error ("SetCommState() failed"); - childp2 = Fplist_put (childp2, QCsummary, build_string (summary)); + childp2 = plist_put (childp2, QCsummary, build_string (summary)); pset_childp (p, childp2); } |