为sql-mode添加sql-send-line函数

sql-mode有一堆的sql-send函数,如:
sql-send-region
sql-send-paragraph
sel-send-buffer
但缺少一个sql-send-line,把当前行方便的send to sql-client
今晚写了个,不难, 参照sql-send-paragraph函数写的:


;;; Sql Mode
(defun sql-send-line ()
  "send current line to SQL buffer"
  (interactive)
  (let ((start (save-excursion
                 (move-beginning-of-line 1)
                 (point)))
        (end (save-excursion
               (move-end-of-line 1)
               (point))))
    (sql-send-region start end)))
(add-hook 'sql-mode-hook
          '(lambda ()
             (define-key sql-mode-map (kbd "C-c C-e") 'sql-send-line)))