;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/super.el

(let ((super-global-keys))
  (defun super-global-set-key (key fun)
    "Make a super global KEY bound to FUNCTION."
    (global-set-key key fun)
    (add-to-list 'super-global-keys key))
  (declare-function super-global-set-key nil)

  (defun disable-super-global-keys (&optional map debug)
    "Disable the super global keys so they can be assigned.
Use the current map unless MAP is provided."
    (when debug
      (message "Begin disabling keys ...") )
    (dolist (k super-global-keys)
      (when debug
        (message "disabled: %s" k) )
      (define-key (or map (current-local-map)) k nil) ))
  (declare-function disable-super-global-keys nil) )

(provide 'super)