mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 7955717ed82aeeb896f8d251d4da80fedf806bed Author: Matthew L. Fidler <[email protected]> Date: Mon Jun 30 10:06:01 2014 -0500 More Robust ergoemacs-end-of-line-or-what (passes noninteractive test) --- ergoemacs-functions.el | 14 +++++++------- 1 files changed, 7 insertions(+), 7 deletions(-) diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el index e60e46f..3a00ed8 100644 --- a/ergoemacs-functions.el +++ b/ergoemacs-functions.el @@ -771,18 +771,18 @@ the prefix arguments of `end-of-buffer', (goto-char cs) (skip-syntax-backward " " (point-at-bol)) (push (point) pts))))) + (when pts + (setq pts (sort pts '<)) + (dolist (x pts) + (unless (<= x (point)) + (push x tmp))) + (setq pts (reverse tmp))) (cond ((not pts) (call-interactively 'move-end-of-line) (setq this-command 'move-end-of-line)) (t - (setq pts (sort pts '<)) - (dolist (x pts) - (unless (<= x (point)) - (push x tmp))) - (setq pts (reverse tmp)) - (when pts - (goto-char (nth 0 pts))))))) + (goto-char (nth 0 pts)))))) (setq ergoemacs-beginning-of-line-or-what-last-command this-command)) ;;; TEXT SELECTION RELATED
