[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed 3958d8a 020/216: Improve sentence object
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed 3958d8a 020/216: Improve sentence object |
Date: |
Tue, 8 Jan 2019 12:29:01 -0500 (EST) |
branch: externals/objed
commit 3958d8ac989c6de9ca0b2e882c2cfea07b043c10
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Improve sentence object
---
objed-objects.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/objed-objects.el b/objed-objects.el
index 87a6ceb..abef039 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -1520,6 +1520,7 @@ non-nil the indentation block can contain empty lines."
(objed-define-object nil sentence
:atp
(when (or (derived-mode-p 'text-mode)
+ (eq major-mode 'fundamental-mode)
(objed--at-comment-p)
(objed--in-string-or-comment-p))
(let ((ip (ignore-errors
@@ -1530,6 +1531,7 @@ non-nil the indentation block can contain empty lines."
(and ip (= (point) ip))))
:get-obj
(when (or (derived-mode-p 'text-mode)
+ (eq major-mode 'fundamental-mode)
(objed--at-comment-p)
(objed--in-string-or-comment-p))
(objed--with-narrow-for-text
@@ -1564,8 +1566,9 @@ non-nil the indentation block can contain empty lines."
(forward-sentence)
(point)))
(forward-sentence 1))
+ (forward-sentence 1)
;; move to start
- (forward-sentence 1))
+ (forward-sentence -1))
:try-prev
(objed--with-narrow-for-text
;; call twice at end of sentence
- [elpa] externals/objed 81b9ed9 024/216: Allow to append next kill like in stock Emacs, (continued)
- [elpa] externals/objed 81b9ed9 024/216: Allow to append next kill like in stock Emacs, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 372124c 019/216: Add undo-only as keeper command, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 4634c51 027/216: Fix char object for end of buffer, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 5237b4a 022/216: Fix string detection, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 54e8d42 011/216: Adjust textblock object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 34a0031 015/216: Fix init if no object found after movement., Stefan Monnier, 2019/01/08
- [elpa] externals/objed 4dd671e 010/216: Improve Readme, Stefan Monnier, 2019/01/08
- [elpa] externals/objed e17bd00 003/216: Slow down screencasts, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 56579a4 025/216: Update documentation for copy and yank, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 98f4c47 026/216: Fix docs, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 3958d8a 020/216: Improve sentence object,
Stefan Monnier <=
- [elpa] externals/objed a67c5b9 013/216: Conform to package guidelines, Stefan Monnier, 2019/01/08
- [elpa] externals/objed caf6a96 029/216: Further improve indent commands, change some bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 2232a85 030/216: Add some bindings, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 33136a6 034/216: Add melpa notice, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 8c50b53 032/216: Cleanup indent commands, Stefan Monnier, 2019/01/08
- [elpa] externals/objed f7ef787 036/216: Add move/indent descriptions, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 781adf8 044/216: Improve syntax object, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 9c9797b 039/216: Add melpa badge, Stefan Monnier, 2019/01/08
- [elpa] externals/objed ae9f965 041/216: Fixes #9, Stefan Monnier, 2019/01/08
- [elpa] externals/objed 630d2de 028/216: Improve/add indentation commands, Stefan Monnier, 2019/01/08