mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

Put non-GTK X scroll-bars on left.

Browse Source 
* xfns.c (Fx_create_frame):
* frame.c (Vdefault_frame_scroll_bars): Put non-GTK X scroll-bars on left.
This commit is contained in:
Chong Yidong 2010-03-15 13:16:46 -04:00
parent ddf5d974aa
commit 303500aa06
4 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/NEWS
View File

@ -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.

6
src/ChangeLog
View File

@ -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

6
src/frame.c
View File

@ -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

7
src/xfns.c
View File

@ -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);