Fix typo in pre-filter for underline property

* lisp/cus-face.el (custom-face-attributes): Fix typo (Bug#64347)

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index ec89b4f7ff69a1551cbbb834f41f60b7b6873813..a3a27263a7c4d016cb0fdc7b9f4b11173022480b 100644 (file)
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -158,7 +158,7 @@
                    (or (and (consp real-value) (plist-get real-value :style))
                        'line))
                    (position (and (consp real-value)
-                                  (plist-get real-value :style))))
+                                  (plist-get real-value :position))))
               (list :color color :style style :position position))))
      ;; filter to make customized-value suitable for storing
      ,(lambda (cus-value)