Mercurial > hg > xemacs-beta

diff lisp/scrollbar.el @ 276:6330739388db r21-0b36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b36
author cvs
date Mon, 13 Aug 2007 10:30:37 +0200
parents 41ff10fd062f
children 90d73dddcdc4
line wrap: on
line diff
--- a/lisp/scrollbar.el	Mon Aug 13 10:29:43 2007 +0200
+++ b/lisp/scrollbar.el	Mon Aug 13 10:30:37 2007 +0200
@@ -34,7 +34,11 @@
   (when (and (featurep 'x)
 	     (or (eq locale 'global)
 		 (eq 'x (device-or-frame-type locale))))
-    (x-init-scrollbar-from-resources locale)))
+    (x-init-scrollbar-from-resources locale))
+  (when (and (featurep 'mswindows)
+	     (or (eq locale 'global)
+		 (eq 'mswindows (device-or-frame-type locale))))
+    (mswindows-init-scrollbar-metrics locale)))
 
 ;;
 ;; vertical scrollbar functions