/[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.176 by rost, Sat Jan 18 03:18:20 2003 UTC revision 1.177 by jpw, Wed Jan 29 21:44:18 2003 UTC
# Line 758  If given a prefix (or a COMMENT argument Line 758  If given a prefix (or a COMMENT argument
758    (interactive (custom-prompt-variable "Set variable: "    (interactive (custom-prompt-variable "Set variable: "
759                                         "Set %s to value: "                                         "Set %s to value: "
760                                         current-prefix-arg))                                         current-prefix-arg))
761      
762    (cond ((string= comment "")    (cond ((string= comment "")
763           (put variable 'variable-comment nil))           (put variable 'variable-comment nil))
764          (comment          (comment
# Line 2515  to switch between two values." Line 2515  to switch between two values."
2515    :button-args '(:help-echo "Control whether this attribute has any effect.")    :button-args '(:help-echo "Control whether this attribute has any effect.")
2516    :value-to-internal 'custom-face-edit-fix-value    :value-to-internal 'custom-face-edit-fix-value
2517    :match (lambda (widget value)    :match (lambda (widget value)
2518             (widget-checklist-match widget             (widget-checklist-match widget
2519                                     (custom-face-edit-fix-value widget value)))                                     (custom-face-edit-fix-value widget value)))
2520    :convert-widget 'custom-face-edit-convert-widget    :convert-widget 'custom-face-edit-convert-widget
2521    :args (mapcar (lambda (att)    :args (mapcar (lambda (att)
# Line 2543  Also change :reverse-video to :inverse-v Line 2543  Also change :reverse-video to :inverse-v
2543                    ((eq key :reverse-video)                    ((eq key :reverse-video)
2544                     (push :inverse-video result)                     (push :inverse-video result)
2545                     (push val result))                     (push val result))
2546                    (t                    (t
2547                     (push key result)                     (push key result)
2548                     (push val result))))                     (push val result))))
2549            (setq value (cdr (cdr value))))            (setq value (cdr (cdr value))))
# Line 2606  Also change :reverse-video to :inverse-v Line 2606  Also change :reverse-video to :inverse-v
2606        (delete-region (car (cdr inactive))        (delete-region (car (cdr inactive))
2607                       (+ (car (cdr inactive)) (cdr (cdr inactive))))                       (+ (car (cdr inactive)) (cdr (cdr inactive))))
2608        (widget-put widget :inactive nil))))        (widget-put widget :inactive nil))))
2609          
2610    
2611  (defun custom-face-edit-attribute-tag (widget)  (defun custom-face-edit-attribute-tag (widget)
2612    "Returns the first :tag property in WIDGET or one of its children."    "Returns the first :tag property in WIDGET or one of its children."
# Line 3709  or (if there were none) at the end of th Line 3709  or (if there were none) at the end of th
3709             (when (or (and spec             (when (or (and spec
3710                            (eq (nth 0 spec) 'user)                            (eq (nth 0 spec) 'user)
3711                            (eq (nth 1 spec) 'set))                            (eq (nth 1 spec) 'set))
3712                       comment)                       comment
3713                         (and (null spec) (get symbol 'saved-value)))
3714               (unless (bolp)               (unless (bolp)
3715                 (princ "\n"))                 (princ "\n"))
3716               (princ " '(")               (princ " '(")
# Line 3779  or (if there were none) at the end of th Line 3780  or (if there were none) at the end of th
3780             (when (or (and theme-spec             (when (or (and theme-spec
3781                            (eq (nth 0 theme-spec) 'user)                            (eq (nth 0 theme-spec) 'user)
3782                            (eq (nth 1 theme-spec) 'set))                            (eq (nth 1 theme-spec) 'set))
3783                       comment)                       comment
3784                         (and (null theme-spec) (get symbol 'saved-face)))
3785               ;; Don't print default face here.               ;; Don't print default face here.
3786               (unless (bolp)               (unless (bolp)
3787                 (princ "\n"))                 (princ "\n"))
# Line 3833  or (if there were none) at the end of th Line 3835  or (if there were none) at the end of th
3835        (mapatoms mapper)        (mapatoms mapper)
3836        (when started-writing        (when started-writing
3837          (princ ")\n")))))          (princ ")\n")))))
3838                            
3839  (defun custom-save-loaded-themes ()  (defun custom-save-loaded-themes ()
3840    (let ((themes (reverse (get 'user 'theme-loads-themes)))    (let ((themes (reverse (get 'user 'theme-loads-themes)))
3841          (standard-output (current-buffer)))          (standard-output (current-buffer)))
# Line 3843  or (if there were none) at the end of th Line 3845  or (if there were none) at the end of th
3845        (mapc (lambda (theme)        (mapc (lambda (theme)
3846                (princ "\n   '")                (princ "\n   '")
3847                (prin1 theme)) themes)                (prin1 theme)) themes)
3848        (princ " )\n"))))        (princ " )\n"))))
3849    
3850  ;;;###autoload  ;;;###autoload
3851  (defun customize-save-customized ()  (defun customize-save-customized ()

Legend:
Removed from v.1.176  
changed lines
  Added in v.1.177

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