Mercurial > hg > xemacs

comparison pers-init.el @ 17:ee87d53174b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
wide screen?
author ht
date Sat, 19 Apr 2008 19:04:25 +0100
parents b53b1f1f2d4a
children cc9c7bc8194a
comparison
equal deleted inserted replaced
16:f7491bba94b5 17:ee87d53174b1
407 (message "Sending URL to Netscape... done")) 407 (message "Sending URL to Netscape... done"))
408 408
409 (site-caseq (laptop (defun system-name () "francis.markup.co.uk"))) 409 (site-caseq (laptop (defun system-name () "francis.markup.co.uk")))
410 410
411 (cd (user-home-directory)) 411 (cd (user-home-directory))
412 (site-caseq (laptop (if (= (device-pixel-width (selected-device)) 1600) 412 (site-caseq (laptop
413 ;; we're on a big external monitor 413 (let ((pw (device-pixel-width (selected-device))))
414 (progn 414 (if (= pw 1600)
415 (set-frame-pixel-size (selected-frame) 900 1140) 415 ;; we're on a big external monitor
416 (set-frame-position (selected-frame) -3 -20))))) 416 (progn
417 (set-frame-pixel-size (selected-frame) 900 1140)
418 (set-frame-position (selected-frame) -3 -20))
419 (if (= pw 1280)
420 (progn
421 (set-frame-pixel-size (selected-frame) 640 740)
422 (set-frame-position (selected-frame) -3 -20)))))))