Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
275:a68ae4439f57 276:6330739388db
32 32
33 (defun init-scrollbar-from-resources (locale) 33 (defun init-scrollbar-from-resources (locale)
34 (when (and (featurep 'x) 34 (when (and (featurep 'x)
35 (or (eq locale 'global) 35 (or (eq locale 'global)
36 (eq 'x (device-or-frame-type locale)))) 36 (eq 'x (device-or-frame-type locale))))
37 (x-init-scrollbar-from-resources locale))) 37 (x-init-scrollbar-from-resources locale))
38 (when (and (featurep 'mswindows)
39 (or (eq locale 'global)
40 (eq 'mswindows (device-or-frame-type locale))))
41 (mswindows-init-scrollbar-metrics locale)))
38 42
39 ;; 43 ;;
40 ;; vertical scrollbar functions 44 ;; vertical scrollbar functions
41 ;; 45 ;;
42 46