瀏覽代碼

Set the buffer to select interactively

Samuel W. Flint 7 年之前
父節點
當前提交
c83b24b0fa
共有 1 個文件被更改,包括 5 次插入1 次删除
  1. 5 1
      buffer-layers.el

+ 5 - 1
buffer-layers.el

@@ -169,7 +169,11 @@
 
 
 (defun buffer-layers-set-buffer-to-select (layer)
 (defun buffer-layers-set-buffer-to-select (layer)
   "Set the buffer to automatically select."
   "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)
 (defun buffer-layers-save (the-layer)
   "Save defined buffer layers."
   "Save defined buffer layers."