# HG changeset patch
# User Oleksandr Gavenko <gavenkoa@gmail.com>
# Date 1609619926 -7200
# Node ID 6a740def74e87b9f92ec309bcea1c58575e27908
# Parent  77fcd3f63d60f51b6f30a6d90be3b11825575c30
Fixed error 'eval-when is not defined' after switching to cl-lib.

diff -r 77fcd3f63d60 -r 6a740def74e8 .emacs-my
--- a/.emacs-my	Sat Jan 02 21:22:00 2021 +0200
+++ b/.emacs-my	Sat Jan 02 22:38:46 2021 +0200
@@ -86,7 +86,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "revert buffer, auto-revert")
 
-(eval-when 'compile (require 'autorevert))
+(cl-eval-when (compile) (require 'autorevert))
 
 (global-set-key [f5]    'revert-buffer)
 (setq revert-without-query (quote (".*")))
@@ -147,7 +147,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "user info")
 
-(eval-when 'compile (require 'info))
+(cl-eval-when (compile) (require 'info))
 
 ;; Set in ~/.emacs.d/.emacs-auth:
 ;; (setq user-full-name "Oleksandr Gavenko")
@@ -225,7 +225,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "lisp, elisp")
 
-(eval-when 'compile (require 'chistory))
+(cl-eval-when (compile) (require 'chistory))
 
 (setq list-command-history-max 256)
 
@@ -366,7 +366,7 @@
 ;; And maked different height with Emacs 22.3 and 23.1.
 ;; (setq initial-frame-alist '((fullscreen . fullboth)))
 
-(eval-when 'compile (load-library "window"))
+(cl-eval-when (compile) (load-library "window"))
 
 (setq display-buffer-reuse-frames t)
 
@@ -541,7 +541,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "shell, bash, Cygwin, MSYS")
 
-(eval-when 'compile (require 'shell))
+(cl-eval-when (compile) (require 'shell))
 
 (defvar my-use-windows-shell nil
   "If t 'cmdproxy.exe' will be used as shell.
@@ -643,7 +643,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "term")
 
-(eval-when 'compile (require 'term))
+(cl-eval-when (compile) (require 'term))
 
 (when (eq system-type 'cygwin)
   (setq explicit-shell-file-name "bash"))
@@ -681,7 +681,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "whitespaces")
 
-(eval-when 'compile (require 'whitespace))
+(cl-eval-when (compile) (require 'whitespace))
 
 (setq-default indicate-empty-lines t)
 (setq-default indicate-buffer-boundaries 'left)
@@ -709,7 +709,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "server")
 
-(eval-when 'compile (require 'server))
+(cl-eval-when (compile) (require 'server))
 
 (when (equal window-system 'w32)
   ;; including cygwin here as socket in /tmp directory is a subject of cleanup...
@@ -878,7 +878,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "grep, find, ack, ag")
 
-(eval-when 'compile (require 'find-dired))
+(cl-eval-when (compile) (require 'find-dired))
 
 ;; -ls produce very noisy output:
 ;; (setq find-ls-option '("-ls" . ""))
@@ -886,7 +886,7 @@
 ;; to avoid unnecessary sys calls and this make output aligned by column:
 (setq find-ls-option '("-printf ' -rw-rw-rw- %9s %AY-%Am-%Ad %AH:%AM %p\n'" . ""))
 
-(eval-when 'compile (require 'grep))
+(cl-eval-when (compile) (require 'grep))
 
 ;; Do not set t because some grep do not has --color options.
 (setq grep-highlight-matches nil)
@@ -1159,7 +1159,7 @@
 ;; (add-hook 'find-file-hook #'make-frame-visible)
 
 (require 'ffap)
-(eval-when 'compile (require 'ido nil t))
+(cl-eval-when (compile) (require 'ido nil t))
 
 ;; Ido makes appropriate binding.
 ;(ffap-bindings)
@@ -1280,7 +1280,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "helm")
 
-(eval-when 'compile
+(cl-eval-when (compile)
   (require 'helm-locate nil t))
 
 (setq helm-locate-command "locate %s -e %s")
@@ -1583,7 +1583,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "calendar")
 
-(eval-when 'compile (require 'calendar))
+(cl-eval-when (compile) (require 'calendar))
 
 ;; (setq mark-holidays-in-calendar t)
 ;; (setq all-christian-calendar-holidays t)
@@ -1814,7 +1814,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "man, woman")
 
-(eval-when 'compile (require 'woman))
+(cl-eval-when (compile) (require 'woman))
 
 (when (featurep 'cygwin-mount)
   (let ( (path (expand-file-name "~")) )
@@ -1881,7 +1881,7 @@
 (require 'org)
 (require 'org-capture nil t)
 
-(eval-when 'compile
+(cl-eval-when (compile)
   (require 'org-agenda)
   (require 'org-archive))
 
@@ -2033,7 +2033,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "mail, message")
 
-(eval-when 'compile (require 'message))
+(cl-eval-when (compile) (require 'message))
 
 (setq mail-user-agent 'message-user-agent)
 
@@ -2083,7 +2083,7 @@
    (lambda (ch) (or (when (string-match my--message-safe-filename-regex (char-to-string ch)) (char-to-string ch)) "-"))
    filename "") )
 
-(eval-when 'compile (require 'gnus))
+(cl-eval-when (compile) (require 'gnus))
 
 (defun my--message-save ()
   "Store message in `gnus-article-save-directory' after
@@ -2124,7 +2124,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "gnus, mh-e")
 
-(eval-when 'compile
+(cl-eval-when (compile)
   (require 'gnus)
   (require 'gnus-agent)
   (require 'gnus-start)
@@ -2225,7 +2225,7 @@
 
 (setq mm-text-html-renderer 'shr)
 
-(eval-when-compile
+(cl-eval-when (compile)
   (ignore-errors
     ;; w3m-anchor is macros in newer Emacs, need definition during byte-compilation.
     (require 'w3m-util)))
@@ -2474,7 +2474,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "jabber")
 
-(eval-when 'compile (require 'jabber nil t))
+(cl-eval-when (compile) (require 'jabber nil t))
 
 (setq jabber-history-dir (concat user-emacs-directory ".jabber"))
 
@@ -2544,7 +2544,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "erc")
 
-(eval-when 'compile
+(cl-eval-when (compile)
   (require 'erc)
   (require 'erc-log))
 
@@ -2621,7 +2621,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "diff, patch, ediff, emerge")
 
-(eval-when 'compile (require 'ediff))
+(cl-eval-when (compile) (require 'ediff))
 
 (setq diff-switches "-u")
 
@@ -2649,7 +2649,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")
 
-(eval-when 'compile
+(cl-eval-when (compile)
   (require 'vc)
   (require 'vc-hooks)
   (require 'vc-annotate)
@@ -2754,7 +2754,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "indenting")
 
-(eval-when 'compile (require 'cc-mode))
+(cl-eval-when (compile) (require 'cc-mode))
 
 (setq standard-indent 4)
 (setq c-basic-offset 4)
@@ -2836,7 +2836,7 @@
 (message "gdb, gud")
 ;; Use C-x SPACE to set breakpoint in source file.
 
-(eval-when 'compile (require 'gdb-mi nil t))
+(cl-eval-when (compile) (require 'gdb-mi nil t))
 
 (setq gdb-show-main t)                  ; See also (gdb-many-windows)
 
@@ -2956,7 +2956,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "c-mode, cc-mode, c++-mode")
 
-(eval-when 'compile (require 'cc-mode))
+(cl-eval-when (compile) (require 'cc-mode))
 
 ;; Minor mode that highlights suspicious C and C++ constructions.
 (global-cwarn-mode 1)
@@ -3038,7 +3038,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "python, python-mode")
 
-(eval-when 'compile
+(cl-eval-when (compile)
   (require 'python))
 
 (setq python-shell-interpreter "python3")
@@ -3260,7 +3260,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "perl, cperl")
 
-(eval-when 'compile (require 'cperl-mode))
+(cl-eval-when (compile) (require 'cperl-mode))
 
 ;; Use cperl instead perl mode.
 (mapc
@@ -3407,7 +3407,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "Pascal")
 
-(eval-when 'compile (require 'pascal))
+(cl-eval-when (compile) (require 'pascal))
 
 (setq
  pascal-indent-level 4
@@ -3438,7 +3438,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "css")
 
-(eval-when 'compile (require 'css-mode))
+(cl-eval-when (compile) (require 'css-mode))
 
 (setq css-indent-offset 4)
 
@@ -3451,7 +3451,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "htmlize")
 
-(eval-when 'compile (require 'htmlize nil t))
+(cl-eval-when (compile) (require 'htmlize nil t))
 
 (setq
  htmlize-html-charset "utf-8"
@@ -3536,7 +3536,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "nxml")
 
-(eval-when 'compile (require 'nxml-mode))
+(cl-eval-when (compile) (require 'nxml-mode))
 
 (setq nxml-sexp-element-flag t)
 (setq nxml-child-indent 2)
@@ -3600,7 +3600,7 @@
 (message "web-mode")
 
 (require 'web-mode nil t)
-(eval-when 'compile (require 'web-mode nil t))
+(cl-eval-when (compile) (require 'web-mode nil t))
 
 (setq web-mode-markup-indent-offset 2
       web-mode-css-indent-offset 2
@@ -3653,14 +3653,14 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "sgml")
 
-(eval-when 'compile (require 'sgml-mode))
+(cl-eval-when (compile) (require 'sgml-mode))
 
 (setq sgml-basic-offset 4)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "psgml")
 
-(eval-when 'compile (require 'psgml nil t))
+(cl-eval-when (compile) (require 'psgml nil t))
 
 (defvar my-html-template
       '("html"
@@ -3708,7 +3708,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "emmet")
 
-(eval-when (compile) (require 'emmet-mode nil t))
+(cl-eval-when (compile) (require 'emmet-mode nil t))
 
 (when (featurep 'emmet-mode)
   (add-hook 'sgml-mode-hook 'emmet-mode))
@@ -3722,7 +3722,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "sh, bash")
 
-(eval-when 'compile (require 'sh-script))
+(cl-eval-when (compile) (require 'sh-script))
 
 (setq sh-basic-offset 2)
 
@@ -3739,7 +3739,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "pg, Proof General")
 
-(eval-when 'compile (require 'proof nil t))
+(cl-eval-when (compile) (require 'proof nil t))
 
 (setq proof-splash-enable nil)
 ;; (setq proof-toolbar-enable nil)
@@ -3783,7 +3783,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "SQL")
 
-(eval-when 'compile (require 'sql))
+(cl-eval-when (compile) (require 'sql))
 
 (setq sql-password "")
 (add-to-list 'auto-mode-alist '("\\.plsql\\'" . sql-mode))