diff options
| author | Eli Zaretskii | 2018-04-23 20:48:12 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2018-04-23 20:48:12 +0300 |
| commit | fa3136e07148ab37fabc52007f531e71e41a1d5a (patch) | |
| tree | 7b765ca43818701d67287fe8c01069a359f6798d /src/lread.c | |
| parent | 3c6b59918aaaac295fd6354dae929859eaaacfa2 (diff) | |
| download | emacs-fa3136e07148ab37fabc52007f531e71e41a1d5a.tar.gz emacs-fa3136e07148ab37fabc52007f531e71e41a1d5a.zip | |
Fix recent change in lread.c
* src/lread.c (openp): Avoid assertion violations in XCDR when
PATH is nil. (Bug#31229)
Diffstat (limited to 'src/lread.c')
| -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 69b53629ec1..b8db117c79c 100644 --- a/src/lread.c +++ b/src/lread.c | |||
| @@ -1772,7 +1772,7 @@ openp (Lisp_Object path, Lisp_Object str, Lisp_Object suffixes, | |||
| 1772 | } | 1772 | } |
| 1773 | } | 1773 | } |
| 1774 | } | 1774 | } |
| 1775 | if (absolute) | 1775 | if (absolute || NILP (path)) |
| 1776 | break; | 1776 | break; |
| 1777 | path = XCDR (path); | 1777 | path = XCDR (path); |
| 1778 | } while (CONSP (path)); | 1778 | } while (CONSP (path)); |