Quellcode durchsuchen

table: Fix regexp

* lisp/org-table.el (org-table-import): Fix missing leading
backslash.  Switch to Rx notation for clarity.
Nicolas Goaziou vor 4 Jahren
Ursprung
Commit
10ed4994f5
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      lisp/org-table.el

+ 1 - 1
lisp/org-table.el

@@ -935,7 +935,7 @@ lines.  It can have the following values:
 - regexp  When a regular expression, use it to match the separator."
   (interactive "f\nP")
   (when (and (called-interactively-p 'any)
-	     (not (string-match-p "\.\\(?:[tc]sv\\|txt\\)$" file)))
+	     (not (string-match-p (rx "." (or "txt" "tsv" "csv") eos) file)))
     (user-error "Cannot import such file"))
   (unless (bolp) (insert "\n"))
   (let ((beg (point))