--- a/.emacs-my Fri Apr 01 19:05:11 2016 +0300
+++ b/.emacs-my Fri Apr 01 19:20:55 2016 +0300
@@ -1806,8 +1806,8 @@
nnml-directory "~/.gnus/nnml-mail"
spam-directory "~/.gnus/spam/"
smime-certificate-directory "~/.gnus/certs/"
- nnfolder-directory "~/.gnus/archive"
- nnfolder-active-file "~/.gnus/archive/active"
+ ;; nnfolder-directory "~/.gnus/archive"
+ ;; nnfolder-active-file "~/.gnus/archive/active"
)
;; Remove gnus-ignored-newsgroups to show all GMail folders.
@@ -2325,8 +2325,6 @@
(setq standard-indent 4)
(setq c-basic-offset 4)
-(setq sh-basic-offset 2)
-(setq sgml-basic-offset 4)
(when (fboundp 'electric-indent-mode)
(electric-indent-mode -1))
@@ -2465,6 +2463,7 @@
(eval-when 'compile
(require 'cedet nil t)
+ (require 'srecode nil t)
(require 'semantic nil t)
(require 'semantic/idle nil t)
(require 'ede/linux nil t))
@@ -3156,9 +3155,18 @@
(add-to-list 'auto-mode-alist '("\\.html?\\'" . web-mode)) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "sgml")
+
+(eval-when 'compile (require 'sgml-mode))
+
+(setq sgml-basic-offset 4)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "psgml")
-(setq my-html-template
+(eval-when 'compile (require 'psgml nil t))
+
+(defvar my-html-template
'("html"
(nil
"\n<head>" \n
@@ -3170,10 +3178,8 @@
"<a href=\"mailto:" user-mail-address "\">" (user-full-name) "</a>" \n
"</address>" \n
"</body>\n"
- ))
- )
-
-(setq sgml-set-face t) ; for highlighting in sgml
+ )))
+
(my--eval-after-load sgml-mode
(unless (featurep 'psgml)
(setq html-tag-alist
@@ -3205,11 +3211,17 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "sh, bash")
+(eval-when 'compile (require 'sh-script))
+
+(setq sh-basic-offset 2)
+
(add-to-list 'auto-mode-alist '("\\.cygport\\'" . shell-script-mode))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(message "pg, Proof General")
+(eval-when 'compile (require 'proof nil t))
+
(setq proof-splash-enable nil)
;; (setq proof-toolbar-enable nil)