branch: externals-release/org
commit 5be650714d14631038aa0ab1e6dcec155efa6146
Author: Juan Manuel Macias <[email protected]>
Commit: Bastien Guerry <[email protected]>
org.el (org-sort-remove-invisible): Remove spurious spaces
* org.el (org-sort-remove-invisible): Remove spurious spaces.
TINYCHANGE
---
lisp/org.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index d972c63..e59424f 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -8081,11 +8081,12 @@ Optional argument WITH-CASE means sort
case-sensitively."
"Remove invisible part of links and emphasis markers from string S."
(remove-text-properties 0 (length s) org-rm-props s)
(replace-regexp-in-string
- org-verbatim-re (lambda (m) (format "%s " (match-string 4 m)))
+ org-verbatim-re (lambda (m) (format "%s" (match-string 4 m)))
(replace-regexp-in-string
- org-emph-re (lambda (m) (format " %s " (match-string 4 m)))
+ org-emph-re (lambda (m) (format "%s" (match-string 4 m)))
(org-link-display-format s)
- t t) t t))
+ t t)
+ t t))
(defvar org-after-sorting-entries-or-items-hook nil
"Hook that is run after a bunch of entries or items have been sorted.
