pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-06-14 12:21:20 +00:00
Code Issues Projects Releases Packages Wiki Activity

Various bugs

Browse source
This commit is contained in:
Benson Chu 2023-08-25 01:11:56 -05:00
parent 71ca24f5b7
commit 3d21778b0b
2 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/llvm-lib/llvm-act-on-file/act-on-test-file.el
View file

@ -94,7 +94,7 @@
(mapcar #'(lambda (x) (string-trim x)) it)
;; TODO: assuming all commands will be llc
(mapcar #'(lambda (x)
(let (res)
(let ((res x))
(setq res (string-replace "RUN: not " "RUN: " res))
(string-match (rx line-start
(group
@ -106,7 +106,8 @@
("%clang_cc1"
(replace-match "clang -cc1" nil nil x 1))
("%clang"
(replace-match "clang" nil nil x 1))))
(replace-match "clang" nil nil x 1))
(t res)))
(string-match (rx line-start
(group (or "clang" "llc"))
" ")

4
lisp/llvm-lib/llvm-shared.el
View file

@ -67,8 +67,8 @@
(hash-table-values lls/llvm-configs))
(defun lls/get-llvm-config (&optional tab-name)
(gethash (or tab-name (alist-get 'name (tab-bar--current-tab)))
lls/llvm-configs))
(let ((tab-name (or tab-name (alist-get 'name (tab-bar--current-tab)))))
(gethash tab-name lls/llvm-configs)))
(defun lls/set-llvm-config (conf &optional tab-name)
(puthash (or tab-name (alist-get 'name (tab-bar--current-tab)))