Elisp define-minor-mode 今天遇到了一个奇怪的问题

stardiviner · 2021 年1 月 19 日 11:51

github.com/emacs-eaf/emacs-application-framework

EAF error on `load-theme`

opened 12:25AM - 19 Jan 21 UTC

closed 12:38AM - 19 Jan 21 UTC

**Describe the bug** I got problem when I evaluate `(load-theme 'leuven t)`. … ``` Debugger entered--Lisp error: (void-function t) (t) eval((t)) custom-theme-recalc-variable(org-link-beautify-mode) #f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs. To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode -0x15aff21b8feea38f>)) #<bytecode -0x27dfee714eca2b6>)(user) ad-Advice-enable-theme(#f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs. To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode -0x15aff21b8feea38f>)) #<bytecode -0x27dfee714eca2b6>) user) apply(ad-Advice-enable-theme #f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs. To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode -0x15aff21b8feea38f>)) #<bytecode -0x27dfee714eca2b6>) user) enable-theme(user) #f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs. To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode -0x15aff21b8feea38f>)) #<bytecode -0x27dfee714eca2b6>)(leuven) ad-Advice-enable-theme(#f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs. To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode -0x15aff21b8feea38f>)) #<bytecode -0x27dfee714eca2b6>) leuven) apply(ad-Advice-enable-theme #f(compiled-function (theme) "Reenable all variable and face settings defined by THEME.\nTHEME should be either `user', or a theme loaded via `load-theme'.\n\nAfter this function completes, THEME will have the highest\nprecedence (after `user') among enabled themes.\n\nNote that any already-enabled themes remain enabled after this\nfunction runs. To disable other themes, use `disable-theme'." (interactive #f(compiled-function () #<bytecode -0x15aff21b8feea38f>)) #<bytecode -0x27dfee714eca2b6>) leuven) enable-theme(leuven) #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>)(leuven t) apply(#f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (leuven t)) #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme))))(leuven t) apply(#f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (leuven t)) #f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep 'solaire-mode) (progn (solaire-mode--swap-bg-faces-maybe)))))))(leuven t) apply(#f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep 'solaire-mode) (progn (solaire-mode--swap-bg-faces-maybe))))))) leuven t) load-theme-hook-wrapper(#f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep 'solaire-mode) (progn (solaire-mode--swap-bg-faces-maybe))))))) leuven t) apply(load-theme-hook-wrapper #f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep 'solaire-mode) (progn (solaire-mode--swap-bg-faces-maybe))))))) (leuven t)) #f(advice-wrapper :around #f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep 'solaire-mode) (progn (solaire-mode--swap-bg-faces-maybe))))))) load-theme-hook-wrapper)(leuven t) apply(#f(advice-wrapper :around #f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep ...) (progn ...)))))) load-theme-hook-wrapper) leuven t) eaf-monitor-load-theme(#f(advice-wrapper :around #f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep ...) (progn ...)))))) load-theme-hook-wrapper) leuven t) apply(eaf-monitor-load-theme #f(advice-wrapper :around #f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep ...) (progn ...)))))) load-theme-hook-wrapper) (leuven t)) #f(advice-wrapper :around #f(advice-wrapper :around #f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if (featurep 'solaire-mode) (progn (solaire-mode--swap-bg-faces-maybe))))))) load-theme-hook-wrapper) eaf-monitor-load-theme)(leuven t) apply(#f(advice-wrapper :around #f(advice-wrapper :around #f(advice-wrapper :after #f(advice-wrapper :before #f(compiled-function (theme &optional no-confirm no-enable) "Load Custom theme named THEME from its file and possibly enable it.\nThe theme file is named THEME-theme.el, in one of the directories\nspecified by `custom-theme-load-path'.\n\nIf the theme is not considered safe by `custom-safe-themes',\nprompt the user for confirmation before loading it. But if\noptional arg NO-CONFIRM is non-nil, load the theme without\nprompting.\n\nNormally, this function also enables THEME. If optional arg\nNO-ENABLE is non-nil, load the theme but don't enable it, unless\nthe theme was already enabled.\n\nNote that enabling THEME does not disable any other\nalready-enabled themes. If THEME is enabled, it has the highest\nprecedence (after `user') among enabled themes. To disable other\nthemes, use `disable-theme'.\n\nThis function is normally called through Customize when setting\n`custom-enabled-themes'. If used directly in your init file, it\nshould be called with a non-nil NO-CONFIRM argument, or after\n`custom-safe-themes' has been loaded.\n\nReturn t if THEME was successfully loaded, nil otherwise." (interactive #f(compiled-function () #<bytecode 0x155aada06ef71d85>)) #<bytecode 0xf2e00964332eea3>) (lambda (theme &optional _ no-enable) (if no-enable nil (setq solaire-mode--current-theme theme)))) (lambda (theme &rest _) (if (memq theme custom-enabled-themes) (progn (setq solaire-mode--bg-swapped nil) (if ... ...))))) load-theme-hook-wrapper) eaf-monitor-load-theme) (leuven t)) load-theme(leuven t) (progn (load-theme 'leuven t) t) (condition-case err (progn (load-theme 'leuven t) t) ((debug error) (funcall use-package--warning596 :config err))) (prog1 (condition-case err (progn (load-theme 'leuven t) t) ((debug error) (funcall use-package--warning596 :config err))) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package leuven-theme" elapsed) (message "%s...done" "Configuring package leuven-theme")))) (let ((now (current-time))) (message "%s..." "Configuring package leuven-theme") (prog1 (condition-case err (progn (load-theme 'leuven t) t) ((debug error) (funcall use-package--warning596 :config err))) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package leuven-theme" elapsed) (message "%s...done" "Configuring package leuven-theme"))))) (if (not (require 'leuven-theme nil t)) (display-warning 'use-package (format "Cannot load %s" 'leuven-theme) :error) (let ((now (current-time))) (message "%s..." "Configuring package leuven-theme") (prog1 (condition-case err (progn (load-theme 'leuven t) t) ((debug error) (funcall use-package--warning596 :config err))) (let ((elapsed (float-time (time-subtract ... now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package leuven-theme" elapsed) (message "%s...done" "Configuring package leuven-theme")))))) (prog1 (if (not (require 'leuven-theme nil t)) (display-warning 'use-package (format "Cannot load %s" 'leuven-theme) :error) (let ((now (current-time))) (message "%s..." "Configuring package leuven-theme") (prog1 (condition-case err (progn (load-theme 'leuven t) t) ((debug error) (funcall use-package--warning596 :config err))) (let ((elapsed (float-time ...))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package leuven-theme" elapsed) (message "%s...done" "Configuring package leuven-theme")))))) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package leuven-theme" elapsed) (message "%s...done" "Loading package leuven-theme")))) (let ((now (current-time))) (message "%s..." "Loading package leuven-theme") (prog1 (if (not (require 'leuven-theme nil t)) (display-warning 'use-package (format "Cannot load %s" 'leuven-theme) :error) (let ((now (current-time))) (message "%s..." "Configuring package leuven-theme") (prog1 (condition-case err (progn (load-theme ... t) t) ((debug error) (funcall use-package--warning596 :config err))) (let ((elapsed ...)) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Configuring package leuven-theme" elapsed) (message "%s...done" "Configuring package leuven-theme")))))) (let ((elapsed (float-time (time-subtract (current-time) now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package leuven-theme" elapsed) (message "%s...done" "Loading package leuven-theme"))))) (condition-case err (let ((now (current-time))) (message "%s..." "Loading package leuven-theme") (prog1 (if (not (require 'leuven-theme nil t)) (display-warning 'use-package (format "Cannot load %s" 'leuven-theme) :error) (let ((now (current-time))) (message "%s..." "Configuring package leuven-theme") (prog1 (condition-case err (progn ... t) (... ...)) (let (...) (if ... ... ...))))) (let ((elapsed (float-time (time-subtract ... now)))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package leuven-theme" elapsed) (message "%s...done" "Loading package leuven-theme"))))) ((debug error) (funcall use-package--warning596 :catch err))) (progn '("~/Code/Emacs/company-arduino" "~/Code/Emacs/org-mode/contrib/lisp/" "~/Code/Emacs/ob-html-chrome" "~/Code/Emacs/hl-sexp" "~/Code/Emacs/ffmpeg.el" "~/Code/Emacs/mu/mu4e/" "~/Code/Emacs/youtube-dl" "~/Code/Emacs/aria2" "~/Code/Emacs/ob-translate" "~/Code/Emacs/org-password-manager" "~/Code/Emacs/helm-org-contacts" "~/Code/Emacs/org-pandoc-import" "~/Code/Emacs/ob-async" "~/Code/Emacs/org-extra-link-types" "/home/stardiviner/Code/Emacs/emacs-application-fra..." "/home/stardiviner/Code/Emacs/emacs-application-fra..." "~/Code/Emacs/emacs-application-framework/" "~/Code/Emacs/one-themes" "~/Code/Emacs/leuven-theme/" "~/Code/Emacs/org-mode/contrib/lisp" "~/Code/Emacs/org-mode/lisp/" "/home/stardiviner/.config/emacs/init" "/usr/share/emacs/site-lisp/" "/home/stardiviner/.config/emacs/elpa/ace-jump-mode..." "/home/stardiviner/.config/emacs/elpa/aggressive-fi..." "/home/stardiviner/.config/emacs/elpa/aggressive-in..." "/home/stardiviner/.config/emacs/elpa/aio-20200610...." "/home/stardiviner/.config/emacs/elpa/all-the-icons..." "/home/stardiviner/.config/emacs/elpa/all-the-icons..." "/home/stardiviner/.config/emacs/elpa/ample-regexps..." "/home/stardiviner/.config/emacs/elpa/amread-mode-2..." "/home/stardiviner/.config/emacs/elpa/anki-20200920..." "/home/stardiviner/.config/emacs/elpa/anzu-20201203..." "/home/stardiviner/.config/emacs/elpa/arduino-cli-m..." "/home/stardiviner/.config/emacs/elpa/aria2-2020082..." "/home/stardiviner/.config/emacs/elpa/async-await-2..." "/home/stardiviner/.config/emacs/elpa/atomic-chrome..." "/home/stardiviner/.config/emacs/elpa/auth-source-x..." "/home/stardiviner/.config/emacs/elpa/auto-scroll-m..." "/home/stardiviner/.config/emacs/elpa/ayu-theme-202..." "/home/stardiviner/.config/emacs/elpa/banner-commen..." "/home/stardiviner/.config/emacs/elpa/basic-mode-20..." "/home/stardiviner/.config/emacs/elpa/benchmark-ini..." "/home/stardiviner/.config/emacs/elpa/binder-202012..." "/home/stardiviner/.config/emacs/elpa/blimp-2018090..." "/home/stardiviner/.config/emacs/elpa/blockdiag-mod..." "/home/stardiviner/.config/emacs/elpa/bluetooth-0.2" "/home/stardiviner/.config/emacs/elpa/bm-20201116.2..." "/home/stardiviner/.config/emacs/elpa/boxquote-2020..." "/home/stardiviner/.config/emacs/elpa/bpr-20180220...." ...) (defvar use-package--warning596 #'(lambda (keyword err) (let ((msg (format "%s/%s: %s" ... keyword ...))) (display-warning 'use-package msg :error)))) (condition-case err (let ((now (current-time))) (message "%s..." "Loading package leuven-theme") (prog1 (if (not (require 'leuven-theme nil t)) (display-warning 'use-package (format "Cannot load %s" 'leuven-theme) :error) (let ((now ...)) (message "%s..." "Configuring package leuven-theme") (prog1 (condition-case err ... ...) (let ... ...)))) (let ((elapsed (float-time ...))) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package leuven-theme" elapsed) (message "%s...done" "Loading package leuven-theme"))))) ((debug error) (funcall use-package--warning596 :catch err)))) eval((progn '("~/Code/Emacs/company-arduino" "~/Code/Emacs/org-mode/contrib/lisp/" "~/Code/Emacs/ob-html-chrome" "~/Code/Emacs/hl-sexp" "~/Code/Emacs/ffmpeg.el" "~/Code/Emacs/mu/mu4e/" "~/Code/Emacs/youtube-dl" "~/Code/Emacs/aria2" "~/Code/Emacs/ob-translate" "~/Code/Emacs/org-password-manager" "~/Code/Emacs/helm-org-contacts" "~/Code/Emacs/org-pandoc-import" "~/Code/Emacs/ob-async" "~/Code/Emacs/org-extra-link-types" "/home/stardiviner/Code/Emacs/emacs-application-fra..." "/home/stardiviner/Code/Emacs/emacs-application-fra..." "~/Code/Emacs/emacs-application-framework/" "~/Code/Emacs/one-themes" "~/Code/Emacs/leuven-theme/" "~/Code/Emacs/org-mode/contrib/lisp" "~/Code/Emacs/org-mode/lisp/" "/home/stardiviner/.config/emacs/init" "/usr/share/emacs/site-lisp/" "/home/stardiviner/.config/emacs/elpa/ace-jump-mode..." "/home/stardiviner/.config/emacs/elpa/aggressive-fi..." "/home/stardiviner/.config/emacs/elpa/aggressive-in..." "/home/stardiviner/.config/emacs/elpa/aio-20200610...." "/home/stardiviner/.config/emacs/elpa/all-the-icons..." "/home/stardiviner/.config/emacs/elpa/all-the-icons..." "/home/stardiviner/.config/emacs/elpa/ample-regexps..." "/home/stardiviner/.config/emacs/elpa/amread-mode-2..." "/home/stardiviner/.config/emacs/elpa/anki-20200920..." "/home/stardiviner/.config/emacs/elpa/anzu-20201203..." "/home/stardiviner/.config/emacs/elpa/arduino-cli-m..." "/home/stardiviner/.config/emacs/elpa/aria2-2020082..." "/home/stardiviner/.config/emacs/elpa/async-await-2..." "/home/stardiviner/.config/emacs/elpa/atomic-chrome..." "/home/stardiviner/.config/emacs/elpa/auth-source-x..." "/home/stardiviner/.config/emacs/elpa/auto-scroll-m..." "/home/stardiviner/.config/emacs/elpa/ayu-theme-202..." "/home/stardiviner/.config/emacs/elpa/banner-commen..." "/home/stardiviner/.config/emacs/elpa/basic-mode-20..." "/home/stardiviner/.config/emacs/elpa/benchmark-ini..." "/home/stardiviner/.config/emacs/elpa/binder-202012..." "/home/stardiviner/.config/emacs/elpa/blimp-2018090..." "/home/stardiviner/.config/emacs/elpa/blockdiag-mod..." "/home/stardiviner/.config/emacs/elpa/bluetooth-0.2" "/home/stardiviner/.config/emacs/elpa/bm-20201116.2..." "/home/stardiviner/.config/emacs/elpa/boxquote-2020..." "/home/stardiviner/.config/emacs/elpa/bpr-20180220...." ...) (defvar use-package--warning596 #'(lambda (keyword err) (let ((msg ...)) (display-warning 'use-package msg :error)))) (condition-case err (let ((now (current-time))) (message "%s..." "Loading package leuven-theme") (prog1 (if (not (require ... nil t)) (display-warning 'use-package (format "Cannot load %s" ...) :error) (let (...) (message "%s..." "Configuring package leuven-theme") (prog1 ... ...))) (let ((elapsed ...)) (if (> elapsed 0.1) (message "%s...done (%.3fs)" "Loading package leuven-theme" elapsed) (message "%s...done" "Loading package leuven-theme"))))) ((debug error) (funcall use-package--warning596 :catch err)))) nil) elisp--eval-last-sexp(nil) eval-last-sexp(nil) eros-eval-last-sexp(nil) funcall-interactively(eros-eval-last-sexp nil) call-interactively(eros-eval-last-sexp nil nil) command-execute(eros-eval-last-sexp) ``` The problem is not on `org-link-beautify-mode`, I disabled it, and restart Emacs, the problem persistent. **To Reproduce** **Expected behavior** **Versions (please complete the following info):** - Distro and DE/WM: Arc Linux, KDE - Versions of Dependencies: - M-x emacs-version: `GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.24, cairo version 1.17.4) of 2021-01-14` - EAF version: latest commit `2ae7151: Rename` **Screenshots** **Additional context**

问题的过程在上面链接里面，修复也在最后，并且是我自己修复的。但是我也不知道为啥有用。真是奇怪的地方。不知道有没有elisp高手来回答下我这个疑惑。感谢

Regards,

twlz0ne · 2021 年1 月 19 日 14:57

跟关键字顺序应该没有关系。

两种写法用 macroexpand 展开之后是完全一样的。

是不是改了别的地方顺便修复了问题。最好提供一份能重现问题的一键运行最小配置。

stardiviner · 2021 年1 月 20 日 03:46

没有，真的只改了这个地方。有可能和我的advice有关，但是我也comment过我的advice,还是有一样的问题。backstrace里面出现的所有函数涉及的地方我都comment掉测试过。一样的问题。唯一改了这里就好了。真是太奇怪了。看backstrace能发现，里面调用 enable-theme(leuven) 之后调用了 enable-theme(user) . 这是默认调用这个主题么？不清楚。然后调用了 custom-theme-recalc-variable(org-link-beautify-mode) 为啥要调用这个插件呢？这个插件没有和custom-theme相关的代码。我edebug调试发现报错是由于传入了一个参数是 (t) 于是，去看，现在忘了当时为啥联想到修改这个地方。修改了之后，重启Emacs,问题好了。我用这个插件也不少时间了。以前都没出现过这个问题。。。太神奇了。