Add new packages installed
This commit is contained in:
13
elpa/lua-mode-20180207.1216/init-tryout.el
Normal file
13
elpa/lua-mode-20180207.1216/init-tryout.el
Normal file
@@ -0,0 +1,13 @@
|
||||
(load-file "lua-mode.el")
|
||||
|
||||
(defmacro add-trace-for (fn)
|
||||
(let ((trace-fn-name (intern (concat "trace--" (symbol-name fn)))))
|
||||
`(progn
|
||||
(defun ,trace-fn-name (&rest args)
|
||||
(message "%s was called with: %S" #',fn args))
|
||||
(add-function :before (symbol-function #',fn) #',trace-fn-name))))
|
||||
|
||||
|
||||
;; (add-trace-for font-lock-fontify-region)
|
||||
;; (add-trace-for font-lock-unfontify-region)
|
||||
;; (add-trace-for lua--propertize-multiline-bounds)
|
||||
Reference in New Issue
Block a user