diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2025-03-07 08:54:51 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2025-03-07 08:54:51 +0100 |
| commit | ba5dc934b9dbdc2b57ab1917a669cdfd7d1838d3 (patch) | |
| tree | b208c0d9ce35c941cbe4fb0a52ddf5d1308c63ab | |
| parent | 849ce3e754f291c3643bc36ed802226606955c3f (diff) | |
; Fix byte-compilation warningsexternals/csv-mode
| -rw-r--r-- | csv-mode.el | 8 |
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)))) |
