diff options
| author | Andreas Schwab | 2008-07-05 09:45:56 +0000 |
|---|---|---|
| committer | Andreas Schwab | 2008-07-05 09:45:56 +0000 |
| commit | 6c95e70d30da7a988b20d628d058269c97d0d583 (patch) | |
| tree | 5f2d63b0f6f4afcd5eeb0bd5732bf15a7460299a /src | |
| parent | c8baaa6b124c4f2b02089020dd3a0346052e6320 (diff) | |
| download | emacs-6c95e70d30da7a988b20d628d058269c97d0d583.tar.gz emacs-6c95e70d30da7a988b20d628d058269c97d0d583.zip | |
(get_it_property): Move out of HAVE_WINDOW_SYSTEM
section.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 5 | ||||
| -rw-r--r-- | src/xdisp.c | 38 |
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 @@ | |||
| 1 | 2008-07-05 Andreas Schwab <schwab@suse.de> | ||
| 2 | |||
| 3 | * xdisp.c (get_it_property): Move out of HAVE_WINDOW_SYSTEM | ||
| 4 | section. | ||
| 5 | |||
| 1 | 2008-07-05 Chong Yidong <cyd@stupidchicken.com> | 6 | 2008-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 | |||
| 16391 | static Lisp_Object | ||
| 16392 | get_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 | ||
| 16391 | static void | 16410 | static 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 | |||
| 20884 | static Lisp_Object | ||
| 20885 | get_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. |