Commit 303500aa authored by Chong Yidong's avatar Chong Yidong

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.
parent ddf5d974
......@@ -30,7 +30,7 @@ so we will look at it and add it to the manual.
* 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.
......
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
......
......@@ -4584,7 +4584,13 @@ Setting this variable does not affect existing frames, only new ones. */);
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
......
......@@ -3376,7 +3376,12 @@ This function is an internal primitive--use `make-frame' instead. */)
#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);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment