Changeset 4148 for trunk/lisp/cus-theme.el
- Timestamp:
- 08/18/06 08:35:31 (2 years ago)
- Files:
-
- trunk/lisp/cus-theme.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/cus-theme.el
r4037 r4148 100 100 (widget-create 'push-button 101 101 :notify (lambda (&rest ignore) 102 (when (y-or-n-p "Discard current changes? ")102 (when (y-or-n-p "Discard current changes? ") 103 103 (kill-buffer (current-buffer)) 104 104 (customize-create-theme))) … … 138 138 (widget-create 'push-button 139 139 :notify (lambda (&rest ignore) 140 (when (y-or-n-p "Discard current changes? ")140 (when (y-or-n-p "Discard current changes? ") 141 141 (kill-buffer (current-buffer)) 142 142 (customize-create-theme))) … … 291 291 (interactive) 292 292 (when (or (null custom-theme-variables) 293 (if (y-or-n-p "Discard current changes? ")293 (if (y-or-n-p "Discard current changes? ") 294 294 (progn (customize-create-theme) t))) 295 295 (let ((theme (call-interactively 'custom-theme-merge-theme)))
