From 01bf57488c7b2853624aab8b794e4887dfbddb66 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Sun, 30 Jul 2023 12:26:49 +0300 Subject: [PATCH] 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 9957fe950..e72cf056a 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."