summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStefan Kangas <stefankangas@gmail.com>2025-03-07 08:54:51 +0100
committerStefan Kangas <stefankangas@gmail.com>2025-03-07 08:54:51 +0100
commitba5dc934b9dbdc2b57ab1917a669cdfd7d1838d3 (patch)
treeb208c0d9ce35c941cbe4fb0a52ddf5d1308c63ab
parent849ce3e754f291c3643bc36ed802226606955c3f (diff)
; Fix byte-compilation warningsexternals/csv-mode
-rw-r--r--csv-mode.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/csv-mode.el b/csv-mode.el
index 829de07..e4ed38e 100644
--- a/csv-mode.el
+++ b/csv-mode.el
@@ -1421,10 +1421,10 @@ If VALUE contains escaped quote characters, un-escape them. If
VALUE is not quoted, return it unchanged."
(save-match-data
(let ((quote-regexp (apply #'concat `("[" ,@csv-field-quotes "]"))))
- (if-let (((string-match (concat "^\\(" quote-regexp "\\)\\(.*\\)\\(" quote-regexp "\\)$") value))
- (quote-char (match-string 1 value))
- ((equal quote-char (match-string 3 value)))
- (unquoted (match-string 2 value)))
+ (if-let* (((string-match (concat "^\\(" quote-regexp "\\)\\(.*\\)\\(" quote-regexp "\\)$") value))
+ (quote-char (match-string 1 value))
+ ((equal quote-char (match-string 3 value)))
+ (unquoted (match-string 2 value)))
(replace-regexp-in-string (concat quote-char quote-char) quote-char unquoted)
value))))