diff options
| author | Richard M. Stallman | 2005-06-23 21:32:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-06-23 21:32:26 +0000 |
| commit | 9c69e6e1643191701808ec99d8510e96fd04d1b2 (patch) | |
| tree | 046b269bc608bafaf71834a1ae93d8ce6fd9c51e /src | |
| parent | d550c42590e3d681eb71ceed8d30291f021d318b (diff) | |
| download | emacs-9c69e6e1643191701808ec99d8510e96fd04d1b2.tar.gz emacs-9c69e6e1643191701808ec99d8510e96fd04d1b2.zip | |
(get_next_display_element):
Finish reversing the tests of Vnobreak_char_display.
(Vnobreak_char_display): Renamed from Vshow_nonbreak_escape.
All uses changed.
(Qnobreak_space): Renamed from Qno_break_space. All uses changed.
(syms_of_xdisp): Define nobreak-char-display and nobreak-space.
Diffstat (limited to 'src')
| -rw-r--r-- | src/xdisp.c | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/src/xdisp.c b/src/xdisp.c index 4128f354442..1bb2b4292c0 100644 --- a/src/xdisp.c +++ b/src/xdisp.c | |||
| @@ -320,7 +320,7 @@ Lisp_Object Vshow_trailing_whitespace; | |||
| 320 | 320 | ||
| 321 | /* Non-nil means escape non-break space and hyphens. */ | 321 | /* Non-nil means escape non-break space and hyphens. */ |
| 322 | 322 | ||
| 323 | Lisp_Object Vshow_nonbreak_escape; | 323 | Lisp_Object Vnobreak_char_display; |
| 324 | 324 | ||
| 325 | #ifdef HAVE_WINDOW_SYSTEM | 325 | #ifdef HAVE_WINDOW_SYSTEM |
| 326 | extern Lisp_Object Voverflow_newline_into_fringe; | 326 | extern Lisp_Object Voverflow_newline_into_fringe; |
| @@ -352,7 +352,7 @@ Lisp_Object Qescape_glyph; | |||
| 352 | 352 | ||
| 353 | /* Name and number of the face used to highlight non-breaking spaces. */ | 353 | /* Name and number of the face used to highlight non-breaking spaces. */ |
| 354 | 354 | ||
| 355 | Lisp_Object Qno_break_space; | 355 | Lisp_Object Qnobreak_space; |
| 356 | 356 | ||
| 357 | /* The symbol `image' which is the car of the lists used to represent | 357 | /* The symbol `image' which is the car of the lists used to represent |
| 358 | images in Lisp. */ | 358 | images in Lisp. */ |
| @@ -5097,7 +5097,7 @@ get_next_display_element (it) | |||
| 5097 | ? ((it->c >= 127 | 5097 | ? ((it->c >= 127 |
| 5098 | && it->len == 1) | 5098 | && it->len == 1) |
| 5099 | || !CHAR_PRINTABLE_P (it->c) | 5099 | || !CHAR_PRINTABLE_P (it->c) |
| 5100 | || (!NILP (Vshow_nonbreak_escape) | 5100 | || (!NILP (Vnobreak_char_display) |
| 5101 | && (it->c == 0x8a0 || it->c == 0x8ad | 5101 | && (it->c == 0x8a0 || it->c == 0x8ad |
| 5102 | || it->c == 0x920 || it->c == 0x92d | 5102 | || it->c == 0x920 || it->c == 0x92d |
| 5103 | || it->c == 0xe20 || it->c == 0xe2d | 5103 | || it->c == 0xe20 || it->c == 0xe2d |
| @@ -5152,12 +5152,12 @@ get_next_display_element (it) | |||
| 5152 | /* Handle non-break space in the mode where it only gets | 5152 | /* Handle non-break space in the mode where it only gets |
| 5153 | highlighting. */ | 5153 | highlighting. */ |
| 5154 | 5154 | ||
| 5155 | if (EQ (Vshow_nonbreak_escape, Qt) | 5155 | if (EQ (Vnobreak_char_display, Qt) |
| 5156 | && (it->c == 0x8a0 || it->c == 0x920 | 5156 | && (it->c == 0x8a0 || it->c == 0x920 |
| 5157 | || it->c == 0xe20 || it->c == 0xf20)) | 5157 | || it->c == 0xe20 || it->c == 0xf20)) |
| 5158 | { | 5158 | { |
| 5159 | /* Merge the no-break-space face into the current face. */ | 5159 | /* Merge the no-break-space face into the current face. */ |
| 5160 | face_id = merge_faces (it->f, Qno_break_space, 0, | 5160 | face_id = merge_faces (it->f, Qnobreak_space, 0, |
| 5161 | it->face_id); | 5161 | it->face_id); |
| 5162 | 5162 | ||
| 5163 | g = it->c = ' '; | 5163 | g = it->c = ' '; |
| @@ -5196,7 +5196,7 @@ get_next_display_element (it) | |||
| 5196 | /* Handle soft hyphens in the mode where they only get | 5196 | /* Handle soft hyphens in the mode where they only get |
| 5197 | highlighting. */ | 5197 | highlighting. */ |
| 5198 | 5198 | ||
| 5199 | if (! EQ (Vshow_nonbreak_escape, Qt) | 5199 | if (EQ (Vnobreak_char_display, Qt) |
| 5200 | && (it->c == 0x8ad || it->c == 0x92d | 5200 | && (it->c == 0x8ad || it->c == 0x92d |
| 5201 | || it->c == 0xe2d || it->c == 0xf2d)) | 5201 | || it->c == 0xe2d || it->c == 0xf2d)) |
| 5202 | { | 5202 | { |
| @@ -22776,8 +22776,8 @@ syms_of_xdisp () | |||
| 22776 | staticpro (&Qtrailing_whitespace); | 22776 | staticpro (&Qtrailing_whitespace); |
| 22777 | Qescape_glyph = intern ("escape-glyph"); | 22777 | Qescape_glyph = intern ("escape-glyph"); |
| 22778 | staticpro (&Qescape_glyph); | 22778 | staticpro (&Qescape_glyph); |
| 22779 | Qno_break_space = intern ("no-break-space"); | 22779 | Qnobreak_space = intern ("nobreak-space"); |
| 22780 | staticpro (&Qno_break_space); | 22780 | staticpro (&Qnobreak_space); |
| 22781 | Qimage = intern ("image"); | 22781 | Qimage = intern ("image"); |
| 22782 | staticpro (&Qimage); | 22782 | staticpro (&Qimage); |
| 22783 | QCmap = intern (":map"); | 22783 | QCmap = intern (":map"); |
| @@ -22883,13 +22883,14 @@ wide as that tab on the display. */); | |||
| 22883 | The face used for trailing whitespace is `trailing-whitespace'. */); | 22883 | The face used for trailing whitespace is `trailing-whitespace'. */); |
| 22884 | Vshow_trailing_whitespace = Qnil; | 22884 | Vshow_trailing_whitespace = Qnil; |
| 22885 | 22885 | ||
| 22886 | DEFVAR_LISP ("show-nonbreak-escape", &Vshow_nonbreak_escape, | 22886 | DEFVAR_LISP ("nobreak-char-display", &Vnobreak_char_display, |
| 22887 | doc: /* *Control highlighting of non-break space and soft hyphen. | 22887 | doc: /* *Control highlighting of nobreak space and soft hyphen. |
| 22888 | t means highlight the character itself (for non-break space, | 22888 | t means highlight the character itself (for nobreak space, |
| 22889 | use face `non-break-space'. | 22889 | use face `nobreak-space'. |
| 22890 | nil means no highlighting. | 22890 | nil means no highlighting. |
| 22891 | other values mean display the escape glyph before the character. */); | 22891 | other values mean display the escape glyph followed by an ordinary |
| 22892 | Vshow_nonbreak_escape = Qt; | 22892 | space or ordinary hyphen. */); |
| 22893 | Vnobreak_char_display = Qt; | ||
| 22893 | 22894 | ||
| 22894 | DEFVAR_LISP ("void-text-area-pointer", &Vvoid_text_area_pointer, | 22895 | DEFVAR_LISP ("void-text-area-pointer", &Vvoid_text_area_pointer, |
| 22895 | doc: /* *The pointer shape to show in void text areas. | 22896 | doc: /* *The pointer shape to show in void text areas. |