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

oops

Browse source
This commit is contained in:
Benson Chu 2026-04-05 16:25:58 -05:00
parent d7192e0ac9
commit 4dd3b8fef7
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/llvm-lib/c-compiler-option-sets.el
View file

@ -44,17 +44,17 @@
(cl-defgeneric cos/to-string (config))
(defun cos/edit-compiler-options (optionset current-name)
(defun cos/edit-compiler-options (prefix optionset current-name)
(dolist (slot (cddr (eieio-class-slots 'compiler-option-config)))
(let* ((slot-sym (eieio-slot-descriptor-name slot))
(slot-val (and (slot-boundp optionsset slot-sym)
(slot-value optionsset slot-sym))))
(slot-val (and (slot-boundp optionset slot-sym)
(slot-value optionset slot-sym))))
(when slot-val
(pcase (cl--slot-descriptor-type slot)
('list
(when (or prefix
(not (zerop (length slot-val))))
(setf (slot-value optionsset slot-sym)
(setf (slot-value optionset slot-sym)
(read
(read-string (format "Edit '%s' for optionset '%s': "
(symbol-name slot-sym)
@ -63,7 +63,7 @@
('string
(when (or prefix
(not (string= slot-val "")))
(setf (slot-value optionsset slot-sym)
(setf (slot-value optionset slot-sym)
(read-string (format "Edit '%s' for optionset '%s': "
(symbol-name slot-sym)
current-name)

2
lisp/llvm-lib/clang-command.el
View file

@ -174,7 +174,7 @@
(or (and (gethash (buffer-file-name) clang/file-specific-options )
"file-specific")
(gethash target clang/current-target-optionset))))
(cos/edit-compiler-options options-config current-name)))
(cos/edit-compiler-options prefix options-config current-name)))
(defun clang/clang-options-merge (primary secondary)
(make-instance