Fix some stuff

init.el

@@ -657,11 +657,23 @@ directory. Otherwise, run `find-file' on that file."
   (require 'mozc-posframe)
   (setq mozc-candidate-style 'posframe))
 
-;; (defun my/-fix-mozc-face (face)
-;;   "Remove the (type graphics x w32) requirement for the mozc face FACE."
-;;   (let ((spec (custom-face-get-current-spec-unfiltered face)))
-;;     (cl-loop for ent in spec
-;;              for )))
+(face-spec-set 'mozc-cand-overlay-focused-face
+               '((t :foreground unspecified :background unspecified
+                    :inverse-video unspecified :inherit region)))
+(face-spec-set 'mozc-cand-overlay-odd-face
+               '((t :foreground unspecified :background unspecified
+                    :inverse-video unspecified :underline unspecified
+                    :inherit default)))
+(face-spec-set 'mozc-cand-overlay-even-face
+               '((t :foreground unspecified :background unspecified
+                    :inverse-video unspecified :underline unspecified
+                    :inherit default)))
+(face-spec-set 'mozc-cand-overlay-footer-face
+               '((t :foreground unspecified :background unspecified
+                    :inverse-video unspecified :inherit mode-line)))
+(face-spec-set 'mozc-preedit-selected-face
+               '((t :inverse-video unspecified :underline t
+                    :inherit region)))
 
 ;; mozc status bar stuff
 (defun my/-update-waybar-fcitx-state ()
@@ -3796,10 +3808,10 @@ buffers `helpful--sym' to `my/helpful-symbol-history'."
   "Descrive the plist of SYMBOL in a buffer."
   (interactive (list (intern (completing-read
                               "Symbol: "
-                              (let ((syms))
-                                (mapatoms (##push (symbol-name %) syms))
-                                syms)
-                              nil t))))
+                              obarray
+                              nil t nil t
+                              (and-let* ((sym (symbol-at-point)))
+                                (symbol-name sym))))))
   (with-current-buffer (get-buffer-create "*describe-symbol-plist*")
     (unless (derived-mode-p 'special-mode)
       (special-mode))