[elpa] 246/287: Prefer emacs 24.4 backward-up-list

[Matthew Fidler]

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

commit 3fb38a89af5771fdd1504ec4d9ecc33d8fe809ba
Author: Matthew L. Fidler <address@hidden>
Date:   Fri Jun 27 08:03:20 2014 -0500

    Prefer emacs 24.4 backward-up-list
---
 ergoemacs-functions.el |   16 ++++++++--------
 1 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index 0419c06..2c47821 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -814,14 +814,6 @@ This function should select the whole string."
   (interactive)
   (let (p1 p2)
     (cond
-     ((and font-lock-mode (memq (get-text-property (point) 'face)
-                                '(font-lock-string-face font-lock-doc-face)))
-      (setq p1 (or (previous-single-property-change (point) 'face 
(current-buffer) (point-min)) (point-min)))
-      (setq p2 (or (next-single-property-change (point) 'face (current-buffer) 
(point-max)) (point-max)))
-      (goto-char (1+ p1))
-      (set-mark (1- p2)))
-     (font-lock-mode
-      (user-error "Cursor not inside quote"))
      ((and (<= 24 emacs-major-version)
            (<= 4 emacs-minor-version))
       (if (nth 3 (syntax-ppss))
@@ -833,6 +825,14 @@ This function should select the whole string."
             (goto-char (1+ p1))
             (set-mark (1- p2)))
         (user-error "Cursor not inside quote")))
+     ((and font-lock-mode (memq (get-text-property (point) 'face)
+                                '(font-lock-string-face font-lock-doc-face)))
+      (setq p1 (or (previous-single-property-change (point) 'face 
(current-buffer) (point-min)) (point-min)))
+      (setq p2 (or (next-single-property-change (point) 'face (current-buffer) 
(point-max)) (point-max)))
+      (goto-char (1+ p1))
+      (set-mark (1- p2)))
+     (font-lock-mode
+      (user-error "Cursor not inside quote"))
      (t
       (let (p1)
         (skip-chars-backward "^“\"")