branch: elpa/doc-show-inline
commit 4c43aac0867af455d9aee341480725e8bbcd7569
Author: Campbell Barton <ideasma...@gmail.com>
Commit: Campbell Barton <ideasma...@gmail.com>
Compat: correct emacs pre 31.1 (again)
---
doc-show-inline.el | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/doc-show-inline.el b/doc-show-inline.el
index e4d9dbe32aa..d8bc32b44b1 100644
--- a/doc-show-inline.el
+++ b/doc-show-inline.el
@@ -45,17 +45,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)))))))
;; ---------------------------------------------------------------------------
