diff options
| author | Gerd Moellmann <gerd@gnu.org> | 1999-09-08 22:12:34 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 1999-09-08 22:12:34 +0000 |
| commit | d3acf96b5763571c89e1b6e0ea0385eb1ad77d9a (patch) | |
| tree | e5367eee15878ebe9514848476ff4de1f25e00b4 | |
| parent | 4ac44b4c717c9a74a23f0a3e51756c827a2a4790 (diff) | |
| download | emacs-d3acf96b5763571c89e1b6e0ea0385eb1ad77d9a.tar.gz | |
(Qwhen): Replaces QCwhen.
(syms_of_xdisp): Initialized it instead of QCwhen.
(handle_single_display_prop): Use it instead of QCwhen.
| -rw-r--r-- | src/xdisp.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/xdisp.c b/src/xdisp.c index d02a3422980..4694e4a635f 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -219,7 +219,7 @@ Lisp_Object Qoverriding_local_map, Qoverriding_terminal_local_map; Lisp_Object Qwindow_scroll_functions, Vwindow_scroll_functions; Lisp_Object Qredisplay_end_trigger_functions; Lisp_Object Qinhibit_point_motion_hooks; -Lisp_Object QCeval, QCwhen; +Lisp_Object QCeval, Qwhen; Lisp_Object Qfontified; /* Functions called to fontify regions of text. */ @@ -2297,10 +2297,10 @@ handle_single_display_prop (it, prop, object, position) Lisp_Object form; - /* If PROP is a list of the form `(:when FORM . VALUE)', FORM is + /* If PROP is a list of the form `(when FORM . VALUE)', FORM is evaluated. If the result is nil, VALUE is ignored. */ form = Qt; - if (CONSP (prop) && EQ (XCAR (prop), QCwhen)) + if (CONSP (prop) && EQ (XCAR (prop), Qwhen)) { prop = XCDR (prop); if (!CONSP (prop)) @@ -12555,8 +12555,8 @@ syms_of_xdisp () staticpro (&QCrelative_height); QCeval = intern (":eval"); staticpro (&QCeval); - QCwhen = intern (":when"); - staticpro (&QCwhen); + Qwhen = intern ("when"); + staticpro (&Qwhen); Qfontified = intern ("fontified"); staticpro (&Qfontified); Qfontification_functions = intern ("fontification-functions"); |