[elpa] 245/287: Add back reduced font-lock free ergoemacs-select-text-in-ascii-quote

[Matthew Fidler]

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

commit ae6bb08536f4eae2c9e123d49cef1a7144aa2cb2
Author: Matthew L. Fidler <address@hidden>
Date:   Fri Jun 27 08:00:44 2014 -0500

    Add back reduced font-lock free ergoemacs-select-text-in-ascii-quote
---
 ergoemacs-functions.el |    8 ++++++--
 1 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index 2ff2064..0419c06 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -532,7 +532,6 @@ This will not honor `shift-select-mode'."
 ;; Extends behavior of
 ;; 
http://emacsredux.com/blog/2013/05/22/smarter-navigation-to-the-beginning-of-a-line/
 
-(defvar font-lock)
 (defvar ergoemacs-beginning-of-line-or-what-last-command nil)
 (declare-function comment-search-backward "newcomment.el")
 (declare-function comment-search-forward "newcomment.el")
@@ -834,7 +833,12 @@ This function should select the whole string."
             (goto-char (1+ p1))
             (set-mark (1- p2)))
         (user-error "Cursor not inside quote")))
-     (t (user-error "This command requires `font-lock-mode' or emacs 
24.4+")))))
+     (t
+      (let (p1)
+        (skip-chars-backward "^“\"")
+        (setq p1 (point))
+        (skip-chars-forward "^”\"")
+        (set-mark p1)))))))
 
 (defun ergoemacs-select-text-in-bracket-or-quote ()
   "Select text between the nearest brackets.