--- 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))