X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/d504247bf7aedf80858a04b7c86be194390f4fd9..88005ae9e51d97c30485739bef5f1ef0f32aac5c:/src/emacs-hacks.el

diff --git a/src/emacs-hacks.el b/src/emacs-hacks.el
new file mode 100644
index 0000000..9127080
--- /dev/null
+++ b/src/emacs-hacks.el
@@ -0,0 +1,15 @@
+(dolist (entry '((parse 0)
+		 (many 1)
+		 (skip-many 1)
+		 (seq 1)
+		 (lisp 0)
+		 (if-parse 2)
+		 (if-char 2)
+		 (expr 1)
+		 (label 1)
+		 (acond . cond)
+		 (define-class-slot 3)))
+  (put (car entry) 'common-lisp-indent-function
+       (if (symbolp (cdr entry))
+	   (get (cdr entry) 'common-lisp-indent-function)
+	 (cadr entry))))
\ No newline at end of file