steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FUEL: use the right quot-char in pcases

char-rename
Björn Lindqvist 2016-08-16 03:23:41 +02:00
parent b5c6658ae5
commit a6544c0acb
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
misc/fuel/factor-smie.el
View File

@ -55,14 +55,14 @@
(defun factor-smie-token (dir) (defun factor-smie-token (dir)
(pcase dir (pcase dir
('forward (forward-comment (point-max))) (`forward (forward-comment (point-max)))
('backward (forward-comment (- (point))))) (`backward (forward-comment (- (point)))))
(let ((tok (buffer-substring-no-properties (let ((tok (buffer-substring-no-properties
(point) (point)
(let ((syntax "w_\\\"")) (let ((syntax "w_\\\""))
(pcase dir (pcase dir
('forward (skip-syntax-forward syntax)) (`forward (skip-syntax-forward syntax))
('backward (skip-syntax-backward syntax))) (`backward (skip-syntax-backward syntax)))
(point))))) (point)))))
;; Token normalization. This way we only need one rule in ;; Token normalization. This way we only need one rule in
;; factor-smie-grammar. ;; factor-smie-grammar.