Loads more updates -- large assortment of stuffs

[syinit] / 01-vars-sy.el

diff --git a/01-vars-sy.el b/01-vars-sy.el
index 87db01d..18d8127 100644 (file)
--- a/01-vars-sy.el
+++ b/01-vars-sy.el
@@ -1,14 +1,14 @@
-;; 01-vars-sy.el --- Various variables   -*- Emacs-Lisp -*-
+;; 01-vars-sy.el --- Various variables
 
 ;; Copyright (C) 2007 - 2020 Steve Youngs
 
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Wednesday Feb 12, 2020 13:35:35 steve>
+;; Time-stamp: <Sunday Mar  8, 2020 11:17:00 steve>
 ;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
 ;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/01-vars-sy.html>
-;;   Git Repo: git clone http://git.sxemacs.org/syinit
+;;   Git Repo: git clone https://git.sxemacs.org/syinit
 ;;   Keywords: init, compile
 
 ;; This file is part of SYinit
@@ -145,13 +145,17 @@
 
 ;:*=======================
 ;:* 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))))))
+;(unless (fboundp 'ucs-to-char)
+(when (featurep '(and mule mule-ucs-autoloads))
+  ;; Order is important here
+  (progn
+    (require 'tae)
+    (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)))))
+;)
 
 ;:*=======================
 ;:* Fix #'run-at-time