mirror of
https://github.com/pestctrl/emacs-config.git
synced 2026-02-16 16:24:18 +00:00
Makes more sense being here
This commit is contained in:
parent
d431e5801d
commit
a39db49f68
2 changed files with 5 additions and 6 deletions
|
|
@ -146,17 +146,12 @@
|
|||
(?o (ll/diff-on-optionset file action))
|
||||
(_ (error "Invalid choice")))))
|
||||
|
||||
;; TODO: Very dirty
|
||||
(defvar ll/act-on-file-output nil)
|
||||
(make-variable-buffer-local 'll/act-on-file-output)
|
||||
|
||||
(defun ll/act-on-c-file (file)
|
||||
(let* ((action (aml/read-action-map ll/c-file-action-map))
|
||||
(output (ll/make-tmp-file
|
||||
file
|
||||
(cond
|
||||
((eq action 'assemble)
|
||||
".S")
|
||||
((eq action 'assemble) ".S")
|
||||
(t ".ll")))))
|
||||
(if (eq action 'diff)
|
||||
(ll/diff-c-on-two-compilations file action)
|
||||
|
|
|
|||
|
|
@ -24,6 +24,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; TODO: Very dirty
|
||||
(defvar ll/act-on-file-output nil)
|
||||
(make-variable-buffer-local 'll/act-on-file-output)
|
||||
|
||||
(defun ll/make-tmp-file (file ext)
|
||||
(let ((file-directory (file-name-directory file))
|
||||
fname temporary-file-directory)
|
||||
|
|
|
|||
Loading…
Reference in a new issue