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

Silence byte-compiler

This commit is contained in:
Nicolas Goaziou 2017-12-15 23:21:15 +01:00
parent aab7f65a8b
commit 5e30bbcd34
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/org-duration.el
View File

@ -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
View File

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