Module `Ecaml__.Keymap`

include Ecaml__.Import.Value.Subtype

type value
type t = private value: We expose private value for free identity conversions when the value is nested in some covariant type, e.g. (symbols : Symbol.t list :> Value.t list) rather than List.map symbols ~f:Symbol.to_value.

val sexp_of_t : t -> Ppx_sexp_conv_lib.Sexp.t

val eq : t -> t -> bool: eq t1 t2 = Value.eq (to_value t1) (to_value t2), i.e. eq checks whether the Emacs values underlying t1 and t2 are physically equal. This is different than phys_equal t1 t2, because we don't always wrap eq Emacs values in phys_equal OCaml values. I.e. phys_equal t1 t2 implies eq t1 t2, but not the converse.

val is_in_subtype : value -> bool

include Ecaml_value__.Valueable0.S with type t := t

type t
type 'a type_

val of_value_exn : Ecaml_value__.Value0.t -> t
val to_value : t -> Ecaml_value__.Value0.t
val type_ : t type_
val t : t type_

type keymap := t

include Core_kernel.Equal.S with type t := t

type t

val equal : t Core_kernel.Equal.equal

val parent : t -> t option: (describe-function 'keymap-parent) (Info-goto-node "(elisp)Inheritance and Keymaps")

val set_parent : t -> t option -> unit: (describe-function 'set-keymap-parent) (Info-goto-node "(elisp)Inheritance and Keymaps")

module Kind : sig ... end

val create : ?⁠kind:Kind.t -> ?⁠menu_name:string -> unit -> t: (describe-function 'make-sparse-keymap) (describe-function 'make-keymap) (Info-goto-node "(elisp) Creating Keymaps")

val deep_copy : t -> t: (describe-function 'copy-keymap) (Info-goto-node "(elisp) Creating Keymaps")

val global : unit -> t: (describe-function 'current-global-map) (Info-goto-node "(elisp)Controlling Active Maps")

val set_global : t -> unit: (describe-function 'use-global-map) (Info-goto-node "(elisp)Controlling Active Maps")

val set_transient : ?⁠keep_if_used:bool -> t -> unit: (describe-function 'set-transient-map)

module Entry : sig ... end

val lookup_key_exn : ?⁠accept_defaults:bool -> t -> Ecaml.Key_sequence.t -> Entry.t: (describe-function 'lookup-key) (Info-goto-node "(elisp)Functions for Key Lookup")

val define_key : t -> Ecaml.Key_sequence.t -> Entry.t -> unit: (describe-function 'define-key) (Info-goto-node "(elisp)Functions for Key Lookup")

val minor_mode_map_alist : (Ecaml.Symbol.t * t) list Ecaml.Var.t: (describe-variable 'minor-mode-map-alist)

val override_minor_mode_map : Ecaml.Symbol.t -> f:(t -> unit) -> unit

override_minor_mode_map minor_mode ~f overrides the bindings for minor_mode in the current buffer with the result of calling f on the keymap for minor_mode.

If no such map exists, an empty sparse map is created.

(describe-variable 'minor-mode-map-alist) (describe-variable 'minor-mode-overriding-map-alist) (Info-goto-node "(elisp)Controlling Active Maps")

val special_event_map : t Ecaml.Var.t: (describe-variable 'special-event-map)

val suppress_keymap : ?⁠suppress_digits:bool -> t -> unit: (describe-function 'suppress-keymap)