[Emacs-diffs] Changes to emacs/lisp/play/mpuz.el

[Eli Zaretskii]

Index: emacs/lisp/play/mpuz.el
diff -c emacs/lisp/play/mpuz.el:1.21 emacs/lisp/play/mpuz.el:1.22
*** emacs/lisp/play/mpuz.el:1.21        Fri Mar  8 03:11:21 2002
--- emacs/lisp/play/mpuz.el     Sun Mar 10 12:27:48 2002
***************
*** 57,84 ****
    :type 'boolean
    :group 'mpuz)
  
! (defcustom mpuz-unsolved-face
!   `(,(facemenu-get-face 'fg:red) bold)
    "*Face to use for letters to be solved."
-   :type '(repeat face)
    :group 'mpuz)
  
! (defcustom mpuz-solved-face
!   `(,(facemenu-get-face 'fg:green) bold)
    "*Face to use for solved digits."
-   :type '(repeat face)
    :group 'mpuz)
  
! (defcustom mpuz-trivial-face
!   `(,(facemenu-get-face 'fg:blue) bold)
    "*Face to use for trivial digits solved for you."
-   :type '(repeat face)
    :group 'mpuz)
  
! (defcustom mpuz-text-face
!   '(variable-pitch)
    "*Face to use for text on right."
-   :type '(repeat face)
    :group 'mpuz)
  
  
--- 57,83 ----
    :type 'boolean
    :group 'mpuz)
  
! (defface mpuz-unsolved-face
!   '((((class color)) (:foreground "red1" :bold t))
!     (t (:bold t)))
    "*Face to use for letters to be solved."
    :group 'mpuz)
  
! (defface mpuz-solved-face
!   '((((class color)) (:foreground "green1" :bold t))
!     (t (:bold t)))
    "*Face to use for solved digits."
    :group 'mpuz)
  
! (defface mpuz-trivial-face
!   '((((class color)) (:foreground "blue" :bold t))
!     (t (:bold t)))
    "*Face to use for trivial digits solved for you."
    :group 'mpuz)
  
! (defface mpuz-text-face
!   '((t (:inherit variable-pitch)))
    "*Face to use for text on right."
    :group 'mpuz)
  
  
***************
*** 296,302 ****
  (defun mpuz-create-buffer ()
    "Create (or recreate) the puzzle buffer. Return it."
    (let ((buf (get-buffer-create "*Mult Puzzle*"))
!       (face `(face ,mpuz-text-face))
        buffer-read-only)
      (save-excursion
        (set-buffer buf)
--- 295,301 ----
  (defun mpuz-create-buffer ()
    "Create (or recreate) the puzzle buffer. Return it."
    (let ((buf (get-buffer-create "*Mult Puzzle*"))
!       (face '(face mpuz-text-face))
        buffer-read-only)
      (save-excursion
        (set-buffer buf)
***************
*** 347,355 ****
                  (+ digit ?0)
                (+ (mpuz-to-letter digit) ?A)))
        (face `(face
!               ,(cond ((aref mpuz-trivial-digits digit) mpuz-trivial-face)
!                      ((aref mpuz-found-digits digit) mpuz-solved-face)
!                      (mpuz-unsolved-face))))
        buffer-read-only)
      (mapc (lambda (square)
            (goto-line (car square))    ; line before column!
--- 346,354 ----
                  (+ digit ?0)
                (+ (mpuz-to-letter digit) ?A)))
        (face `(face
!               ,(cond ((aref mpuz-trivial-digits digit) 'mpuz-trivial-face)
!                      ((aref mpuz-found-digits digit) 'mpuz-solved-face)
!                      ('mpuz-unsolved-face))))
        buffer-read-only)
      (mapc (lambda (square)
            (goto-line (car square))    ; line before column!