Function: idlwave-revoke-license-to-kill

idlwave-revoke-license-to-kill is a byte-compiled function defined in idlwave.el.gz.

Signature

(idlwave-revoke-license-to-kill)

Documentation

Remove BUFFER from the buffers which may be killed.

Killing would be done by idlwave-do-kill-autoloaded-buffers. Intended for after-save-hook.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/idlwave.el.gz
(defun idlwave-revoke-license-to-kill ()
  "Remove BUFFER from the buffers which may be killed.
Killing would be done by `idlwave-do-kill-autoloaded-buffers'.
Intended for `after-save-hook'."
  (let* ((buf (current-buffer))
	 (entry (assq buf idlwave-outlawed-buffers)))
    ;; Revoke license
    (if entry
	(setq idlwave-outlawed-buffers
	      (delq entry idlwave-outlawed-buffers)))
    ;; Remove this function from the hook.
    (remove-hook 'after-save-hook #'idlwave-revoke-license-to-kill 'local)))