aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorAndreas Schwab2008-07-05 09:45:56 +0000
committerAndreas Schwab2008-07-05 09:45:56 +0000
commit6c95e70d30da7a988b20d628d058269c97d0d583 (patch)
tree5f2d63b0f6f4afcd5eeb0bd5732bf15a7460299a /src
parentc8baaa6b124c4f2b02089020dd3a0346052e6320 (diff)
downloademacs-6c95e70d30da7a988b20d628d058269c97d0d583.tar.gz
emacs-6c95e70d30da7a988b20d628d058269c97d0d583.zip
(get_it_property): Move out of HAVE_WINDOW_SYSTEM
section.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog5
-rw-r--r--src/xdisp.c38
2 files changed, 24 insertions, 19 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 58b2538093b..c04d96629e3 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
12008-07-05 Andreas Schwab <schwab@suse.de>
2
3 * xdisp.c (get_it_property): Move out of HAVE_WINDOW_SYSTEM
4 section.
5
12008-07-05 Chong Yidong <cyd@stupidchicken.com> 62008-07-05 Chong Yidong <cyd@stupidchicken.com>
2 7
3 * xdisp.c (IT_OVERFLOW_NEWLINE_INTO_FRINGE): Turn it off if 8 * xdisp.c (IT_OVERFLOW_NEWLINE_INTO_FRINGE): Turn it off if
diff --git a/src/xdisp.c b/src/xdisp.c
index 28a5c4e0c0a..4b4fd77d280 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -16386,6 +16386,25 @@ push_display_prop (struct it *it, Lisp_Object prop)
16386 } 16386 }
16387} 16387}
16388 16388
16389/* Return the character-property PROP at the current position in IT. */
16390
16391static Lisp_Object
16392get_it_property (it, prop)
16393 struct it *it;
16394 Lisp_Object prop;
16395{
16396 Lisp_Object position;
16397
16398 if (STRINGP (it->object))
16399 position = make_number (IT_STRING_CHARPOS (*it));
16400 else if (BUFFERP (it->object))
16401 position = make_number (IT_CHARPOS (*it));
16402 else
16403 return Qnil;
16404
16405 return Fget_char_property (position, prop, it->object);
16406}
16407
16389/* See if there's a line- or wrap-prefix, and if so, push it on IT. */ 16408/* See if there's a line- or wrap-prefix, and if so, push it on IT. */
16390 16409
16391static void 16410static void
@@ -20879,25 +20898,6 @@ produce_stretch_glyph (it)
20879 take_vertical_position_into_account (it); 20898 take_vertical_position_into_account (it);
20880} 20899}
20881 20900
20882/* Return the character-property PROP at the current position in IT. */
20883
20884static Lisp_Object
20885get_it_property (it, prop)
20886 struct it *it;
20887 Lisp_Object prop;
20888{
20889 Lisp_Object position;
20890
20891 if (STRINGP (it->object))
20892 position = make_number (IT_STRING_CHARPOS (*it));
20893 else if (BUFFERP (it->object))
20894 position = make_number (IT_CHARPOS (*it));
20895 else
20896 return Qnil;
20897
20898 return Fget_char_property (position, prop, it->object);
20899}
20900
20901/* Calculate line-height and line-spacing properties. 20901/* Calculate line-height and line-spacing properties.
20902 An integer value specifies explicit pixel value. 20902 An integer value specifies explicit pixel value.
20903 A float value specifies relative value to current face height. 20903 A float value specifies relative value to current face height.