File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -1120,7 +1120,7 @@ START and END are the beginning and end positions in the buffer to send."
1120
1120
(interactive )
1121
1121
(inf-clojure-eval-defun t ))
1122
1122
1123
- (defvar inf-clojure-prev-l/c -dir/ file nil
1123
+ (defvar inf-clojure-prev-loaded -dir-and- file nil
1124
1124
" Record last directory and file used in loading or compiling.
1125
1125
This holds a cons cell of the form `(DIRECTORY . FILE)'
1126
1126
describing the last `inf-clojure-load-file' command." )
@@ -1134,12 +1134,12 @@ is present it will be used instead of the current file."
1134
1134
(interactive " P" )
1135
1135
(let* ((proc (inf-clojure-proc))
1136
1136
(file-name (or file-name
1137
- (car (comint-get-source " Load Clojure file: " inf-clojure-prev-l/c -dir/ file
1137
+ (car (comint-get-source " Load Clojure file: " inf-clojure-prev-loaded -dir-and- file
1138
1138
; ; nil because doesn't need an exact name
1139
1139
(inf-clojure--get-preferred-major-modes) nil ))))
1140
1140
(load-form (inf-clojure-get-feature proc 'load )))
1141
1141
(comint-check-source file-name) ; Check to see if buffer needs saved.
1142
- (setq inf-clojure-prev-l/c -dir/ file (cons (file-name-directory file-name)
1142
+ (setq inf-clojure-prev-loaded -dir-and- file (cons (file-name-directory file-name)
1143
1143
(file-name-nondirectory file-name)))
1144
1144
(inf-clojure--send-string proc (format load-form file-name))
1145
1145
(when switch-to-repl
You can’t perform that action at this time.
0 commit comments