They say the world is Unicode, lets try to live there

[syinit] / 01-vars-sy.el

diff --git a/01-vars-sy.el b/01-vars-sy.el
index 76f43df..b72f70e 100644 (file)
--- a/01-vars-sy.el
+++ b/01-vars-sy.el
@@ -1,11 +1,11 @@
 ;; 00-vars-sy.el --- Various variables   -*- Emacs-Lisp -*-
 
-;; Copyright (C) 2007 - 2012 Steve Youngs
+;; Copyright (C) 2007 - 2013 Steve Youngs
 
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Sunday Jun 10, 2012 10:53:05 steve>
+;; Time-stamp: <Monday Jun 29, 2015 17:01:44 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/00-vars-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
@@ -130,6 +130,17 @@
 (defvar message-directory (paths-construct-path 
                        (list (user-home-directory) "Gnus"))
   "Gnus directory.")
+
+
+;:*=======================
+;:* Unicode shit
+(unless (fboundp 'ucs-to-char)
+  (when (featurep '(and mule mule-ucs-autoloads))
+    (require 'un-define)
+    (and (coding-system-p (find-coding-system 'utf-8))
+        (setq-default buffer-file-coding-system
+                      (coding-system-name
+                       (find-coding-system 'utf-8))))))
    
 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
 (message "variables initialiased")