Commit 3035b156 authored by Miles Bader's avatar Miles Bader
Browse files

(sql-magic-go): Use comint-bol instead of explicitly matching

(sql-copy-column): Use comint-line-beginning-position instead of
  explicitly matching comint-prompt-regexp.
parent 28bc09d6
......@@ -664,8 +664,8 @@ can be changed by some entry functions to provide more hilighting.")
(self-insert-command (prefix-numeric-value arg))
(if (and (equal sql-electric-stuff 'go)
(looking-at (concat sql-prompt-regexp "go\\b"))))
(comint-bol nil)
(looking-at "go\\b")))
(defun sql-magic-semicolon (arg)
......@@ -885,21 +885,21 @@ Inserts SELECT or commas if appropriate."
(progn (forward-char 1) (backward-sexp 1) (point))
(progn (forward-sexp 1) (point))))
(goto-char (point-max))
(let ((bol (comint-line-beginning-position)))
;; if empty command line, insert SELECT
((save-excursion (beginning-of-line)
(looking-at (concat comint-prompt-regexp "$")))
((= bol (point))
(insert "SELECT "))
;; else if appending to INTO .* (, SELECT or ORDER BY, insert a comma
(re-search-backward "\\b\\(\\(into\\s-+\\S-+\\s-+(\\)\\|select\\|order by\\) .+"
(save-excursion (beginning-of-line) (point)) t))
bol t))
(insert ", "))
;; else insert a space
(if (eq (preceding-char) ? )
(insert " "))))
(insert " ")))))
;; in any case, insert the column
(insert column)
(message "%s" column))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment