equal
deleted
inserted
replaced
3093 ;; This enable "define" and "&var" syntax. |
3093 ;; This enable "define" and "&var" syntax. |
3094 (setq sql-oracle-scan-on nil) |
3094 (setq sql-oracle-scan-on nil) |
3095 |
3095 |
3096 (add-hook 'sql-interactive-mode-hook (lambda () (toggle-truncate-lines 1))) |
3096 (add-hook 'sql-interactive-mode-hook (lambda () (toggle-truncate-lines 1))) |
3097 |
3097 |
|
3098 (defun my-sql-explain-paragraph () |
|
3099 "Send the current paragraph to the SQL process with \"explain \" keyword. |
|
3100 Works at least for MySql/MariaDB." |
|
3101 (interactive) |
|
3102 (let ((start (save-excursion |
|
3103 (backward-paragraph) |
|
3104 (point))) |
|
3105 (end (save-excursion |
|
3106 (forward-paragraph) |
|
3107 (point)))) |
|
3108 (sql-send-string (concat "explain " (buffer-substring-no-properties start end))))) |
|
3109 (eval-after-load 'sql-mode |
|
3110 (define-key sql-mode-map (kbd "C-c C-e") 'my-sql-explain-paragraph)) |
|
3111 |
3098 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3112 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
3099 (message "backuping") |
3113 (message "backuping") |
3100 |
3114 |
3101 (setq |
3115 (setq |
3102 make-backup-files t |
3116 make-backup-files t |