[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master a704deb: * packages/csv-mode/csv-mode.el: Revert part of l
From: |
Stefan Monnier |
Subject: |
[elpa] master a704deb: * packages/csv-mode/csv-mode.el: Revert part of last change. |
Date: |
Sat, 15 Feb 2020 10:03:52 -0500 (EST) |
branch: master
commit a704debf6f79f557595671f198643f725db0bcc8
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* packages/csv-mode/csv-mode.el: Revert part of last change.
(csv-end-of-field, csv-beginning-of-field): Don't use csv-field-quotes.
I was confused.
---
packages/csv-mode/csv-mode.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/packages/csv-mode/csv-mode.el b/packages/csv-mode/csv-mode.el
index 798d8a9..03a995c 100644
--- a/packages/csv-mode/csv-mode.el
+++ b/packages/csv-mode/csv-mode.el
@@ -662,14 +662,14 @@ point or marker arguments, BEG and END, delimiting the
region."
(defun csv-end-of-field ()
"Skip forward over one field."
(skip-chars-forward " ")
- (if (memq (char-syntax (following-char)) csv-field-quotes)
+ (if (eq (char-syntax (following-char)) ?\")
(goto-char (scan-sexps (point) 1)))
(skip-chars-forward csv--skip-chars))
(defun csv-beginning-of-field ()
"Skip backward over one field."
(skip-syntax-backward " ")
- (if (memq (char-syntax (preceding-char)) csv-field-quotes)
+ (if (eq (char-syntax (preceding-char)) ?\")
(goto-char (scan-sexps (point) -1)))
(skip-chars-backward csv--skip-chars))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master a704deb: * packages/csv-mode/csv-mode.el: Revert part of last change.,
Stefan Monnier <=