--- a/contrib/gaphrase.el	Tue May 14 23:28:56 2019 +0300
+++ b/contrib/gaphrase.el	Wed May 15 19:45:48 2019 +0300
@@ -27,6 +27,11 @@
     ("^## [1-9][0-9]*" . font-lock-warning-face)
     ("^- " . font-lock-keyword-face)))
 
+(defvar gaphrase-syntax-table
+  (let ((table (make-syntax-table text-mode-syntax-table)))
+    (modify-syntax-entry ?' "w" table)
+    table))
+
 (defun gaphrase-next-num ()
   (save-excursion
     (goto-char (point-min))
@@ -73,7 +78,8 @@
 (define-derived-mode gaphrase-mode fundamental-mode "gaphrase"
   (setq font-lock-defaults '(gaphrase-font-lock-keywords))
   (define-key (current-local-map) [C-return] 'gaphrase-insert-template)
-  (define-key (current-local-map) [S-return] 'gaphrase-insert-sentence))
+  (define-key (current-local-map) [S-return] 'gaphrase-insert-sentence)
+  (set-syntax-table gaphrase-syntax-table))
 
 (provide 'gaphrase)