Org: fix mistakes in regexp, skip set and doc string

All found by Relint.

* lisp/org/org-element.el (org-element-copy-buffer):
Repair incorrect escaping.
* lisp/org/org-macs.el (org--line-empty-p): Fix broken skip-set.
* lisp/org/org.el (org-setup-yank-dnd-handlers): Fix broken regexp.

(cherry picked from commit 331573e40731d6635acd366694493c26b480c230)

diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el
index 34520d16e1d0a6e2afa559ed13edff9cf3cb7a9c..b15f0b69d988a50446a4fa42967a06f620f65fe5 100644 (file)
--- a/lisp/org/org-element.el
+++ b/lisp/org/org-element.el
@@ -648,7 +648,7 @@ IMPORTANT: The buffer copy may also have variable `buffer-file-name'
 copied.
 
 To prevent Emacs overwriting the original buffer file,
-`write-contents-functions' is set to \='(always).  Do not alter this
+`write-contents-functions' is set to \\='(always).  Do not alter this
 variable and do not do anything that might alter it (like calling a
 major mode) to prevent data corruption.  Also, do note that Emacs may
 jump into the created buffer if the original file buffer is closed and

diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el
index 555ff44a330d2748139a7283bc3b4cbb1b12c125..694e747b04e6819e43ae86380217a62a5320d5df 100644 (file)
--- a/lisp/org/org-macs.el
+++ b/lisp/org/org-macs.el
@@ -815,7 +815,7 @@ Match at beginning of line when WITH-BOL is non-nil."
   (and (not (bobp))
        (save-excursion
         (forward-line n)
-         (skip-chars-forward "[ \t]")
+         (skip-chars-forward " \t")
          (eolp))))
 
 (defun org-previous-line-empty-p ()

diff --git a/lisp/org/org.el b/lisp/org/org.el
index ab676e623af7fd6f05333a1bfdcd61cd61761a2a..ff5b63212e08ea037b5de37e4ac16265fc0d05b0 100644 (file)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -20749,7 +20749,7 @@ it has a `diary' type."
     (yank-media-handler "image/.*" #'org--image-yank-media-handler)
     ;; Looks like different DEs go for different handler names,
     ;; https://larsee.com/blog/2019/05/clipboard-files/.
-    (yank-media-handler "x/special-\\(?:gnome\|KDE\|mate\\)-files"
+    (yank-media-handler "x/special-\\(?:gnome\\|KDE\\|mate\\)-files"
                         #'org--copied-files-yank-media-handler))
   (when (boundp 'x-dnd-direct-save-function)
     (setq-local x-dnd-direct-save-function #'org--dnd-xds-function)))