tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

lisp/org.el: Define `org-rear-nonsticky-at' defsubst before its first usage 

This fixes compiler warning.
This commit is contained in:
Ihor Radchenko 2023-07-30 12:26:49 +03:00
parent d5006e195a
commit 01bf57488c
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org.el
View File

@ -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."