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."
11201120 (interactive )
11211121 (inf-clojure-eval-defun t ))
11221122
1123- (defvar inf-clojure-prev-l/c -dir/ file nil
1123+ (defvar inf-clojure-prev-loaded -dir-and- file nil
11241124 " Record last directory and file used in loading or compiling.
11251125This holds a cons cell of the form `(DIRECTORY . FILE)'
11261126describing the last `inf-clojure-load-file' command." )
@@ -1134,12 +1134,12 @@ is present it will be used instead of the current file."
11341134 (interactive " P" )
11351135 (let* ((proc (inf-clojure-proc))
11361136 (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
11381138 ; ; nil because doesn't need an exact name
11391139 (inf-clojure--get-preferred-major-modes) nil ))))
11401140 (load-form (inf-clojure-get-feature proc 'load )))
11411141 (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)
11431143 (file-name-nondirectory file-name)))
11441144 (inf-clojure--send-string proc (format load-form file-name))
11451145 (when switch-to-repl
You can’t perform that action at this time.
0 commit comments