# HG changeset patch
# User Henry S. Thompson <ht@inf.ed.ac.uk>
# Date 1612787358 0
# Node ID dd557432d84681b808c5870aa4b6efcc9b2adf3c
# Parent  6c73c7af9cdb4db562a4c38e52cc00cea2896e37
prune very stale bits

diff -r 6c73c7af9cdb -r dd557432d846 shared/pers-init.el
--- a/shared/pers-init.el	Mon Feb 08 12:28:16 2021 +0000
+++ b/shared/pers-init.el	Mon Feb 08 12:29:18 2021 +0000
@@ -98,35 +98,9 @@
     (progn
       (require 'lemacs-compat)))
 
-(if (boundp 'epoch::version)
-    ;; epoch only goes here
-    (progn
-      (if (string-match "4\\."emacs-version)
-	  (load "motion4" nil t)
-	(load "motion" nil t))
-      (redisplay-frame)
-
-      (require 'alarm)
-
-      (defun ht-rooms-setup (&optional arg)
-	(interactive)
-	(redisplay-frame)
-	(require 'mail-extras)
-	(require 'diary)
-	(require 'my-news)
-	(let ((scr (current-frame)))
-	  (load "ht-rooms-epoch.config" nil t)
-	  (unwind-protect (make-frame-for-room "diary" "-0" "+130"))
-	  (unwind-protect (make-frame-for-room "elisp" "-25" "+148"))
-	  (unwind-protect (make-frame-for-room "news" "-50" "+166"))
-	  (unwind-protect (make-frame-for-room "mail" "-75" "+184"))
-	  (epoch::delete-frame scr))
-	;; presumably this is now frame local, so not quite the right thing.
-	(setq ht-default-config (current-window-configuration)))
-      ))
 (if (string-match "^\\(19\\|2\\)" emacs-version)
     (progn
-      ;; common v19
+      ;; common v19 and ater
       (if window-system
 	  (progn
 	    (add-hook 'sh-mode-hook '(lambda ()
@@ -402,16 +376,8 @@
       (load "xml-hack" nil t)
       (add-hook 'sgml-mode-hook 'sgml-fix-para)
 )
-  ;; v18 emacs only goes here
-  (progn
-    (require 'compress)
-    (defun ht-rooms-setup (&optional arg)
-      (interactive)
-      (require 'mail-extras)
-      (require 'diary)
-      (require 'my-news)
-      (load "ht-rooms.config" nil t)
-      (setq ht-default-config (current-window-configuration)))))
+  ;; v18 emacs only was here
+)
 
 (defun ht-rooms-resetup ()
   (interactive)