From: Peng Li <seudut@gmail.com>
Date: Sat, 2 Jul 2016 15:44:37 +0000 (+0800)
Subject: emacs - fix bug emacs here
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;h=162676d5765d174bfa2960aa5b643b86c8f41b91;p=dotfiles.git

emacs - fix bug emacs here
---

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 1830246..9a2ec74 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -1215,11 +1215,11 @@ Toggle an eshell in split window below, refer [[http://www.howardism.org/Technic
     "Check if current windows list has a eshell buffer, and return the window"
     (interactive)
     (let ((ret nil))
-      (dolist (window (window-list))
-        (let ((modename (with-current-buffer (window-buffer window)
-                          major-mode)))
-          (if (equal modename 'eshell-mode)
-              (setq ret window))))
+      (walk-windows (lambda (window)
+                      (if (equal (with-current-buffer (window-buffer window) major-mode)
+                                 'eshell-mode)
+                          (setq ret window)))
+                    nil nil)
       ret))
 
   (defun sd/toggle-eshell-here ()
@@ -1227,7 +1227,10 @@ Toggle an eshell in split window below, refer [[http://www.howardism.org/Technic
     (interactive)
     (if (sd/window-has-eshell)
         (if (equal major-mode 'eshell-mode)
-            (delete-window)
+            (progn
+              (if (equal (length (window-list)) 1)
+                  (mode-line-other-buffer)
+                (delete-window)))
           (select-window (sd/window-has-eshell)))
       (progn
         (let ((dir default-directory))