--- a/.elisp/settings/50.localfuncs.el
+++ b/.elisp/settings/50.localfuncs.el
@@ -60,3 +60,17 @@ Symbols matching the text at point are p
 (defun hg-rm-this-file ()
   (interactive)
   (shell-command-to-string (concat "hg rm " (shell-quote-argument buffer-file-name))))
+
+;; Lifted from http://code.google.com/p/ergoemacs/
+(defun select-text-in-quote ()
+  "Select text between the nearest left and right delimiters.
+Delimiters are paired characters: ()[]<>«»“”‘’「」, including \"\"."
+ (interactive)
+ (let (b1 b2)
+   (skip-chars-backward "^<>(“{[「«\"‘")
+   (setq b1 (point))
+   (skip-chars-forward "^<>)”}]」»\"’")
+   (setq b2 (point))
+   (set-mark b1)
+   )
+ )