branch: elpa/hl-block-mode
commit fdb50b4d2048e238d1e039969ff40de00118bf77
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>
Compat: correct emacs pre 31.1 (again)
---
hl-block-mode.el | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/hl-block-mode.el b/hl-block-mode.el
index 0241c1479b2..88c307efa28 100644
--- a/hl-block-mode.el
+++ b/hl-block-mode.el
@@ -28,17 +28,18 @@
;; ---------------------------------------------------------------------------
;; Compatibility
-(when (version< emacs-version "31.1")
- (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))))))
+(eval-when-compile
+ (when (version< emacs-version "31.1")
+ (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)))))))
;; ---------------------------------------------------------------------------
