diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-02-15 01:05:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-02-15 01:05:33 +0000 |
| commit | 5f69492604f7a91733972602bf1a45f5a53ab258 (patch) | |
| tree | 742a2279799ef620ed23caeefc017cd312c115e7 /src/frame.c | |
| parent | 31d7d3406008ca4d15092a42dbeed7c8e01571b9 (diff) | |
| download | emacs-5f69492604f7a91733972602bf1a45f5a53ab258.tar.gz | |
(x_get_arg): Clear out all occurrences of PARAM in ALIST.
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/frame.c b/src/frame.c index 6712fa6b287..08b3764fe16 100644 --- a/src/frame.c +++ b/src/frame.c @@ -3526,7 +3526,14 @@ x_get_arg (dpyinfo, alist, param, attribute, class, type) so that it won't be "left over" at the end. */ #ifdef HAVE_X_WINDOWS /* macfns.c and w32fns.c have not yet been changed to cope with this. */ + Lisp_Object tail; XSETCAR (tem, Qnil); + /* In case the parameter appears more than once in the alist, + clear it out. */ + for (tail = alist; CONSP (tail); tail = XCDR (tail)) + if (CONSP (XCAR (tail)) + && EQ (XCAR (XCAR (tail)), param)) + XSETCAR (XCAR (tail), Qnil); #endif } else |