Browse Source

Set the buffer to select interactively

Samuel W. Flint 7 years ago
parent
commit
c83b24b0fa
1 changed files with 5 additions and 1 deletions
  1. 5 1
      buffer-layers.el

+ 5 - 1
buffer-layers.el

@@ -169,7 +169,11 @@
 
 (defun buffer-layers-set-buffer-to-select (layer)
   "Set the buffer to automatically select."
-  (interactive (list (completing-read "Layer: " *buffer-layers* nil t))))
+  (interactive (list (intern (completing-read "Layer: " *buffer-layers* nil t))))
+  (let* ((layer (buffer-layer--get-buffer-layer-definition layer))
+         (files (buffer-layer-files layer)))
+    (setf (buffer-layer-select layer)
+          (completing-read "File: " files nil t))))
 
 (defun buffer-layers-save (the-layer)
   "Save defined buffer layers."