emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Bug, probably related to Custom Themes.


From: Chong Yidong
Subject: Re: Bug, probably related to Custom Themes.
Date: Wed, 21 Dec 2005 16:19:59 -0500
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux)

This completely untested patch may do what you want.

*** emacs/lisp/cus-edit.el.~1.250.~     2005-12-21 16:18:52.000000000 -0500
--- emacs/lisp/cus-edit.el      2005-12-21 16:19:18.000000000 -0500
***************
*** 2745,2752 ****
        ;; save resets to standard when no theme set the value.
        (if (null (cdr (get symbol 'theme-value)))
          (put symbol 'theme-value nil))
!       (put symbol 'saved-variable-comment nil)
!       (custom-save-all))
      (widget-put widget :custom-state 'unknown)
      ;; This call will possibly make the comment invisible
      (custom-redraw widget)))
--- 2745,2751 ----
        ;; save resets to standard when no theme set the value.
        (if (null (cdr (get symbol 'theme-value)))
          (put symbol 'theme-value nil))
!       (put symbol 'saved-variable-comment nil))
      (widget-put widget :custom-state 'unknown)
      ;; This call will possibly make the comment invisible
      (custom-redraw widget)))
***************
*** 3406,3413 ****
        ;; Do not explictly save resets to standards without themes.
        (if (null (cdr (get symbol 'theme-face)))
          (put symbol  'theme-face nil))
!       (put symbol 'saved-face-comment nil)
!       (custom-save-all))
      (face-spec-set symbol value)
      (put symbol 'face-comment nil)
      (widget-value-set child value)
--- 3405,3411 ----
        ;; Do not explictly save resets to standards without themes.
        (if (null (cdr (get symbol 'theme-face)))
          (put symbol  'theme-face nil))
!       (put symbol 'saved-face-comment nil))
      (face-spec-set symbol value)
      (put symbol 'face-comment nil)
      (widget-value-set child value)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]