Mercurial > emacs
changeset 107395:05f285327bae
Put non-GTK X scroll-bars on left.
* xfns.c (Fx_create_frame):
* frame.c (Vdefault_frame_scroll_bars): Put non-GTK X scroll-bars on left.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 15 Mar 2010 13:16:46 -0400 |
| parents | e4adbc6451e9 |
| children | d5de7ba3f80f ffc9d2c92c83 |
| files | etc/NEWS src/ChangeLog src/frame.c src/xfns.c |
| diffstat | 4 files changed, 19 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/etc/NEWS Mon Mar 15 01:39:53 2010 +0000 +++ b/etc/NEWS Mon Mar 15 13:16:46 2010 -0400 @@ -30,7 +30,7 @@ * Changes in Emacs 24.1 -** The scroll-bar is now on the right on GNU/Linux and UNIX-like systems. +** GTK scroll-bars are now placed on the right by default. Use `set-scroll-bar-mode' to change this.
--- a/src/ChangeLog Mon Mar 15 01:39:53 2010 +0000 +++ b/src/ChangeLog Mon Mar 15 13:16:46 2010 -0400 @@ -1,3 +1,9 @@ +2010-03-15 Chong Yidong <cyd@stupidchicken.com> + + * xfns.c (Fx_create_frame): + * frame.c (Vdefault_frame_scroll_bars): Put non-GTK X scroll-bars + on left. + 2010-03-13 Andreas Politz <politza@fh-trier.de> (tiny change) * editfns.c (Fformat): Account for string precision when computing
--- a/src/frame.c Mon Mar 15 01:39:53 2010 +0000 +++ b/src/frame.c Mon Mar 15 13:16:46 2010 -0400 @@ -4584,8 +4584,14 @@ DEFVAR_LISP ("default-frame-scroll-bars", &Vdefault_frame_scroll_bars, doc: /* Default position of scroll bars on this window-system. */); #ifdef HAVE_WINDOW_SYSTEM +#if defined(HAVE_NTGUI) || defined(NS_IMPL_COCOA) || (defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS)) + /* MS-Windows, Mac OS X, and GTK have scroll bars on the right by + default. */ Vdefault_frame_scroll_bars = Qright; #else + Vdefault_frame_scroll_bars = Qleft; +#endif +#else Vdefault_frame_scroll_bars = Qnil; #endif
--- a/src/xfns.c Mon Mar 15 01:39:53 2010 +0000 +++ b/src/xfns.c Mon Mar 15 13:16:46 2010 -0400 @@ -3376,7 +3376,12 @@ #endif "internalBorderWidth", "internalBorderWidth", RES_TYPE_NUMBER); - x_default_parameter (f, parms, Qvertical_scroll_bars, Qright, + x_default_parameter (f, parms, Qvertical_scroll_bars, +#if defined(USE_GTK) && defined(USE_TOOLKIT_SCROLL_BARS) + Qright, +#else + Qleft, +#endif "verticalScrollBars", "ScrollBars", RES_TYPE_SYMBOL);