Skip to content

Commit 4e20939

Browse files
committed
Require Compat 31
1 parent 1a14811 commit 4e20939

3 files changed

Lines changed: 7 additions & 7 deletions

File tree

gnuplot-context.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -612,7 +612,7 @@ name; otherwise continues tokenizing up to the token at point. FIXME."
612612
(let ((name (car chunk))
613613
(code (cdr chunk)))
614614
(setf (aref object-code i) `(label ,name))
615-
(cl-incf i)
615+
(incf i)
616616
(puthash name i name->offset)
617617
(while code
618618
(setf (aref object-code i) (car code)
@@ -1770,8 +1770,8 @@ there."
17701770
(when start-symbol ; HACK FIXME
17711771
(let ((look-for `(label ,start-symbol)))
17721772
(while (not (equal (aref instructions pc) look-for))
1773-
(cl-incf pc))
1774-
(cl-incf pc)))
1773+
(incf pc))
1774+
(incf pc)))
17751775

17761776
(setq gnuplot-context--completions nil
17771777
gnuplot-context--eldoc nil

gnuplot.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
88
;; Version: 0.11
99
;; Keywords: data gnuplot plotting
1010
;; URL: https://github.com/emacs-gnuplot/gnuplot
11-
;; Package-Requires: ((emacs "28.1") (compat "30"))
11+
;; Package-Requires: ((emacs "28.1") (compat "31"))
1212

1313
;; This program is free software: you can redistribute it and/or modify
1414
;; it under the terms of the GNU General Public License as published by

test/gnuplot-test-context.el

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -376,7 +376,7 @@
376376
(insert-file-contents fname)
377377
(gnuplot-mode)
378378
(message "Testing on file %s of %s: %s..."
379-
(cl-incf n) n-files fname)
379+
(incf n) n-files fname)
380380
(condition-case err
381381
(gnuplot-test-parse-buffer (current-buffer) fname)
382382
(error
@@ -415,9 +415,9 @@
415415
(gnuplot-context--match-pattern
416416
gnuplot-context--compiled-grammar
417417
tokens nil)))
418-
(cl-incf gnuplot-test-count)
418+
(incf gnuplot-test-count)
419419
(if (equal result '(nil))
420-
(cl-incf gnuplot-test-success-count)
420+
(incf gnuplot-test-success-count)
421421
(let ((cmd
422422
(buffer-substring
423423
(gnuplot--point-at-beginning-of-command)

0 commit comments

Comments
 (0)