We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents f750fd6 + 4bbd65b commit cdb5531Copy full SHA for cdb5531
extensions/vi-mode/ex-command.lisp
@@ -10,15 +10,20 @@
10
:execute-set-command)
11
(:import-from :lem-vi-mode/utils
12
:change-directory*
13
- :expand-filename-modifiers))
+ :expand-filename-modifiers)
14
+ (:export :*edit-buffer-directory*))
15
(in-package :lem-vi-mode/ex-command)
16
17
+(defvar *edit-buffer-directory* nil)
18
+
19
(defun ex-edit (filename force)
20
(if (string= filename "")
21
(lem:revert-buffer force)
22
(with-jumplist
23
(lem:find-file (merge-pathnames (expand-filename-modifiers filename)
- (uiop:getcwd))))))
24
+ (if *edit-buffer-directory*
25
+ (lem:buffer-directory)
26
+ (uiop:getcwd)))))))
27
28
(defun ex-write (range filename touch)
29
(case (length range)
0 commit comments