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

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

[elpa] master 72dcca5 082/348: ivy.el (ivy-push-view): Work properly for


From: Oleh Krehel
Subject: [elpa] master 72dcca5 082/348: ivy.el (ivy-push-view): Work properly for dired-mode
Date: Sat, 8 Apr 2017 11:03:32 -0400 (EDT)

branch: master
commit 72dcca5d265ee7538f445be881c8541247767a89
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    ivy.el (ivy-push-view): Work properly for dired-mode
---
 ivy.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ivy.el b/ivy.el
index 9530cb5..10505cc 100644
--- a/ivy.el
+++ b/ivy.el
@@ -2807,9 +2807,12 @@ Use `ivy-pop-view' to delete any item from `ivy-views'."
                                          (ft (nth 2 tr))
                                          (ft (nth 3 tr))))
                                (with-current-buffer (window-buffer tr)
-                                 (if (buffer-file-name)
-                                     (list 'file (buffer-file-name) (point))
-                                   (list 'buffer (buffer-name) (point)))))))
+                                 (cond ((buffer-file-name)
+                                        (list 'file (buffer-file-name) 
(point)))
+                                       ((eq major-mode 'dired-mode)
+                                        (list 'file default-directory (point)))
+                                       (t
+                                        (list 'buffer (buffer-name) 
(point))))))))
                  (ft (car (window-tree)))))
          (view-name (ivy-read "Name view: " nil
                               :initial-input (ivy-default-view-name))))



reply via email to

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