diff options
| author | Joakim Verona | 2013-07-14 11:04:49 +0200 |
|---|---|---|
| committer | Joakim Verona | 2013-07-14 11:04:49 +0200 |
| commit | 0bb9bb0841d89fff09820a57369df4cb01b16b43 (patch) | |
| tree | 832bf9fa8415eef0ce464d22b3ee1300cfa90bb1 /src/frame.c | |
| parent | 3718127221fbbc31f8ebd027ab7c95403dbe9118 (diff) | |
| parent | 3af1c8684ed6e48fbc21481d129e9aa164752c6e (diff) | |
| download | emacs-0bb9bb0841d89fff09820a57369df4cb01b16b43.tar.gz emacs-0bb9bb0841d89fff09820a57369df4cb01b16b43.zip | |
Merge branch 'trunk' into xwidget
Conflicts:
src/xdisp.c
Diffstat (limited to 'src/frame.c')
| -rw-r--r-- | src/frame.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/frame.c b/src/frame.c index ba9074ddebe..648687a7cb4 100644 --- a/src/frame.c +++ b/src/frame.c | |||
| @@ -1855,7 +1855,7 @@ See `redirect-frame-focus'. */) | |||
| 1855 | /* Return the value of frame parameter PROP in frame FRAME. */ | 1855 | /* Return the value of frame parameter PROP in frame FRAME. */ |
| 1856 | 1856 | ||
| 1857 | #ifdef HAVE_WINDOW_SYSTEM | 1857 | #ifdef HAVE_WINDOW_SYSTEM |
| 1858 | #if !HAVE_NS && !defined(WINDOWSNT) | 1858 | #if !HAVE_NS && !defined (WINDOWSNT) |
| 1859 | static | 1859 | static |
| 1860 | #endif | 1860 | #endif |
| 1861 | Lisp_Object | 1861 | Lisp_Object |
| @@ -2964,6 +2964,15 @@ x_set_line_spacing (struct frame *f, Lisp_Object new_value, Lisp_Object old_valu | |||
| 2964 | f->extra_line_spacing = 0; | 2964 | f->extra_line_spacing = 0; |
| 2965 | else if (RANGED_INTEGERP (0, new_value, INT_MAX)) | 2965 | else if (RANGED_INTEGERP (0, new_value, INT_MAX)) |
| 2966 | f->extra_line_spacing = XFASTINT (new_value); | 2966 | f->extra_line_spacing = XFASTINT (new_value); |
| 2967 | else if (FLOATP (new_value)) | ||
| 2968 | { | ||
| 2969 | int new_spacing = XFLOAT_DATA (new_value) * FRAME_LINE_HEIGHT (f) + 0.5; | ||
| 2970 | |||
| 2971 | if (new_spacing >= 0) | ||
| 2972 | f->extra_line_spacing = new_spacing; | ||
| 2973 | else | ||
| 2974 | signal_error ("Invalid line-spacing", new_value); | ||
| 2975 | } | ||
| 2967 | else | 2976 | else |
| 2968 | signal_error ("Invalid line-spacing", new_value); | 2977 | signal_error ("Invalid line-spacing", new_value); |
| 2969 | if (FRAME_VISIBLE_P (f)) | 2978 | if (FRAME_VISIBLE_P (f)) |