From a6544c0acbf74d5104dd2775de0bc0b7fb6d3e36 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= Date: Tue, 16 Aug 2016 03:23:41 +0200 Subject: [PATCH] FUEL: use the right quot-char in pcases --- misc/fuel/factor-smie.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/misc/fuel/factor-smie.el b/misc/fuel/factor-smie.el index 1db1495acd..af89a6c61b 100644 --- a/misc/fuel/factor-smie.el +++ b/misc/fuel/factor-smie.el @@ -55,14 +55,14 @@ (defun factor-smie-token (dir) (pcase dir - ('forward (forward-comment (point-max))) - ('backward (forward-comment (- (point))))) + (`forward (forward-comment (point-max))) + (`backward (forward-comment (- (point))))) (let ((tok (buffer-substring-no-properties (point) (let ((syntax "w_\\\"")) (pcase dir - ('forward (skip-syntax-forward syntax)) - ('backward (skip-syntax-backward syntax))) + (`forward (skip-syntax-forward syntax)) + (`backward (skip-syntax-backward syntax))) (point))))) ;; Token normalization. This way we only need one rule in ;; factor-smie-grammar.