branch: externals/objed commit 23be1ddfecf466e7052f1dc02a8544eab16a05bc Author: Clemens Radermacher <clem...@posteo.net> Commit: Clemens Radermacher <clem...@posteo.net>
Don't use sentences for context object expansion --- objed.el | 21 ++++++--------------- 1 file changed, 6 insertions(+), 15 deletions(-) diff --git a/objed.el b/objed.el index 118d98b..68de1ac 100644 --- a/objed.el +++ b/objed.el @@ -1801,24 +1801,15 @@ Repeated calls will continue guessing objects and try to expand to an object containing the current one." ;; stop with defun for now (unless (eq objed--object 'defun) - (let ((objed--context-objects - ;; TODO: docstrings as well - (if (or (and (objed--in-comment-p) - (not (objed--at-comment-p))) - (and (derived-mode-p 'text-mode) - ;; sentences in p tags? - (not (derived-mode-p 'sgml-mode)))) - (append (list 'sentence) objed--context-objects) - objed--context-objects)) - (s nil)) + (let ((s nil)) ;; TODO: make direction, position dependend and stay at beg/end? (if (setq s (objed--get-context-state objed--context-objects)) - (progn (objed--restore-state s) - (force-mode-line-update) - (goto-char (objed--beg))) + (progn (objed--restore-state s) + (force-mode-line-update) + (goto-char (objed--beg))) ;; fallback if nothing else found - (or (objed--switch-to 'defun 'inner) - (objed--switch-to 'line 'inner)))))) + (or (objed--switch-to 'defun 'inner) + (objed--switch-to 'line 'inner)))))) (defun objed--sexp-fallback (&optional pos)