[elpa] externals/objed 65823e0 103/166: Improve context fallback

[Clemens Radermacher]

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

    Improve context fallback
---
 objed.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/objed.el b/objed.el
index e8d7f41..9ecb8f8 100644
--- a/objed.el
+++ b/objed.el
@@ -1802,8 +1802,13 @@ to an object containing the current one."
                  (force-mode-line-update)
                  (goto-char (objed--beg)))
         ;; fallback if nothing else found
-        (or (objed--switch-to 'defun 'inner)
-            (objed--switch-to 'line 'inner))))))
+        (let ((fallback (objed--get-object 'defun 'whole)))
+          (if (and fallback
+                   (< (objed--alt-beg fallback)
+                      (objed--beg)))
+              (objed--switch-to 'defun 'inner)
+            (or (objed--switch-to 'defun 'whole)
+                (objed--switch-to 'line 'inner))))))))
 
 
 (defun objed--sexp-fallback (&optional pos)