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

Signed-off-by: Steve Youngs <steve@sxemacs.org>

diff --git a/01-vars-sy.el b/01-vars-sy.el
index db8af51..b72f70e 100644 (file)
--- a/01-vars-sy.el
+++ b/01-vars-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>

-;; Time-stamp: <Sunday Aug 25, 2013 09:16: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
 ;;   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.")
 (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")
    
 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
 (message "variables initialiased")

diff --git a/13-misc-sy.el b/13-misc-sy.el
index 271d5b2..d409ade 100644 (file)
--- a/13-misc-sy.el
+++ b/13-misc-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>

-;; Time-stamp: <Saturday Jun  6, 2015 16:26:13 steve>
+;; Time-stamp: <Monday Jun 29, 2015 21:59:51 steve>

 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/13-misc-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/13-misc-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit


@@ -54,7 +54,6 @@
 ;;; Todo:
 ;;
 ;;     
 ;;; Todo:
 ;;
 ;;     

-

 ;;; Code:
 ;:*=======================
 ;:* Why type 'y e s RET' or 'n o RET' when 'y' or 'n' will do.
 ;;; Code:
 ;:*=======================
 ;:* Why type 'y e s RET' or 'n o RET' when 'y' or 'n' will do.


@@ -279,15 +278,6 @@ instead."
       (mode . hyper-apropos-mode)
       (mode . Info-mode)
       (mode . Manual-mode)))
       (mode . hyper-apropos-mode)
       (mode . Info-mode)
       (mode . Manual-mode)))

-    ("Eicq"
-     (or
-      (mode . eicq-buddy-mode)
-      (mode . eicq-log-mode)
-      (mode . eicq-network-mode)
-      (mode . world-mode)
-      (mode . eicq-history-mode)
-      (name . "\\*eicq-debug\\*")
-      (filename . "/home/steve/\\.eicq/history/.*")))

     ("EMchat"
      (or
       (mode . emchat-buddy-mode)
     ("EMchat"
      (or
       (mode . emchat-buddy-mode)


@@ -429,13 +419,7 @@ instead."
  build-rpt-use-gnus-group "nnml:sxemacs.builds"
  build-rpt-use-gnus-p t
  build-rpt-make-output-files
  build-rpt-use-gnus-group "nnml:sxemacs.builds"
  build-rpt-use-gnus-p t
  build-rpt-make-output-files

- '(;"~/programming/SXEmacs/core/sxemacs.git/=build/,,vars.out"
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,beta.out"
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,make-all.out" 
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,make-check-temacs.out"
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,make-check.out"
-   ;"~/programming/SXEmacs/core/sxemacs.git/=build/,,make-install.out"
-   "/usr/src/sxemacs/make.err"
+ '("/usr/src/sxemacs/make.err"

    "/usr/src/sxemacs/check.err"
    "/usr/src/sxemacs/install.err"
    ))
    "/usr/src/sxemacs/check.err"
    "/usr/src/sxemacs/install.err"
    ))


@@ -531,8 +515,10 @@ instead."
 (customize-set-variable 'user-mail-address "steve@steveyoungs.com")
 (setq query-user-mail-address nil)
 (blink-cursor-mode 1)
 (customize-set-variable 'user-mail-address "steve@steveyoungs.com")
 (setq query-user-mail-address nil)
 (blink-cursor-mode 1)

-(when (featurep 'mule)
-  (set-language-environment "Latin-1"))
+;; Currently trying to live in a Unicode (UTF-8) world, so this is
+;; off.
+; (when (featurep 'mule)
+;   (set-language-environment "Latin-1"))

 (unless (gnuserv-running-p)
   (gnuserv-start))
 (require 'mozmail)
 (unless (gnuserv-running-p)
   (gnuserv-start))
 (require 'mozmail)


@@ -917,3 +903,4 @@ anything about MIME types."
 
 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
 (message "miscellaneous initialised")
 
 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
 (message "miscellaneous initialised")

+

diff --git a/16-riece-sy.el b/16-riece-sy.el
index 086e36b..2ac2410 100644 (file)
--- a/16-riece-sy.el
+++ b/16-riece-sy.el
@@ -5,7 +5,7 @@
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>

-;; Time-stamp: <Monday Jun 15, 2015 10:22:22 steve>
+;; Time-stamp: <Monday Jun 22, 2015 17:24:21 steve>

 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/16-riece-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/16-riece-sy.html>
 ;;   Git Repo: git clone http://git.sxemacs.org/syinit


@@ -715,7 +715,7 @@ connect to."
     ;"#postgresql"
     ;"#avahi"
     "#systemd"
     ;"#postgresql"
     ;"#avahi"
     "#systemd"

-    ; No kdbus chan "#kdbus"
+    "#kdbus"

     "#zsh"
     )
   "List of channels to join after logging in and identifying to nickserv.")
     "#zsh"
     )
   "List of channels to join after logging in and identifying to nickserv.")