diff options
| author | Gerd Moellmann | 1999-09-07 22:31:38 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-09-07 22:31:38 +0000 |
| commit | 5a4c88c4f417acde163837a4d2fb670b8c58bcf9 (patch) | |
| tree | 21c82ce2a2eaf586c9df45b34b93710aa570acfd /src | |
| parent | f7b4065fc9d6e8ece0a61645328d540279150bf9 (diff) | |
| download | emacs-5a4c88c4f417acde163837a4d2fb670b8c58bcf9.tar.gz emacs-5a4c88c4f417acde163837a4d2fb670b8c58bcf9.zip | |
(handle_single_display_prop): Change conditional
display property to `:when FORM . VALUE'.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xdisp.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/xdisp.c b/src/xdisp.c index a816c064b49..d02a3422980 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -2297,8 +2297,8 @@ handle_single_display_prop (it, prop, object, position) | |||
| 2297 | 2297 | ||
| 2298 | Lisp_Object form; | 2298 | Lisp_Object form; |
| 2299 | 2299 | ||
| 2300 | /* If PROP is a list of the form `(:when FORM VALUE)', FORM is | 2300 | /* If PROP is a list of the form `(:when FORM . VALUE)', FORM is |
| 2301 | evaluated. If the result is nil, VALUE is ignored. */ | 2301 | evaluated. If the result is nil, VALUE is ignored. */ |
| 2302 | form = Qt; | 2302 | form = Qt; |
| 2303 | if (CONSP (prop) && EQ (XCAR (prop), QCwhen)) | 2303 | if (CONSP (prop) && EQ (XCAR (prop), QCwhen)) |
| 2304 | { | 2304 | { |
| @@ -2307,9 +2307,6 @@ handle_single_display_prop (it, prop, object, position) | |||
| 2307 | return 0; | 2307 | return 0; |
| 2308 | form = XCAR (prop); | 2308 | form = XCAR (prop); |
| 2309 | prop = XCDR (prop); | 2309 | prop = XCDR (prop); |
| 2310 | if (!CONSP (prop)) | ||
| 2311 | return 0; | ||
| 2312 | prop = XCAR (prop); | ||
| 2313 | } | 2310 | } |
| 2314 | 2311 | ||
| 2315 | if (!NILP (form) && !EQ (form, Qt)) | 2312 | if (!NILP (form) && !EQ (form, Qt)) |