More sophisticated -I flag appending

This commit is contained in:
Benson Chu 2022-12-30 16:52:40 -06:00
parent cf2abce482
commit e9e8fd8a93

View file

@ -106,9 +106,8 @@
(let ((new-dir (read-directory-name "directory? ")))
(with-current-buffer buffer
(setq compilation-arguments
(cons (concat (car compilation-arguments)
(format " -I%s "
new-dir))
(cons (string-replace "-I" (format "-I%s -I" new-dir)
(car compilation-arguments))
(cdr compilation-arguments)))
(call-interactively #'recompile))))))