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

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

[elpa] externals/taxy 4fd9565 30/42: Fix: (deffy) Bookmarking deffy-file


From: ELPA Syncer
Subject: [elpa] externals/taxy 4fd9565 30/42: Fix: (deffy) Bookmarking deffy-files
Date: Wed, 15 Sep 2021 12:57:31 -0400 (EDT)

branch: externals/taxy
commit 4fd9565bab7b8a1f3fdf669e444774ba1730c737
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (deffy) Bookmarking deffy-files
---
 examples/deffy.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/examples/deffy.el b/examples/deffy.el
index c5f4295..83ac121 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -284,18 +284,17 @@ Interactively, with prefix, display in dedicated side 
window."
 
 (defvar bookmark-make-record-function)
 
-;; FIXME: Also save and use files list.
-
 (defun deffy--bookmark-make-record ()
   "Return a bookmark record for current Deffy buffer."
   (list (concat "Deffy: %s" deffy-directory)
        (cons 'directory deffy-directory)
+       (cons 'files deffy-files)
        (cons 'handler #'deffy--bookmark-handler)))
 
 (defun deffy--bookmark-handler (record)
   "Show Deffy buffer for bookmark RECORD."
-  (pcase-let* ((`(,_ . ,(map directory)) record))
-    (deffy :project (project-current nil directory))
+  (pcase-let* ((`(,_ . ,(map directory files)) record))
+    (deffy :files files :project (project-current nil directory))
     (current-buffer)))
 
 (provide 'deffy)



reply via email to

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