diff --git a/contrib/emacs.factor b/contrib/emacs.factor
new file mode 100644
index 0000000000..9f52274b1b
--- /dev/null
+++ b/contrib/emacs.factor
@@ -0,0 +1,14 @@
+
+REQUIRES: process ;
+
+USING: kernel parser words sequences math process ;
+
+IN: emacs
+
+: emacsclient ( file line -- )
+number>string "emacsclient --no-wait +" swap append " " rot append3 system ;
+
+: emacs ( word -- )
+dup word-file swap "line" word-prop emacsclient ;
+
+PROVIDE: emacs ;
\ No newline at end of file