Mercurial > hg > xemacs

changeset 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 f7491bba94b5
children 2a3055313d1e
files pers-init.el
diffstat 1 files changed, 11 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/pers-init.el	Sat Apr 19 19:03:58 2008 +0100
+++ b/pers-init.el	Sat Apr 19 19:04:25 2008 +0100
@@ -409,8 +409,14 @@
 (site-caseq (laptop (defun system-name () "francis.markup.co.uk")))
 
 (cd (user-home-directory))
-(site-caseq (laptop (if (= (device-pixel-width (selected-device)) 1600)
-			;; we're on a big external monitor
-			(progn
-			  (set-frame-pixel-size (selected-frame) 900 1140)
-			  (set-frame-position (selected-frame) -3 -20)))))
+(site-caseq (laptop
+	     (let ((pw (device-pixel-width (selected-device))))
+	       (if (= pw 1600)
+		   ;; we're on a big external monitor
+		   (progn
+		     (set-frame-pixel-size (selected-frame) 900 1140)
+		     (set-frame-position (selected-frame) -3 -20))
+		 (if (= pw 1280)
+		     (progn
+		       (set-frame-pixel-size (selected-frame) 640 740)
+		       (set-frame-position (selected-frame) -3 -20)))))))