Mercurial > hg > xemacs

comparison shared/pers-init.el @ 2:dd557432d846

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
prune very stale bits
author Henry S. Thompson <ht@inf.ed.ac.uk>
date Mon, 08 Feb 2021 12:29:18 +0000
parents 6c73c7af9cdb
children 0a81352bd7d0
comparison
equal deleted inserted replaced
1:6c73c7af9cdb 2:dd557432d846
96 96
97 (if (string-match "Lucid" emacs-version) 97 (if (string-match "Lucid" emacs-version)
98 (progn 98 (progn
99 (require 'lemacs-compat))) 99 (require 'lemacs-compat)))
100 100
101 (if (boundp 'epoch::version)
102 ;; epoch only goes here
103 (progn
104 (if (string-match "4\\."emacs-version)
105 (load "motion4" nil t)
106 (load "motion" nil t))
107 (redisplay-frame)
108
109 (require 'alarm)
110
111 (defun ht-rooms-setup (&optional arg)
112 (interactive)
113 (redisplay-frame)
114 (require 'mail-extras)
115 (require 'diary)
116 (require 'my-news)
117 (let ((scr (current-frame)))
118 (load "ht-rooms-epoch.config" nil t)
119 (unwind-protect (make-frame-for-room "diary" "-0" "+130"))
120 (unwind-protect (make-frame-for-room "elisp" "-25" "+148"))
121 (unwind-protect (make-frame-for-room "news" "-50" "+166"))
122 (unwind-protect (make-frame-for-room "mail" "-75" "+184"))
123 (epoch::delete-frame scr))
124 ;; presumably this is now frame local, so not quite the right thing.
125 (setq ht-default-config (current-window-configuration)))
126 ))
127 (if (string-match "^\\(19\\|2\\)" emacs-version) 101 (if (string-match "^\\(19\\|2\\)" emacs-version)
128 (progn 102 (progn
129 ;; common v19 103 ;; common v19 and ater
130 (if window-system 104 (if window-system
131 (progn 105 (progn
132 (add-hook 'sh-mode-hook '(lambda () 106 (add-hook 'sh-mode-hook '(lambda ()
133 (font-lock-mode 1))) 107 (font-lock-mode 1)))
134 (setq perl-mode-hook '(lambda () 108 (setq perl-mode-hook '(lambda ()
400 (load "psgml" nil t) 374 (load "psgml" nil t)
401 (load "psgml-edit" nil t) 375 (load "psgml-edit" nil t)
402 (load "xml-hack" nil t) 376 (load "xml-hack" nil t)
403 (add-hook 'sgml-mode-hook 'sgml-fix-para) 377 (add-hook 'sgml-mode-hook 'sgml-fix-para)
404 ) 378 )
405 ;; v18 emacs only goes here 379 ;; v18 emacs only was here
406 (progn 380 )
407 (require 'compress)
408 (defun ht-rooms-setup (&optional arg)
409 (interactive)
410 (require 'mail-extras)
411 (require 'diary)
412 (require 'my-news)
413 (load "ht-rooms.config" nil t)
414 (setq ht-default-config (current-window-configuration)))))
415 381
416 (defun ht-rooms-resetup () 382 (defun ht-rooms-resetup ()
417 (interactive) 383 (interactive)
418 (setq rooms-table nil) 384 (setq rooms-table nil)
419 (setq frames-table nil) 385 (setq frames-table nil)