diff options
| author | Paul Eggert | 2011-09-21 13:15:56 -0700 |
|---|---|---|
| committer | Paul Eggert | 2011-09-21 13:15:56 -0700 |
| commit | bc9851415e121c2c0416252c97e23add9d80c482 (patch) | |
| tree | 65327b02f8b26ea0a8e8e9c316a94208daae49df | |
| parent | 45c2afd612c04eb594aad53c7292a93ebfa367be (diff) | |
| download | emacs-bc9851415e121c2c0416252c97e23add9d80c482.tar.gz emacs-bc9851415e121c2c0416252c97e23add9d80c482.zip | |
Fix specpdl loop typo.
| -rw-r--r-- | src/data.c | 2 | ||||
| -rw-r--r-- | src/eval.c | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/data.c b/src/data.c index 211a64661ac..b81d1b88545 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1094,7 +1094,7 @@ let_shadows_global_binding_p (Lisp_Object symbol) | |||
| 1094 | { | 1094 | { |
| 1095 | struct specbinding *p; | 1095 | struct specbinding *p; |
| 1096 | 1096 | ||
| 1097 | for (p = specpdl_ptr; p > specpdl; p) | 1097 | for (p = specpdl_ptr; p > specpdl; ) |
| 1098 | if ((--p)->func == NULL && EQ (p->symbol, symbol)) | 1098 | if ((--p)->func == NULL && EQ (p->symbol, symbol)) |
| 1099 | return 1; | 1099 | return 1; |
| 1100 | 1100 | ||
diff --git a/src/eval.c b/src/eval.c index 5fa9a945ef5..b4ef785b3c7 100644 --- a/src/eval.c +++ b/src/eval.c | |||
| @@ -758,7 +758,7 @@ The return value is BASE-VARIABLE. */) | |||
| 758 | { | 758 | { |
| 759 | struct specbinding *p; | 759 | struct specbinding *p; |
| 760 | 760 | ||
| 761 | for (p = specpdl_ptr; p > specpdl; p) | 761 | for (p = specpdl_ptr; p > specpdl; ) |
| 762 | if ((--p)->func == NULL | 762 | if ((--p)->func == NULL |
| 763 | && (EQ (new_alias, | 763 | && (EQ (new_alias, |
| 764 | CONSP (p->symbol) ? XCAR (p->symbol) : p->symbol))) | 764 | CONSP (p->symbol) ? XCAR (p->symbol) : p->symbol))) |