Mercurial > emacs
comparison lisp/cus-edit.el @ 48709:d1efe2b99d8a
(custom-face-edit-fix-value): Change :reverse-video to :inverse-video.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sat, 07 Dec 2002 20:47:33 +0000 |
| parents | 8ef126b2490a |
| children | f216c93c4189 |
comparison
equal
deleted
inserted
replaced
| 48708:34e570bbdd18 | 48709:d1efe2b99d8a |
|---|---|
| 2551 (list 'const :format "" :value (nth 0 att)) | 2551 (list 'const :format "" :value (nth 0 att)) |
| 2552 (nth 1 att))) | 2552 (nth 1 att))) |
| 2553 custom-face-attributes)) | 2553 custom-face-attributes)) |
| 2554 | 2554 |
| 2555 (defun custom-face-edit-fix-value (widget value) | 2555 (defun custom-face-edit-fix-value (widget value) |
| 2556 "Ignoring WIDGET, convert :bold and :italic in VALUE to new form." | 2556 "Ignoring WIDGET, convert :bold and :italic in VALUE to new form. |
| 2557 Also change :reverse-video to :inverse-video." | |
| 2557 (if (listp value) | 2558 (if (listp value) |
| 2558 (let (result) | 2559 (let (result) |
| 2559 (while value | 2560 (while value |
| 2560 (let ((key (car value)) | 2561 (let ((key (car value)) |
| 2561 (val (car (cdr value)))) | 2562 (val (car (cdr value)))) |
| 2563 (push :slant result) | 2564 (push :slant result) |
| 2564 (push (if val 'italic 'normal) result)) | 2565 (push (if val 'italic 'normal) result)) |
| 2565 ((eq key :bold) | 2566 ((eq key :bold) |
| 2566 (push :weight result) | 2567 (push :weight result) |
| 2567 (push (if val 'bold 'normal) result)) | 2568 (push (if val 'bold 'normal) result)) |
| 2569 ((eq key :reverse-video) | |
| 2570 (push :inverse-video result) | |
| 2571 (push val result)) | |
| 2568 (t | 2572 (t |
| 2569 (push key result) | 2573 (push key result) |
| 2570 (push val result)))) | 2574 (push val result)))) |
| 2571 (setq value (cdr (cdr value)))) | 2575 (setq value (cdr (cdr value)))) |
| 2572 (setq result (nreverse result)) | 2576 (setq result (nreverse result)) |