blob: a69db7d1d20c1f7a7ffc7e15173df3eb43fff5e7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
;;; +compile.el --- Extras for compile -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(defcustom +compile-function nil
"Function to run to \"compile\" a buffer."
:type 'function
:local t
:risky nil)
(defun +compile-dispatch (&optional arg)
"Run `+compile-function', if bound, or `compile'.
Any prefix ARG is passed to that function."
(interactive "P")
(call-interactively (or +compile-function #'compile)))
(provide '+compile)
;;; +compile.el ends here
|
