mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 22:07:49 +00:00
Silence byte-compiler
This commit is contained in:
parent
aab7f65a8b
commit
5e30bbcd34
|
@ -51,6 +51,7 @@
|
|||
|
||||
(require 'cl-lib)
|
||||
(require 'org-macs)
|
||||
(declare-function org-trim "org" (s &optional keep-lead))
|
||||
|
||||
|
||||
;;; Public variables
|
||||
|
|
12
lisp/org.el
12
lisp/org.el
|
@ -9953,6 +9953,12 @@ according to FMT (default from `org-email-link-description-format')."
|
|||
(reverse slines))) "\n")))))
|
||||
(mapconcat #'identity (split-string s) " ")))
|
||||
|
||||
(defconst org-link-escape-chars
|
||||
;;%20 %5B %5D %25
|
||||
'(?\s ?\[ ?\] ?%)
|
||||
"List of characters that should be escaped in a link when stored to Org.
|
||||
This is the list that is used for internal purposes.")
|
||||
|
||||
(defun org-make-link-string (link &optional description)
|
||||
"Make a link with brackets, consisting of LINK and DESCRIPTION."
|
||||
(unless (org-string-nw-p link) (error "Empty link"))
|
||||
|
@ -9975,12 +9981,6 @@ according to FMT (default from `org-email-link-description-format')."
|
|||
uri
|
||||
(if description (format "[%s]" description) ""))))
|
||||
|
||||
(defconst org-link-escape-chars
|
||||
;;%20 %5B %5D %25
|
||||
'(?\s ?\[ ?\] ?%)
|
||||
"List of characters that should be escaped in a link when stored to Org.
|
||||
This is the list that is used for internal purposes.")
|
||||
|
||||
(defun org-link-escape (text &optional table merge)
|
||||
"Return percent escaped representation of TEXT.
|
||||
TEXT is a string with the text to escape.
|
||||
|
|
Loading…
Reference in a new issue