Change name of evil-collection-bindings-record
Use two dashes for internal variable
This commit is contained in:
parent
0a913f9df6
commit
f9c38d26ea
|
@ -179,7 +179,7 @@ This is a list of strings that are suitable for input to `kbd'."
|
||||||
:type '(repeat string)
|
:type '(repeat string)
|
||||||
:group 'evil-collection)
|
:group 'evil-collection)
|
||||||
|
|
||||||
(defvar evil-collection-bindings-record (make-hash-table :test 'eq)
|
(defvar evil-collection--bindings-record (make-hash-table :test 'eq)
|
||||||
"Record of bindings currently made by Evil Collection. This is
|
"Record of bindings currently made by Evil Collection. This is
|
||||||
a hash-table with the package symbol as a key. The associated
|
a hash-table with the package symbol as a key. The associated
|
||||||
values are the package's bindings which are stored as a hash-table with key
|
values are the package's bindings which are stored as a hash-table with key
|
||||||
|
@ -201,11 +201,11 @@ compatibility.")
|
||||||
"Wrapper for `evil-define-key*' with additional features.
|
"Wrapper for `evil-define-key*' with additional features.
|
||||||
Filter keys on the basis of `evil-collection-key-whitelist' and
|
Filter keys on the basis of `evil-collection-key-whitelist' and
|
||||||
`evil-collection-key-blacklist'. Store bindings in
|
`evil-collection-key-blacklist'. Store bindings in
|
||||||
`evil-collection-bindings-record'."
|
`evil-collection--bindings-record'."
|
||||||
(declare (indent defun))
|
(declare (indent defun))
|
||||||
(let* ((whitelist (mapcar 'kbd evil-collection-key-whitelist))
|
(let* ((whitelist (mapcar 'kbd evil-collection-key-whitelist))
|
||||||
(blacklist (mapcar 'kbd evil-collection-key-blacklist))
|
(blacklist (mapcar 'kbd evil-collection-key-blacklist))
|
||||||
(record (gethash package evil-collection-bindings-record
|
(record (gethash package evil-collection--bindings-record
|
||||||
(make-hash-table :test 'equal))))
|
(make-hash-table :test 'equal))))
|
||||||
(while bindings
|
(while bindings
|
||||||
(let ((key (pop bindings))
|
(let ((key (pop bindings))
|
||||||
|
@ -219,7 +219,7 @@ Filter keys on the basis of `evil-collection-key-whitelist' and
|
||||||
(error
|
(error
|
||||||
(message "evil-collection: Bad binding %s"
|
(message "evil-collection: Bad binding %s"
|
||||||
'(evil-define-key* ',state ,map-sym ,key ',def))))))))
|
'(evil-define-key* ',state ,map-sym ,key ',def))))))))
|
||||||
(puthash package record evil-collection-bindings-record)))
|
(puthash package record evil-collection--bindings-record)))
|
||||||
|
|
||||||
(defun evil-collection-describe-all-bindings ()
|
(defun evil-collection-describe-all-bindings ()
|
||||||
"Print bindings made by Evil Collection to separate buffer."
|
"Print bindings made by Evil Collection to separate buffer."
|
||||||
|
@ -244,7 +244,7 @@ Filter keys on the basis of `evil-collection-key-whitelist' and
|
||||||
(insert (format "| %s | %S |\n" (key-description key) def))))
|
(insert (format "| %s | %S |\n" (key-description key) def))))
|
||||||
bindings)
|
bindings)
|
||||||
(org-table-align))
|
(org-table-align))
|
||||||
evil-collection-bindings-record))))
|
evil-collection--bindings-record))))
|
||||||
|
|
||||||
(defun evil-collection--translate-key (state keymap-symbol
|
(defun evil-collection--translate-key (state keymap-symbol
|
||||||
translations
|
translations
|
||||||
|
|
Loading…
Reference in New Issue