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

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

[elpa] externals/org 631d4eb6af 40/50: org-macs: Move org-current-text-i


From: ELPA Syncer
Subject: [elpa] externals/org 631d4eb6af 40/50: org-macs: Move org-current-text-indentation to silence byte-compiler
Date: Tue, 4 Oct 2022 21:58:01 -0400 (EDT)

branch: externals/org
commit 631d4eb6af69ffdaba39fbcce3a870bbb43ddea1
Author: Kyle Meyer <kyle@kyleam.com>
Commit: Kyle Meyer <kyle@kyleam.com>

    org-macs: Move org-current-text-indentation to silence byte-compiler
    
    Move org-current-text-indentation upstream of first use to avoid 'make
    single' (and the Emacs repo) reporting
    
      org-macs.el:1106:11: Warning: macro ‘org-current-text-indentation’ 
defined too
          late
---
 lisp/org-macs.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 74952aef3a..121effdbf8 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -386,6 +386,11 @@ it for output."
 
 ;;; Indentation
 
+(defmacro org-current-text-indentation ()
+  "Like `current-indentation', but ignore display/invisible properties."
+  `(let ((buffer-invisibility-spec nil))
+     (current-indentation)))
+
 (defun org-do-remove-indentation (&optional n skip-fl)
   "Remove the maximum common indentation from the buffer.
 When optional argument N is a positive integer, remove exactly
@@ -1101,11 +1106,6 @@ Return width in pixels when PIXELS is non-nil."
   `(string-width (buffer-substring-no-properties
                   (line-beginning-position) (point))))
 
-(defmacro org-current-text-indentation ()
-  "Like `current-indentation', but ignore display/invisible properties."
-  `(let ((buffer-invisibility-spec nil))
-     (current-indentation)))
-
 (defun org-not-nil (v)
   "If V not nil, and also not the string \"nil\", then return V.
 Otherwise return nil."



reply via email to

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