Bladeren bron

org.el (org-sort-remove-invisible): Remove spurious spaces

* org.el (org-sort-remove-invisible): Remove spurious spaces.

TINYCHANGE
Juan Manuel Macias 4 jaren geleden
bovenliggende
commit
5be650714d
1 gewijzigde bestanden met toevoegingen van 4 en 3 verwijderingen
  1. 4 3
      lisp/org.el

+ 4 - 3
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.