[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/objed d0fb9c6 31/34: Allow wrap for identifier navigati
From: |
Stefan Monnier |
Subject: |
[elpa] externals/objed d0fb9c6 31/34: Allow wrap for identifier navigation |
Date: |
Mon, 15 Mar 2021 22:21:12 -0400 (EDT) |
branch: externals/objed
commit d0fb9c64d853252c63b34a9f2feaf0e94927456a
Author: Clemens Radermacher <clemera@posteo.net>
Commit: Clemens Radermacher <clemera@posteo.net>
Allow wrap for identifier navigation
---
objed-objects.el | 14 ++++++++++++--
objed.el | 10 ++++++----
2 files changed, 18 insertions(+), 6 deletions(-)
diff --git a/objed-objects.el b/objed-objects.el
index 22c29d5..12f74aa 100644
--- a/objed-objects.el
+++ b/objed-objects.el
@@ -2545,7 +2545,16 @@ non-nil the indentation block can contain empty lines."
(goto-char (car bds))
(when (or (eq real-this-command #'objed-next-identifier)
(eq real-this-command #'objed-goto-next-identifier))
- (run-at-time 0 nil (apply-partially #'message "No next
identifier"))))))))
+ (objed-first-identifier)
+ (objed--flash-object 'match)))))))
+
+(defun objed--flash-object (face &optional time)
+ "Flash current object using FACE for TIME (defaults to 0.4)."
+ (let ((cookie (face-remap-add-relative
+ 'objed-hl face)))
+ (run-at-time (or time .3) nil
+ (lambda ()
+ (face-remap-remove-relative cookie)))))
(defun objed--prev-identifier ()
"Move to previous identifier."
@@ -2563,7 +2572,8 @@ non-nil the indentation block can contain empty lines."
(goto-char (car bds))
(when (or (eq real-this-command #'objed-prev-identifier)
(eq real-this-command #'objed-goto-prev-identifier))
- (run-at-time 0 nil (apply-partially #'message "No previous
identifier")))))))))
+ (objed-last-identifier)
+ (objed--flash-object 'match))))))))
diff --git a/objed.el b/objed.el
index 3de48e9..48f7b55 100644
--- a/objed.el
+++ b/objed.el
@@ -2287,8 +2287,9 @@ On repeat or at boundary move to next."
(goto-char (point-min))
(when (re-search-forward format nil t)
(goto-char (match-beginning 0))
- (when (= (point) ib)
- (message "No previous indentifier"))))))
+ (if (= (point) ib)
+ (message "No other instance found")
+ (message "Moved to first insance"))))))
;;;###autoload
(defun objed-last-identifier ()
@@ -2302,8 +2303,9 @@ On repeat or at boundary move to next."
(when format
(goto-char (point-max))
(re-search-backward format nil t)
- (when (= (point) ib)
- (message "No next indentifier")))))
+ (if (= (point) ib)
+ (message "No other instance found")
+ (message "Moved to last insance")))))
;;;###autoload
(defun objed-next-identifier ()
- [elpa] externals/objed f45cddb 09/34: Restructure note about out of date keybindings, (continued)
- [elpa] externals/objed f45cddb 09/34: Restructure note about out of date keybindings, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 2224691 12/34: Make note about changes more prominent, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 5d3b8a8 18/34: Fix quotes in docstring, Stefan Monnier, 2021/03/15
- [elpa] externals/objed dd520d4 20/34: Don't override last-command in objed--do-objects, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 47891ba 17/34: Remove objed-extend face, Stefan Monnier, 2021/03/15
- [elpa] externals/objed ded6eb4 16/34: Fix docstring of objed-use-hl, Stefan Monnier, 2021/03/15
- [elpa] externals/objed d36e277 22/34: Don't support objed-extend with marked objects, Stefan Monnier, 2021/03/15
- [elpa] externals/objed d3dfcaf 26/34: Add binding for symbol object, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 6ecb81f 27/34: Reformat error message, Stefan Monnier, 2021/03/15
- [elpa] externals/objed 23f5c6e 28/34: Add isearch to keeper commands, Stefan Monnier, 2021/03/15
- [elpa] externals/objed d0fb9c6 31/34: Allow wrap for identifier navigation,
Stefan Monnier <=
- [elpa] externals/objed 35a6892 05/34: Don't provide tests (fix #70), Stefan Monnier, 2021/03/15