Aß
Size: a a a
Aß
Aß
Aß
Aß
Z
жмет файлы, c
собирает в тар и жметAß
dired-do-compress
и dired-do-compress-to
соответственноa
Z
жмет файлы, c
собирает в тар и жметc
.a
(defmacro do-something ()
`(eval-and-compile
(defvar font-lock-added nil)
(let (list)
(collect strings into list)
(unless font-lock-added
(font-lock-add-keywords
'emacs-lisp-mode
`((,(concat "(" (eval-when-compile (regexp-opt list t)) "\\_>")
1 font-lock-warning-face)))
(setf font-lock-added t)))))
(do-something)
eval-when-compile
не видит list
.a
eval-when-compile
, но он был там раньше в ситуации где все работало, был глубоко, и я не заметил, что он перекочевал, и ошибка была удивительной.Aß
Aß
Aß
a
eval-when-compile
следует, что он должен быть эквивалентен progn
, а это не так.A
A
A
Е
A
A
A
YM