diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-07-28 15:09:31 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-07-28 15:09:31 +0000 |
commit | af4a47d6b1db2bbaf0a28bc72230653877b56cd3 (patch) | |
tree | 6048c9ff0392fb000fabcc57a2f8f8234afe1f7f | |
parent | 1fe211ca1a1b8ff2de760bd78b05e219f3dae55b (diff) | |
download | emacs-af4a47d6b1db2bbaf0a28bc72230653877b56cd3.tar.gz |
(map_obarray): Don't crash if something strange is in the obarray.
-rw-r--r-- | src/lread.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 7f718dce681..60583bafbb2 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2248,7 +2248,7 @@ map_obarray (obarray, fn, arg) for (i = XVECTOR (obarray)->size - 1; i >= 0; i--) { tail = XVECTOR (obarray)->contents[i]; - if (XFASTINT (tail) != 0) + if (SYMBOLP (tail)) while (1) { (*fn) (tail, arg); |