dot-emacs: comparison .emacs-my

equal deleted inserted replaced

-:74a192647349
+:313e428cf77c
 (let ( recentf-exclude )
 (setq recentf-exclude (list (concat "^" (regexp-quote (expand-file-name dir)))))
 (recentf-cleanup) ))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(message "revert buffer")
+(message "revert buffer, auto-revert")
+(eval-when 'compile (require 'autorevert))
 (global-set-key [f5]    'revert-buffer)
 (setq revert-without-query (quote (".*")))
 (setq auto-revert-interval 2)
 (my-debug nil)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "user info")
+(eval-when 'compile (require 'info))
 ;; Set in ~/.emacs.d/.emacs-auth:
 ;; (setq user-full-name "Oleksandr Gavenko")
 ;; (setq user-mail-address "gavenkoa@gmail.com")
 ;; (setq user-nick "gavenkoa")
 ;; (setq user-home-page "http://gavenkoa.users.sf.net")
 (message "%S" ob))))
 obarray))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "lisp, elisp")
+(eval-when 'compile (require 'chistory))
 (setq list-command-history-max 256)
 (add-hook 'emacs-lisp-mode-hook 'turn-on-eldoc-mode)
 (add-hook 'lisp-interaction-mode-hook 'turn-on-eldoc-mode)
 "List of text mode hooks.")
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "package, elpa")
+(eval-when 'compile (require 'package nil t))
 ;; (setq package-enable-at-startup t)
 (when (fboundp 'package-initialize)
 (package-initialize))
 (setq package-archives
 (message "appearance")
 ;; To maximize frame on full screen, not work with Windows Emacs 21.4.
 ;; And maked different height with Emacs 22.3 and 23.1.
 ;; (setq initial-frame-alist '((fullscreen . fullboth)))
+(eval-when 'compile (load-library "window"))
 (setq display-buffer-reuse-frames t)
 (defun my-maximize ()
 ;; Next code work with Emacs 21.4, 22.3, 23.1.
 ("EDT" "UTC-4, Eastern Daylight Time, New York")))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "shell, bash, Cygwin, MSYS")
+(eval-when 'compile (require 'shell))
 (defvar my-use-windows-shell nil
 "If t 'cmdproxy.exe' will be used as shell.
 Affect on \\[shell] like commands. If nil, 'sh' will be used." )
 (defun follow-cygwin-symlink ()
 (setq explicit-sh-args '("-i"))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "term")
+(eval-when 'compile (require 'term))
 (setq term-buffer-maximum-size (lsh 1 14))
 (setq term-scroll-show-maximum-output t)
 (my--eval-after-load term
 (setq-default proced-format 'medium)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "whitespaces")
+(eval-when 'compile (require 'whitespace))
 (setq default-indicate-empty-lines t)
 (setq default-indicate-buffer-boundaries 'left)
 ;; (setq-default show-trailing-whitespace t)
 ;; See also 'mode-require-final-newline'.
 (add-hook 'text-mode-hook (lambda () (setq require-final-newline nil)))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "server")
+(eval-when 'compile (require 'server))
 (when (and (>= emacs-major-version 22) (not (eq system-type 'cygwin)))
 (require 'server)
 (when (and (>= emacs-major-version 23) (equal window-system 'w32))
 (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.
 (when (or (= emacs-major-version 22) (not (eq (server-running-p server-name) t)))
 (server-start)) )
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "standart/general settings")
+(eval-when 'compile (require 'generic))
 ;; Try to speed things up, especially in VM.
 (setq gc-cons-threshold 2000000)
 ;; Default 'command-history' length too short (in Emacs 23.2 is 30).
 (global-set-key (kbd "M-s o") 'occur)
 )
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "grep, find")
+(eval-when 'compile (require 'grep))
 ;; -ls produce very noisy output:
 ;; (setq find-ls-option '("-ls" . ""))
 ;; So I use next expression, which work with GNU find, I replace %s with '0'
 ;; to avoid unnecessary sys calls and this make output aligned by column:
 (define-key dired-mode-map (kbd "`") 'my--dired-flag-tmp-files)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "ls-lisp, dired ls")
+(eval-when 'compile (require 'ls-lisp))
 ;; If non-nil - use 'insert-directory-program', which I dislike.
 (setq ls-lisp-use-insert-directory-program nil)
 (setq ls-lisp-ignore-case t)
 (setq ls-lisp-dirs-first t)
 (if (memq system-type '(windows-nt cygwin))
 (netbeans-open-file (buffer-file-name) (line-number-at-pos))
 (message "Current buffer wasnt' associated with a real file")))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "calendar")
+(eval-when 'compile (require 'calendar))
 ;; (setq mark-holidays-in-calendar t)
 ;; (setq all-christian-calendar-holidays t)
 ;; (setq calendar-date-display-form (quote ((format "%04s-%02d-%02d" year (string-to-int month) (string-to-int day)))))
 ;; (setq calendar-time-display-form (quote (24-hours ":" minutes (if time-zone " (") time-zone (if time-zone ")"))))
 :mode 'makefile-gmake-mode
 :other-modes '(makefile-mode)))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "man, woman")
+(eval-when 'compile (require 'woman))
 ;; Assume that cygwin-mount already activated.
 (when (featurep 'cygwin-mount)
 (let ( (path (expand-file-name "~")) )
 (when (string-match "\\([c-z]\\):/" path)
 (setq fortune-file "~/XXX")
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mail, message")
+(eval-when 'compile (require 'message))
 (setq mail-user-agent 'message-user-agent)
 (defun my-compose-mail ()
 (interactive)
 (compose-mail nil nil `(("Organization" . ,(getenv "ORGANIZATION")))))
 ;; (setq smtpmail-debug-verb t)
 ;; (setq smtpmail-debug-info t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "gnus, mh-e")
+(eval-when 'compile
+(require 'gnus)
+(require 'gnus-start)
+(require 'gnus-score))
 ;; (setq gnus-verbose 10)
 (setq gnus-site-init-file "~/.gnus.el")
 (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "rcirc")
+(eval-when 'compile (require 'rcirc))
 ;; Turn on logging everything to a special buffer, for debugging.
 ;; (setq rcirc-debug-flag t)
 (add-hook 'rcirc-mode-hook (lambda () (rcirc-track-minor-mode 1)))
 (setq rcirc-time-format "%H:%M ")
 (setq rcirc-default-nick user-nick)
 (setq rcirc-default-user-full-name user-full-name)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "erc")
+(eval-when 'compile (require 'erc))
 ;; (add-to-list 'erc-modules 'notify)
 ;; (setq erc-notify-list '(""))
 ;; Take off noise message.
 (set-face-foreground 'diff-removed-face "DarkRed")
 (set-face-background 'diff-refine-change "LightBlue1")))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")
+(eval-when 'compile (require 'vc-svn))
 ;; `-b' switch to ignore changes in whitespaces.
 ;; (setq vc-git-diff-switches "-b")
 ;; (setq vc-diff-switches "-b")
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "CEDET, semantic, SRecord")
 ;; For debug use 'semantic-debug-idle-function' and 'semantic-debug-idle-work-function'.
+(eval-when 'compile
+(require 'cedet nil t)
+(require 'semantic nil t)
+(require 'semantic/idle nil t)
+(require 'ede/linux nil t))
 (eval-and-compile
 (when (or
 (and (= emacs-major-version 23) (>= emacs-minor-version 2))
 (>= emacs-major-version 24) )
 (require 'cedet)
 (add-to-list 'auto-mode-alist '("\\.xcl\\'" . iar4-linker-config-mode))
 )
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "c-mode, cc-mode, c++-mode")
+(eval-when 'compile (require 'cc-mode))
 ;; Minor mode that highlights suspicious C and C++ constructions.
 (global-cwarn-mode 1)
 (setq c-echo-syntactic-information-p t)
 (add-to-list 'auto-mode-alist '("/requirements.txt\\'" . conf-mode))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "perl, cperl")
+(eval-when 'compile (require 'cperl-mode))
 ;; Use cperl instead perl mode.
 (mapc
 (lambda (pair)
 (if (eq (cdr pair) 'perl-mode)
 (setcdr pair 'cperl-mode)))
 (add-hook 'java-mode-hook #'auto-revert-mode)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "Pascal")
+(eval-when 'compile (require 'pascal))
 (setq
 pascal-indent-level 4
 pascal-case-indent 2
 pascal-auto-newline t
 pascal-tab-always-indent t
 (when (fboundp 'css-eldoc-enable)
 (css-eldoc-enable)))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "htmlize")
+(eval-when 'compile (require 'htmlize))
 (setq
 htmlize-html-charset "utf-8"
 htmlize-output-type 'inline-css
 htmlize-html-major-mode 'html-mode
 ))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "nxml")
+(eval-when 'compile (require 'nxml-mode))
 (setq nxml-sexp-element-flag t)
 (setq nxml-child-indent 2)
 (setq nxml-attribute-indent 4)
 (add-to-list 'auto-mode-alist '("\.pom\\'" . nxml-mode))
 ;(setq ps-print-header nil)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "SQL")
+(eval-when 'compile (require 'sql))
 (setq sql-password "")
 (add-to-list 'auto-mode-alist '("\\.plsql\\'" . sql-mode))
 ;; Disable placeholders substitution in Oracle SQLi by Emacs itself.
 ;; This enable "define" and "&var" syntax.
 ;; Note: if you kill unsaved file auto save file not deleted.
 (setq delete-auto-save-files t)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Save and restore my buffers every time.
+(eval-when 'compile (require 'desktop))
 (setq desktop-base-file-name ".emacs.desktop")
 (setq desktop-base-lock-name ".emacs.desktop.lock")
 (when (eq system-type 'cygwin)
 (setq desktop-base-file-name ".emacs.desktop-cygwin")

changeset 1374	313e428cf77c
parent 1373	74a192647349
child 1375	5959fa99a6f7