Function: indent-bars--cleanup-stipple-remaps

indent-bars--cleanup-stipple-remaps is a natively compiled function defined in indent-bars.el.

Signature

(indent-bars--cleanup-stipple-remaps BUF)

Documentation

Clean up unused stipple face remaps for buffer BUF.

Source Code

;; Defined in /nix/store/zkcdcnmcj3605fj09x584bf58d85brax-emacs-packages-deps/share/emacs/site-lisp/elpa/indent-bars-1.0.1/indent-bars.el
(defun indent-bars--cleanup-stipple-remaps (buf)
  "Clean up unused stipple face remaps for buffer BUF."
  (when-let* (((buffer-live-p buf))
	      (wins (get-buffer-window-list buf nil t))
	      (whrs (cl-loop for win in wins
			     collect (window-parameter win 'indent-bars-whr)))
	      (rmp-hsh (buffer-local-value 'indent-bars--stipple-remaps buf))
	      (rkeys (hash-table-keys rmp-hsh))
	      (unneeded (seq-difference rkeys whrs)))
    (with-current-buffer buf ;N.B. face-remapping-alist is buffer-local
      (dolist (rk unneeded)
	(indent-bars--remove-plist-remaps (gethash rk rmp-hsh))
	(remhash rk rmp-hsh))
      (setq indent-bars--needs-cleanup nil))))