elisp - 改进 Elisp 条件表达式

Question

以下伪代码的elisp代码

if "the emacs version is less than 23.1.x"
do
  something
else
  something-else

写成

(if (or (< emacs-major-version 23)
        (and (= emacs-major-version 23)
             (<= emacs-minor-version 1)))
    (setq color-theme-is-global t)
  (color-theme-initialize))

如何优化上面的代码，使“emacs-major-version”不被引用两次。

Answer 1

不需要，有 version<= 和 emacs-version

(if (version<= emacs-version "23.1")
    (setq color-theme-is-global t)
  (color-theme-initialize))