[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 01bf57488c 2/4: lisp/org.el: Define `org-rear-nonst
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 01bf57488c 2/4: lisp/org.el: Define `org-rear-nonsticky-at' defsubst before its first usage |
Date: |
Sun, 30 Jul 2023 06:58:21 -0400 (EDT) |
branch: externals/org
commit 01bf57488c7b2853624aab8b794e4887dfbddb66
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>
lisp/org.el: Define `org-rear-nonsticky-at' defsubst before its first usage
This fixes compiler warning.
---
lisp/org.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 9957fe9501..e72cf056a3 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -5100,6 +5100,12 @@ stacked delimiters is N. Escaping delimiters is not
possible."
(defvar org-emph-face nil)
+(defconst org-nonsticky-props
+ '(mouse-face highlight keymap invisible intangible help-echo org-linked-text
htmlize-link))
+
+(defsubst org-rear-nonsticky-at (pos)
+ (add-text-properties (1- pos) pos (list 'rear-nonsticky
org-nonsticky-props)))
+
(defun org-do-emphasis-faces (limit)
"Run through the buffer and emphasize strings."
(let ((quick-re (format "\\([%s]\\|^\\)\\([~=*/_+]\\)"
@@ -5209,12 +5215,6 @@ prompted for."
(insert string)
(and move (backward-char 1))))
-(defconst org-nonsticky-props
- '(mouse-face highlight keymap invisible intangible help-echo org-linked-text
htmlize-link))
-
-(defsubst org-rear-nonsticky-at (pos)
- (add-text-properties (1- pos) pos (list 'rear-nonsticky
org-nonsticky-props)))
-
(defun org-activate-links--overlays (limit)
"Add link properties to links.
This includes angle, plain, and bracket links."