From 4146ee6b23ea1f3532b4ea40781a9f28b9ea2bda Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu@163.com>
Date: Wed, 4 Jan 2023 14:48:01 +0800
Subject: [PATCH] u

---
 eh-basic.el | 4 ++--
 eh-emms.el  | 2 +-
 eh-misc.el  | 2 +-
 eh-org.el   | 3 ++-
 4 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/eh-basic.el b/eh-basic.el
index 31ac5bd..3236781 100644
--- a/eh-basic.el
+++ b/eh-basic.el
@@ -44,7 +44,7 @@
 (defun eh-system-open (path &rest _args)
   (let ((path (expand-file-name path)))
     (cond ((string-equal system-type "windows-nt")
-           (w32-shell-execute "open" path))
+           (with-no-warnings (w32-shell-execute "open" path)))
           ((string-equal system-type "darwin")
            (concat "open " (shell-quote-argument path)))
           ((string-equal system-type "gnu/linux")
@@ -108,7 +108,7 @@
 ;; ** 让全角空格不会显示下划线
 (setq nobreak-char-display nil)
 ;; (setq eh-space (propertize " 　" 'face '(:weight 'bold)))
-(setq eh-space " 　")
+(defvar eh-space " 　")
 
 ;; ** 设置 mode-line
 ;; 在 mode-line 最后追加一个半角空格，一个全角空格，防止因为字体高度原
diff --git a/eh-emms.el b/eh-emms.el
index c21c6b4..af1d08c 100644
--- a/eh-emms.el
+++ b/eh-emms.el
@@ -93,7 +93,7 @@
 (add-hook 'emms-player-started-hook #'emms-show)
 
 ;; 不在 mode-line 中显示播放信息
-(emms-mode-line -1)
+(emms-mode-line-mode -1)
 
 ;; 如何显示 track
 (setq emms-track-description-function
diff --git a/eh-misc.el b/eh-misc.el
index e939282..5f459e0 100644
--- a/eh-misc.el
+++ b/eh-misc.el
@@ -55,7 +55,7 @@
         (new-face (intern (format "eat-term-color-%s" new-color-number))))
     (setf (eat-term-parameter eat--terminal old-face) new-face)))
 
-(defun eh-eat--eshell-adjust-make-process-args (_ command args)
+(defun eh-eat--eshell-adjust-make-process-args (_ command _args)
   (when eat--terminal
     (eh-eat--set-cmd nil command)))
 
diff --git a/eh-org.el b/eh-org.el
index c9389cc..cd2f6b9 100644
--- a/eh-org.el
+++ b/eh-org.el
@@ -38,6 +38,7 @@
 ;; ** org
 (require 'org)
 (require 'org-attach)
+(require 'org-archive)
 
 (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
 (add-to-list 'auto-mode-alist '("\\.org_archive$" . org-mode))
@@ -132,7 +133,7 @@
     (org-id-get-create)
     (search-forward ":ID:")
     (end-of-line)
-    (org-show-all '(drawers))))
+    (org-fold-show-all '(drawers))))
 
 (setq org-insert-heading-respect-content nil)
 (setq org-log-done t)
-- 
2.11.4.GIT