Mercurial > hg > xemacs-beta

comparison lisp/x-scrollbar.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 7039e6323819
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
78 '("scrollbar.height" . "ScrollBar.Height"))) 78 '("scrollbar.height" . "ScrollBar.Height")))
79 79
80 ;; Now do ScrollBarPlacement.scrollBarPlacement 80 ;; Now do ScrollBarPlacement.scrollBarPlacement
81 (let ((case-fold-search t) 81 (let ((case-fold-search t)
82 (resval (x-get-resource "ScrollBarPlacement" "scrollBarPlacement" 82 (resval (x-get-resource "ScrollBarPlacement" "scrollBarPlacement"
83 'string locale))) 83 'string locale nil 'warn)))
84 (cond 84 (cond
85 ((null resval)) 85 ((null resval))
86 ((string-match "^top[_-]left$" resval) 86 ((string-match "^top[_-]left$" resval)
87 (set-specifier scrollbar-on-top-p t locale) 87 (set-specifier scrollbar-on-top-p t locale)
88 (set-specifier scrollbar-on-left-p t locale)) 88 (set-specifier scrollbar-on-left-p t locale))