branch: elpa/cycle-at-point
commit 8c36c29318e544c8a27c56674b77690336533cd6
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>
Compat: support emacs pre 31.1
---
cycle-at-point.el | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
diff --git a/cycle-at-point.el b/cycle-at-point.el
index 5f1647bd931..927bae717e0 100644
--- a/cycle-at-point.el
+++ b/cycle-at-point.el
@@ -36,6 +36,22 @@
(require 'cycle-at-point-preset-python-mode))
+;; ---------------------------------------------------------------------------
+;; Compatibility
+
+(when (and (version< emacs-version "31.1") (not (and (fboundp 'incf) (fboundp
'decf))))
+ (defmacro incf (place &optional delta)
+ "Increment PLACE by DELTA or 1."
+ (declare (debug (gv-place &optional form)))
+ (gv-letplace (getter setter) place
+ (funcall setter `(+ ,getter ,(or delta 1)))))
+ (defmacro decf (place &optional delta)
+ "Decrement PLACE by DELTA or 1."
+ (declare (debug (gv-place &optional form)))
+ (gv-letplace (getter setter) place
+ (funcall setter `(- ,getter ,(or delta 1))))))
+
+
;; ---------------------------------------------------------------------------
;; Custom Variables
