X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=dot-files%2F_emacs_el;h=87d2aec2a020a5b042e49a14f297696bfc6257ef;hb=87e6e1c93f648a6cc5ecb71bb6d2fd6b7df87dc1;hp=c3474307bf4f8fe4d4473ab1f96d82c2763fad4b;hpb=73963a84b34419fbff390869de9b7864fc731d87;p=sugar.git

diff --git a/dot-files/_emacs_el b/dot-files/_emacs_el
index c347430..87d2aec 100644
--- a/dot-files/_emacs_el
+++ b/dot-files/_emacs_el
@@ -71,6 +71,9 @@
     (cond ((equal host "seras")
            (set-frame-font "Dejavu Sans Mono 11" t))
 
+          ((equal host "yukari.cielonegro.org")
+           (set-frame-font "Dejavu Sans Mono 11" t))
+
           ((equal host "aria.cielonegro.org")
            (progn
              (set-frame-font "Dejavu Sans Mono 13" t)
@@ -173,8 +176,14 @@ Will prompt you shell name when you type `C-u' before this command." t)
     (paren-activate))
 
 ;; elscreen
-(load "elscreen" "ElScreen" t)
-(elscreen-start)
+(condition-case e
+    (load "elscreen" "ElScreen" t)
+  (file-error
+   (if (equal (cadr e) "Cannot open load file")
+       (message "Warning: feature %s is absent" feature) ; warn and ignore
+     (apply 'signal (car e) (cdr e))))) ; rethrow
+(if (featurep 'elscreen)
+    (elscreen-start))
 (require-if-present 'elscreen-w3m)
 
 ;; undo-tree