3113                  (point)))

  3113                  (point)))

  3114         (end (save-excursion

  3114         (end (save-excursion

  3115                (forward-paragraph)

  3115                (forward-paragraph)

  3116                (point))))

  3116                (point))))

  3117     (sql-send-string (concat "explain " (buffer-substring-no-properties start end)))))

  3117     (sql-send-string (concat "explain " (buffer-substring-no-properties start end)))))

  3119   (define-key sql-mode-map (kbd "C-c C-e") 'my-sql-explain-paragraph))

  3120   (define-key sql-mode-map (kbd "C-c C-e") 'my-sql-explain-paragraph))

  3120 

  3121 

  3121 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  3122 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

  3122 (message "backuping")

  3123 (message "backuping")

  3123 

  3124