Backslash cleanup in Elisp source files

[gnu-emacs] / lisp / org / org-table.el

diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 478ad933ae2f0d9047d67c10d83a5f68633eb0cd..174e36ed63234c99456ba46345159987fab892d7 100644 (file)
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -440,8 +440,8 @@ available parameters."
   "Check if the table has a marking column.
 If yes remove the column and the special lines."
   (let ((special (if maybe-quoted
-                    "^[ \t]*| *\\\\?[\#!$*_^/ ] *|"
-                  "^[ \t]*| *[\#!$*_^/ ] *|"))
+                    "^[ \t]*| *\\\\?[#!$*_^/ ] *|"
+                  "^[ \t]*| *[#!$*_^/ ] *|"))
        (ignore  (if maybe-quoted
                     "^[ \t]*| *\\\\?[!$_^/] *|"
                   "^[ \t]*| *[!$_^/] *|")))
@@ -3248,7 +3248,7 @@ formulas that use a range of rows or columns, it may often be better
 to anchor the formula with \"I\" row markers, or to offset from the
 borders of the table using the @< @> $< $> makers."
   (let (n nmax len char (start 0))
-    (while (string-match "\\([@$]\\)\\(<+\\|>+\\)\\|\\(remote([^\)]+)\\)"
+    (while (string-match "\\([@$]\\)\\(<+\\|>+\\)\\|\\(remote([^)]+)\\)"
                         s start)
       (if (match-end 3)
          (setq start (match-end 3))