mlf176f2 pushed a commit to branch externals/ergoemacs-mode in repository elpa.
commit ae6bb08536f4eae2c9e123d49cef1a7144aa2cb2 Author: Matthew L. Fidler <[email protected]> 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.
