Remove clojure-mark-string

Other packages offer better ways to mark strings (e.g. expand-region).

Author: bbatsov

CHANGELOG.md

@@ -6,6 +6,7 @@
 
 * Add `.cljc` to `auto-mode-alist`.
 * [#281](https://github.com/clojure-emacs/clojure-mode/pull/281): Add support for namespace-prefixed definition forms.
+* Remove `clojure-mark-string`.
 
 ### Bugs fixed
 

clojure-mode.el

@@ -149,7 +149,7 @@ For example, \[ is allowed in :db/id[:db.part/user]."
     (easy-menu-define clojure-mode-menu map "Clojure Mode Menu"
       '("Clojure"
         ["Toggle between string & keyword" clojure-toggle-keyword-string]
-        ["Mark string" clojure-mark-string]
+        "--"
         ["Insert ns form at point" clojure-insert-ns-form-at-point]
         ["Insert ns form at beginning" clojure-insert-ns-form]
         ["Update ns form" clojure-update-ns]
@@ -904,35 +904,6 @@ nil."
   (when (not (= (point) (point-min)))
     (buffer-substring-no-properties (point) (1- (point)))))
 
-;; TODO: Deal with the fact that when point is exactly at the
-;; beginning of a string, it thinks that is the end.
-(defun clojure-string-end ()
-  "Return the position of the \" that ends the string at point.
-
-Note that point must be inside the string - if point is
-positioned at the opening quote, incorrect results will be
-returned."
-  (save-excursion
-    (save-match-data
-      ;; If we're at the end of the string, just return point.
-      (if (and (string= (clojure-char-at-point) "\"")
-               (not (string= (clojure-char-before-point) "\\")))
-          (point)
-        ;; We don't want to get screwed by starting out at the
-        ;; backslash in an escaped quote.
-        (when (string= (clojure-char-at-point) "\\")
-          (backward-char))
-        ;; Look for a quote not preceeded by a backslash
-        (re-search-forward "[^\\]\\\(\\\"\\)")
-        (match-beginning 1)))))
-
-(defun clojure-mark-string ()
-  "Mark the string at point."
-  (interactive)
-  (goto-char (clojure-string-start))
-  (forward-char)
-  (set-mark (clojure-string-end)))
-
 (defun clojure-toggle-keyword-string ()
   "Convert the string or keyword at point to keyword or string."
   (interactive)