[elpa] externals/objed a341a60 22/59: Fix identifier movement

[Clemens Radermacher]

branch: externals/objed
commit a341a6056af1c766b63c4a4c1aaccf6f1b277a14
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Fix identifier movement
---
 objed.el | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/objed.el b/objed.el
index cb9c80c..5da926c 100644
--- a/objed.el
+++ b/objed.el
@@ -1951,6 +1951,8 @@ back to `objed-initial-object' if no match found."
   (if (and objed--buffer
            (eq objed--object 'identifier))
       (objed--next-identifier)
+    (unless (thing-at-point 'symbol)
+      (re-search-forward  "\\_<" nil t))
     (when (objed--init 'identifier)
       (goto-char (objed--beg)))))
 
@@ -1970,9 +1972,12 @@ back to `objed-initial-object' if no match found."
 (defun objed-goto-next-identifier ()
   "Switch to next identifier."
   (interactive)
-  (when (eq objed--object 'identifier)
-    (objed--next-identifier))
-  (when (objed--switch-to 'identifier)
+  (if (eq objed--object 'identifier)
+      (progn (objed--next-identifier)
+             (objed--update-current-object))
+    (unless (thing-at-point 'symbol)
+      (re-search-forward  "\\_<" nil t))
+    (objed--switch-to 'identifier)
     (goto-char (objed--beg))))
 
 (defun objed-toggle-side ()