summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--emacs/.emacs.d/init.org39
1 files changed, 24 insertions, 15 deletions
diff --git a/emacs/.emacs.d/init.org b/emacs/.emacs.d/init.org
index 6290bb45..27f45155 100644
--- a/emacs/.emacs.d/init.org
+++ b/emacs/.emacs.d/init.org
@@ -18,6 +18,14 @@ Open Emacs with just a plain window.  No graphics or messages, please!
 (remove-hook 'find-file-hooks #'vc-refresh-state)
 #+END_SRC
 
+** Compatibility
+
+#+BEGIN_SRC emacs-lisp
+(if (version< emacs-version "25.0")
+    (defmacro with-eval-after-load (file &rest body)
+      `(eval-after-load ,file (lambda () ,@body))))
+#+END_SRC
+
 ** Scratch buffers
 I usually use scratch buffers for any sort of text.  If I need a
 programming mode in one, then I’ll just call it manually.  I also like
@@ -314,21 +322,22 @@ Diminishing major modes does not happen in the same manner as minor
 modes.
 
 #+BEGIN_SRC emacs-lisp
-(use-package cyphejor
-  :defer 2
-  :config (progn
-            (setq cyphejor-rules `(("emacs"       "ε")
-                                   ("diff"        "Δ")
-                                   ("js2"         "js")
-                                   ("magit-status" ,(char-to-string (-find #'char-displayable-p '(11942 5848 177))))
-                                   ("inferior"    "i" :prefix)
-                                   ("interaction" "i" :prefix)
-                                   ("interactive" "i" :prefix)
-                                   ("menu"        "▤" :postfix)
-                                   ("ledger"      "Ledger")
-                                   ("mode"        "")
-                                   ("shell"       "sh" :postfix)))
-            (cyphejor-mode 1)))
+(unless (version<= emacs-version "24.4")
+  (use-package cyphejor
+    :defer 2
+    :config (progn
+              (setq cyphejor-rules `(("emacs"       "ε")
+                                     ("diff"        "Δ")
+                                     ("js2"         "js")
+                                     ("magit-status" ,(char-to-string (-find #'char-displayable-p '(11942 5848 177))))
+                                     ("inferior"    "i" :prefix)
+                                     ("interaction" "i" :prefix)
+                                     ("interactive" "i" :prefix)
+                                     ("menu"        "▤" :postfix)
+                                     ("ledger"      "Ledger")
+                                     ("mode"        "")
+                                     ("shell"       "sh" :postfix)))
+              (cyphejor-mode 1))))
 #+END_SRC