/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.136 by abraham, Wed Nov 7 08:03:55 2001 UTC revision 1.137 by abraham, Thu Nov 8 09:57:20 2001 UTC
# Line 2777  SPEC must be a full face spec." Line 2777  SPEC must be a full face spec."
2777               (unless (widget-get widget :custom-form)               (unless (widget-get widget :custom-form)
2778                   (widget-put widget :custom-form custom-face-default-form))                   (widget-put widget :custom-form custom-face-default-form))
2779               (let* ((symbol (widget-value widget))               (let* ((symbol (widget-value widget))
2780                      (spec (or (get symbol 'saved-face)                      (spec (or (get symbol 'customized-face)
2781                                  (get symbol 'saved-face)
2782                                (get symbol 'face-defface-spec)                                (get symbol 'face-defface-spec)
2783                                ;; Attempt to construct it.                                ;; Attempt to construct it.
2784                                (list (list t (custom-face-attributes-get                                (list (list t (custom-face-attributes-get

Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26