emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/compat 9842d683d8 01/14: Declare version only at compil


From: ELPA Syncer
Subject: [elpa] externals/compat 9842d683d8 01/14: Declare version only at compile time
Date: Tue, 3 Jan 2023 10:57:27 -0500 (EST)

branch: externals/compat
commit 9842d683d8dc3ae31ab530d6f4e42dabe47fb25a
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Declare version only at compile time
---
 compat-24.el |  6 +++---
 compat-25.el |  6 +++---
 compat-26.el |  6 +++---
 compat-27.el |  6 +++---
 compat-28.el |  6 +++---
 compat-29.el | 20 ++++++++++----------
 6 files changed, 25 insertions(+), 25 deletions(-)

diff --git a/compat-24.el b/compat-24.el
index e6ca7928f2..9cb61a7b7d 100644
--- a/compat-24.el
+++ b/compat-24.el
@@ -37,9 +37,9 @@
 
 ;;; Code:
 
-(eval-when-compile (load "compat-macs.el" nil t t))
-
-(compat-declare-version "24.4")
+(eval-when-compile
+  (load "compat-macs.el" nil t t)
+  (compat-declare-version "24.4"))
 
 ;;;; Defined in data.c
 
diff --git a/compat-25.el b/compat-25.el
index 84ef300d37..f0705dc274 100644
--- a/compat-25.el
+++ b/compat-25.el
@@ -32,9 +32,9 @@
 
 ;;; Code:
 
-(eval-when-compile (load "compat-macs.el" nil t t))
-
-(compat-declare-version "25.1")
+(eval-when-compile
+  (load "compat-macs.el" nil t t)
+  (compat-declare-version "25.1"))
 
 ;;;; Defined in alloc.c
 
diff --git a/compat-26.el b/compat-26.el
index eb3bd5eb4e..8fb482cb18 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -37,9 +37,9 @@
 
 ;;; Code:
 
-(eval-when-compile (load "compat-macs.el" nil t t))
-
-(compat-declare-version "26.1")
+(eval-when-compile
+  (load "compat-macs.el" nil t t)
+  (compat-declare-version "26.1"))
 
 ;;;; Defined in eval.c
 
diff --git a/compat-27.el b/compat-27.el
index 0997597ee7..4590bc6f3f 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -39,9 +39,9 @@
 
 ;;; Code:
 
-(eval-when-compile (load "compat-macs.el" nil t t))
-
-(compat-declare-version "27.1")
+(eval-when-compile
+  (load "compat-macs.el" nil t t)
+  (compat-declare-version "27.1"))
 
 ;;;; Defined in fns.c
 
diff --git a/compat-28.el b/compat-28.el
index 6213d7b214..8a7f5cc931 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -39,9 +39,9 @@
 
 ;;; Code:
 
-(eval-when-compile (load "compat-macs.el" nil t t))
-
-(compat-declare-version "28.1")
+(eval-when-compile
+  (load "compat-macs.el" nil t t)
+  (compat-declare-version "28.1"))
 
 ;;;; Defined in fns.c
 
diff --git a/compat-29.el b/compat-29.el
index 20076ff5b6..64cdcb37ad 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -33,9 +33,9 @@
 
 ;;; Code:
 
-(eval-when-compile (load "compat-macs.el" nil t t))
-
-(compat-declare-version "29.1")
+(eval-when-compile
+  (load "compat-macs.el" nil t t)
+  (compat-declare-version "29.1"))
 
 ;;;; Defined in xdisp.c
 
@@ -541,11 +541,11 @@ the symbol of the calling function, for example."
   (let* ((file (directory-file-name (expand-file-name file)))
          (remote-file-name-inhibit-cache t)
          (fileattr (file-attributes file 'integer))
-        (attr (and fileattr
+         (attr (and fileattr
                     (cons (nth 7 fileattr)
-                         (nth 5 fileattr))))
-        (sym (concat (symbol-name tag) "@" file))
-        (cachedattr (gethash sym compat--file-has-changed-p--hash-table)))
+                          (nth 5 fileattr))))
+         (sym (concat (symbol-name tag) "@" file))
+         (cachedattr (gethash sym compat--file-has-changed-p--hash-table)))
      (when (not (equal attr cachedattr))
        (puthash sym attr compat--file-has-changed-p--hash-table))))
 
@@ -827,9 +827,9 @@ in a cleaner way with command remapping, like this:
   (unless prefix
     (setq prefix ""))
   (let* ((scan (or oldmap keymap))
-        (prefix1 (vconcat prefix [nil]))
-        (key-substitution-in-progress
-         (cons scan key-substitution-in-progress)))
+         (prefix1 (vconcat prefix [nil]))
+         (key-substitution-in-progress
+          (cons scan key-substitution-in-progress)))
     ;; Scan OLDMAP, finding each char or event-symbol that
     ;; has any definition, and act on it with hack-key.
     (map-keymap



reply via email to

[Prev in Thread] Current Thread [Next in Thread]