[elpa] 265/287: More Robust ergoemacs-end-of-line-or-what (passes noninteractive test)

[Matthew Fidler]

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 7955717ed82aeeb896f8d251d4da80fedf806bed
Author: Matthew L. Fidler <address@hidden>
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