emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] scratch/hyperbole-merge-7.0.2b d4653c5 10/23: Require 2.0 of tree


From: Stefan Monnier
Subject: [elpa] scratch/hyperbole-merge-7.0.2b d4653c5 10/23: Require 2.0 of treemacs and use bury-buffer
Date: Tue, 5 Feb 2019 16:11:19 -0500 (EST)

branch: scratch/hyperbole-merge-7.0.2b
commit d4653c540b98b0aa13b5de9daf500ebe2a1e36cf
Author: Mats Lidell <address@hidden>
Commit: Mats Lidell <address@hidden>

    Require 2.0 of treemacs and use bury-buffer
    
    treemacs-toogle has been removed and replaced by using bury-buffer so
    use that too.
---
 hui-treemacs.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/hui-treemacs.el b/hui-treemacs.el
index ca947d8..7994a7a 100644
--- a/hui-treemacs.el
+++ b/hui-treemacs.el
@@ -19,8 +19,8 @@
 (eval-and-compile (require 'treemacs nil t))
 
 (progn ()
-  (unless (>= (string-to-number treemacs-version) 1.18)
-    (error "(hui-treemacs): Hyperbole requires Treemacs package version 1.18 
or greater")))
+  (unless (>= (string-to-number treemacs-version) 2.0)
+    (error "(hui-treemacs): Hyperbole requires Treemacs package version 2.0 or 
greater")))
 
 ;;; ************************************************************************
 ;;; smart-treemacs functions
@@ -51,10 +51,10 @@ If key is pressed:
   (interactive)
   (cond ((first-line-p)
         (if (eolp)
-            (treemacs-toggle)
+            (bury-buffer)
           (hact 'link-to-directory default-directory)))
        ((and (last-line-p) (eolp))
-        (treemacs-toggle))
+        (bury-buffer))
        ((eolp)
         (funcall (if assist-flag assist-key-eol-function 
action-key-eol-function)))
        (t (let ((over-icon (and (treemacs-current-button)
@@ -86,7 +86,7 @@ Suitable for use as a value of 
`action-key-modeline-buffer-id-function'."
              (treemacs-is-treemacs-window? action-key-depress-window)
            (string-match " Treemacs " (format-mode-line mode-line-format)))
          ;; Quit/hide treemacs.
-         (treemacs-toggle))
+         (bury-buffer))
         ;;
         ;; Treemacs is visible and displaying the same dir as
         ;; the default dir of the clicked on modeline.
@@ -95,7 +95,7 @@ Suitable for use as a value of 
`action-key-modeline-buffer-id-function'."
                             (with-current-buffer (treemacs-buffer-exists?)
                               default-directory)))
          ;; Quit/hide treemacs.
-         (treemacs-toggle))
+         (bury-buffer))
         ;;
         ;; Otherwise, invoke treemacs on the default dir of the clicked on 
modeline.
         (t (treemacs))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]