iankelling.org
/
git
/
spray
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Handle em dash case of word—word like a comma
[spray]
/
spray.el
diff --git
a/spray.el
b/spray.el
index 836cf07ff3137bbef25c568ab0244a492f325c2c..1ebdab22537a6b6493fc25e32126aa520ff906b8 100644
(file)
--- a/
spray.el
+++ b/
spray.el
@@
-159,9
+159,9
@@
(spray-mode -1))
(defun spray--word-at-point ()
(spray-mode -1))
(defun spray--word-at-point ()
- (skip-chars-backward "^\s\t\n")
+ (skip-chars-backward "^\s\t\n
—
")
(let* ((beg (point))
(let* ((beg (point))
- (len (
skip-chars-forward "^\s\t\n"
))
+ (len (
+ (skip-chars-forward "^\s\t\n—") (skip-chars-forward "—")
))
(end (point))
(accent (+ beg (cl-case len
((1) 1)
(end (point))
(accent (+ beg (cl-case len
((1) 1)
@@
-177,7
+177,7
@@
(if (looking-at "\n[\s\t\n]") 3 0)
(cl-case (char-before)
((?. ?! ?\? ?\;) 3)
(if (looking-at "\n[\s\t\n]") 3 0)
(cl-case (char-before)
((?. ?! ?\? ?\;) 3)
- ((?, ?:) 1)
+ ((?, ?:
?—
) 1)
(t 0))))
(move-overlay spray--accent-overlay (1- accent) accent)
(move-overlay spray--base-overlay beg end)
(t 0))))
(move-overlay spray--accent-overlay (1- accent) accent)
(move-overlay spray--base-overlay beg end)
@@
-196,7
+196,7
@@
(widen)
(if (eobp)
(spray-mode -1)
(widen)
(if (eobp)
(spray-mode -1)
- (skip-chars-forward "\s\t\n")
+ (skip-chars-forward "\s\t\n
—
")
(spray--word-at-point)))))
;; * interactive commands
(spray--word-at-point)))))
;; * interactive commands
@@
-226,15
+226,15
@@
Returns t if spray was unpaused."
(interactive)
(spray-stop)
(widen)
(interactive)
(spray-stop)
(widen)
- (skip-chars-forward "\s\t\n")
+ (skip-chars-forward "\s\t\n
—
")
(spray--word-at-point))
(defun spray-backward-word ()
(interactive)
(spray-stop)
(widen)
(spray--word-at-point))
(defun spray-backward-word ()
(interactive)
(spray-stop)
(widen)
- (skip-chars-backward "^\s\t\n")
- (skip-chars-backward "\s\t\n")
+ (skip-chars-backward "^\s\t\n
—
")
+ (skip-chars-backward "\s\t\n
—
")
(spray--word-at-point))
(defun spray-faster ()
(spray--word-at-point))
(defun spray-faster ()