aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--org-link-edit.el22
-rw-r--r--test-org-link-edit.el13
2 files changed, 19 insertions, 16 deletions
diff --git a/org-link-edit.el b/org-link-edit.el
index b670f29..f99dac3 100644
--- a/org-link-edit.el
+++ b/org-link-edit.el
@@ -187,11 +187,12 @@ of STRING. If the number of words in STRING is fewer than N,
(with-temp-buffer
(insert string)
(goto-char (point-min))
- (let ((within-bound (forward-word n)))
- (skip-syntax-forward "^\w")
- (cons (buffer-substring 1 (point))
- (and within-bound
- (buffer-substring (point) (point-max)))))))
+ (with-syntax-table org-mode-syntax-table
+ (let ((within-bound (forward-word n)))
+ (skip-syntax-forward "^w")
+ (cons (buffer-substring 1 (point))
+ (and within-bound
+ (buffer-substring (point) (point-max))))))))
(defun org-link-edit--split-last-words (string n)
"Split STRING into (other . N last words) cons cell.
@@ -203,11 +204,12 @@ of STRING. If the number of words in STRING is fewer than N,
(with-temp-buffer
(insert string)
(goto-char (point-max))
- (let ((within-bound (forward-word (- n))))
- (skip-syntax-backward "^\w")
- (cons (and within-bound
- (buffer-substring 1 (point)))
- (buffer-substring (point) (point-max))))))
+ (with-syntax-table org-mode-syntax-table
+ (let ((within-bound (forward-word (- n))))
+ (skip-syntax-backward "^w")
+ (cons (and within-bound
+ (buffer-substring 1 (point)))
+ (buffer-substring (point) (point-max)))))))
;;;###autoload
(defun org-link-edit-forward-barf-word (&optional n)
diff --git a/test-org-link-edit.el b/test-org-link-edit.el
index f7048b7..c6b3535 100644
--- a/test-org-link-edit.el
+++ b/test-org-link-edit.el
@@ -336,12 +336,13 @@ website is"
(org-link-edit-forward-barf-word 1)
(org-link-edit-forward-slurp-word 1)
(buffer-string))))
- (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website"
- (org-test-with-temp-text
- "Here is <point>\[\[http://orgmode.org/\]\[Org's\]\] website"
- (org-link-edit-forward-slurp-word 1)
- (org-link-edit-forward-barf-word 1)
- (buffer-string)))
+ (should
+ (string= "Here is \[\[http://orgmode.org/\]\] Org's website"
+ (org-test-with-temp-text
+ "Here is <point>\[\[http://orgmode.org/\]\] Org's website"
+ (org-link-edit-forward-slurp-word 1)
+ (org-link-edit-forward-barf-word 1)
+ (buffer-string))))
(should
(string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website"
(org-test-with-temp-text