[elpa] externals/cus-abbrev 1fe96883a9 17/17: Make sure to use the right keymap in editable widgets

[ELPA Syncer]

branch: externals/cus-abbrev
commit 1fe96883a9cfd3c2cc6381049d95e6330907f140
Author: Mauro Aranda <maurooaranda@gmail.com>
Commit: Mauro Aranda <maurooaranda@gmail.com>

    Make sure to use the right keymap in editable widgets
    
    * cus-abbrev.el (customize-all-abbrevs, customize-abbrevs): Evaluate
    the keymap property.
---
 cus-abbrev.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/cus-abbrev.el b/cus-abbrev.el
index abe2e9c766..4e7a51b5fc 100644
--- a/cus-abbrev.el
+++ b/cus-abbrev.el
@@ -271,20 +271,20 @@ this session."
                            :tag (symbol-name table-name)
                            :sample-face 'highlight
                            :custom-abbrev-table table-name
-                           '(list :tag "Abbrev"
+                           `(list :tag "Abbrev"
                                   (string :tag "Abbreviation"
-                                          :keymap custom-abbrev-field-map)
+                                          :keymap ,custom-abbrev-field-map)
                                   (string :tag "Expansion"
-                                          :keymap custom-abbrev-field-map)
+                                          :keymap ,custom-abbrev-field-map)
                                   (choice
                                    :tag "Hook"
                                    (const :tag "None" nil)
-                                   (function :keymap custom-abbrev-field-map))
+                                   (function :keymap ,custom-abbrev-field-map))
                                   (choice
                                    :tag "Enable function"
                                    (const :tag "None" nil)
                                    (function :value always
-                                             :keymap custom-abbrev-field-map))
+                                             :keymap ,custom-abbrev-field-map))
                                   (boolean :tag "Case fixed"))))
       (push abbrev-widget custom-abbrev-widgets)
       (widget-put visibility :widget abbrev-widget)))
@@ -335,20 +335,20 @@ the abbrev table to customize.  If nil, it defaults to 
`global-abbrev-table'."
           (list
            (widget-create 'custom-abbrev :value abbrevs
                           :custom-abbrev-table table-name
-                          '(list :tag "Abbrev"
+                          `(list :tag "Abbrev"
                                  (string :tag "Abbreviation"
-                                         :keymap custom-abbrev-field-map)
+                                         :keymap ,custom-abbrev-field-map)
                                  (string :tag "Expansion"
-                                         :keymap custom-abbrev-field-map)
+                                         :keymap ,custom-abbrev-field-map)
                                  (choice
                                   :tag "Hook"
                                   (const :tag "None" nil)
-                                  (function :keymap custom-abbrev-field-map))
+                                  (function :keymap ,custom-abbrev-field-map))
                                  (choice
                                   :tag "Enable function"
                                   (const :tag "None" nil)
                                   (function :value always
-                                            :keymap custom-abbrev-field-map))
+                                            :keymap ,custom-abbrev-field-map))
                                  (boolean :tag "Case fixed"))))))
   (custom-abbrev--prepare-buffer-2))