mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit 3fb38a89af5771fdd1504ec4d9ecc33d8fe809ba Author: Matthew L. Fidler <[email protected]> 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 "^“\"")
