Function: sql-set-sqli-buffer-generally

sql-set-sqli-buffer-generally is an interactive and byte-compiled function defined in sql.el.gz.

Signature

(sql-set-sqli-buffer-generally)

Documentation

Set SQLi buffer for all SQL buffers that have none.

This function checks all SQL buffers for their SQLi buffer. If their SQLi buffer is nonexistent or has no process, it is set to the current default SQLi buffer. The current default SQLi buffer is determined using sql-find-sqli-buffer. If sql-buffer is set, sql-set-sqli-hook is run.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/sql.el.gz
(defun sql-set-sqli-buffer-generally ()
  "Set SQLi buffer for all SQL buffers that have none.
This function checks all SQL buffers for their SQLi buffer.  If their
SQLi buffer is nonexistent or has no process, it is set to the current
default SQLi buffer.  The current default SQLi buffer is determined
using `sql-find-sqli-buffer'.  If `sql-buffer' is set,
`sql-set-sqli-hook' is run."
  (interactive)
  (save-excursion
    (let ((buflist (buffer-list))
	  (default-buffer (sql-find-sqli-buffer)))
      (setq-default sql-buffer default-buffer)
      (while (not (null buflist))
	(let ((candidate (car buflist)))
	  (set-buffer candidate)
	  (if (and (derived-mode-p 'sql-mode)
		   (not (sql-buffer-live-p sql-buffer)))
	      (progn
		(setq sql-buffer default-buffer)
		(when default-buffer
                  (run-hooks 'sql-set-sqli-hook)))))
	(setq buflist (cdr buflist))))))