about summary refs log tree commit diff stats
path: root/lisp/+compile.el
blob: b20ae4d074b513dfceeb5938667c339f13fb8442 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
;;; +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)

(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