Skip to content

Commit 2287a9e

Browse files
committed
Bugfix: do not rely on evenp from cl.el
1 parent 7df9c98 commit 2287a9e

File tree

1 file changed

+5
-2
lines changed

1 file changed

+5
-2
lines changed

smartparens-latex.el

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -83,12 +83,15 @@
8383
(setq p (- p 1)))
8484
(- (point) p)))
8585

86+
(defun sp-evenp (num)
87+
(eq (% num 2) 0))
88+
8689
(defun sp--latex-backslash-skip-match (ms mb _me)
8790
"Skips a match if preceeded by uneven number of backslashes."
8891
(and ms
8992
(save-excursion
9093
(goto-char mb)
91-
(not (evenp (sp-number-of-backslashes-before-point))))))
94+
(not (sp-evenp (sp-number-of-backslashes-before-point))))))
9295

9396
(defun sp-latex-point-after-backslash (id action context)
9497
"Return t if point follows an uneven number of backslashes (a
@@ -101,7 +104,7 @@ ID, ACTION, CONTEXT."
101104
(when (> start 1)
102105
(save-excursion
103106
(goto-char start)
104-
(not (evenp (sp-number-of-backslashes-before-point))))))))
107+
(not (sp-evenp (sp-number-of-backslashes-before-point))))))))
105108

106109
(add-to-list 'sp-navigate-skip-match
107110
'((tex-mode plain-tex-mode latex-mode) . sp--latex-backslash-skip-match))

0 commit comments

Comments
 (0)