[elpa] externals/objed d0fb9c6 31/34: Allow wrap for identifier navigation

[Stefan Monnier]

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 ()