aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman2005-06-23 21:32:26 +0000
committerRichard M. Stallman2005-06-23 21:32:26 +0000
commit9c69e6e1643191701808ec99d8510e96fd04d1b2 (patch)
tree046b269bc608bafaf71834a1ae93d8ce6fd9c51e /src
parentd550c42590e3d681eb71ceed8d30291f021d318b (diff)
downloademacs-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.c29
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
323Lisp_Object Vshow_nonbreak_escape; 323Lisp_Object Vnobreak_char_display;
324 324
325#ifdef HAVE_WINDOW_SYSTEM 325#ifdef HAVE_WINDOW_SYSTEM
326extern Lisp_Object Voverflow_newline_into_fringe; 326extern 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
355Lisp_Object Qno_break_space; 355Lisp_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. */);
22883The face used for trailing whitespace is `trailing-whitespace'. */); 22883The 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.
22888t means highlight the character itself (for non-break space, 22888t means highlight the character itself (for nobreak space,
22889use face `non-break-space'. 22889use face `nobreak-space'.
22890nil means no highlighting. 22890nil means no highlighting.
22891other values mean display the escape glyph before the character. */); 22891other values mean display the escape glyph followed by an ordinary
22892 Vshow_nonbreak_escape = Qt; 22892space 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.