Suppress another: Warning: assignment to free variable
authorOleksandr Gavenko <gavenkoa@gmail.com>
Fri, 01 Apr 2016 18:40:42 +0300
changeset 1384 a952b43af57f
parent 1383 f2b6754654a4
child 1385 5f96b8d649ba
Suppress another: Warning: assignment to free variable
.emacs-my
.emacs-obsolete
--- a/.emacs-my	Fri Apr 01 18:32:20 2016 +0300
+++ b/.emacs-my	Fri Apr 01 18:40:42 2016 +0300
@@ -2094,6 +2094,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "bbdb")
 
+(eval-when 'compile (require 'bbdb nil t))
+
 (setq
  bbdb-offer-save 1
  bbdb-use-pop-up t
@@ -2115,6 +2117,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "jabber")
 
+(eval-when 'compile (require 'jabber nil t))
+
 (setq jabber-history-dir (concat user-emacs-directory ".jabber"))
 
 (autoload 'jabber-connect-all "jabber")
@@ -2201,7 +2205,9 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "erc")
 
-(eval-when 'compile (require 'erc))
+(eval-when 'compile
+  (require 'erc)
+  (require 'erc-log))
 
 ;; (add-to-list 'erc-modules 'notify)
 ;; (setq erc-notify-list '(""))
@@ -2270,6 +2276,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "diff, patch, ediff, emerge")
 
+(eval-when 'compile (require 'ediff))
+
 (setq diff-switches "-u")
 
 (setq ediff-diff-options "")
@@ -3046,11 +3054,6 @@
  pascal-auto-endcomments t)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "ECB")
-
-(setq ecb-tip-of-the-day nil)
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "nsis-mode")
 
 (when (fboundp 'nsis-mode)
@@ -3182,6 +3185,8 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "web-mode")
 
+(eval-when 'compile (require 'web-mode nil t))
+
 (setq web-mode-markup-indent-offset 2
       web-mode-css-indent-offset 2
       web-mode-code-indent-offset 2
--- a/.emacs-obsolete	Fri Apr 01 18:32:20 2016 +0300
+++ b/.emacs-obsolete	Fri Apr 01 18:40:42 2016 +0300
@@ -230,3 +230,8 @@
 ;;    ((stringp yas/root-directory) (setq yas/root-directory (list my-yas-root-directory yas/root-directory)))
 ;;    (t (error "I expect that yas/root-directory is a list of string")) )
 ;;   (mapc 'yas/load-directory yas/root-directory))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "ECB")
+
+(setq ecb-tip-of-the-day nil)