Кроме того, если кому-то, как я, нравится другое представление связи,
вот мой
Вот как мои sql буферы назвали: "драйвер: // пользователь @ сервер / база данных"
<code>
(defun sql-make-alternate-buffer-name ()
(concat (concat (prin1-to-string sql-interactive-product) "://")
(if (string= "" sql-user)
(if (string= "" (user-login-name))
()
(concat (user-login-name) "/"))
(concat sql-user "@"))
(concat sql-server "/")
(if (string= "" sql-database)
(if (string= "" sql-server)
(system-name)
sql-server)
sql-database)))
SQL буферы, созданные в sql-interactive-mode, который запускает sql-interactive-mode-hook,
поэтому нет необходимости запускать sql-rename-buffer вручную
(add-hook 'sql-interactive-mode-hook
(lambda () (sql-rename-buffer)))