# HG changeset patch # User Oleksandr Gavenko # Date 1459527655 -10800 # Node ID 2979c26ce3569b47d54af6d89ab25e345899d283 # Parent 32cc6f1ac5dcddddc4d68fdd327e385fa6ee0ca9 sgml-set-face is not defined anywhere. Fix some Warning: assignment to free variable. diff -r 32cc6f1ac5dc -r 2979c26ce356 .emacs-my --- 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" \n @@ -3170,10 +3178,8 @@ "" (user-full-name) "" \n "" \n "\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)