Re: [STUMP] Patch: Non ASCII Chars in Messages

[David Hansen]

I apologize for the noise and promise to test the next patch
before sending it:

*** mode-line.lisp      25 Oct 2006 17:29:55 +0200      1.2
--- mode-line.lisp      29 Oct 2006 21:59:16 +0100      
***************
*** 158,168 ****
                            *mode-line-pad-x*
                            (+ (xlib:font-ascent (xlib:gcontext-font 
(mode-line-gc ml)))
                               *mode-line-pad-y*)
!                           string)
      ;; Just clear what we need to. This reduces flicker.
      (xlib:clear-area (mode-line-window ml)
                     :x (+ *mode-line-pad-x*
!                          (xlib:text-width (xlib:gcontext-font (mode-line-gc 
ml)) string)))))
  
  (defun toggle-mode-line (screen &optional (format '*screen-mode-line-format*))
    (if (screen-mode-line screen)
--- 158,172 ----
                            *mode-line-pad-x*
                            (+ (xlib:font-ascent (xlib:gcontext-font 
(mode-line-gc ml)))
                               *mode-line-pad-y*)
!                           string
!                             :translate #'translate-id)
      ;; Just clear what we need to. This reduces flicker.
      (xlib:clear-area (mode-line-window ml)
                     :x (+ *mode-line-pad-x*
!                          (xlib:text-width
!                             (xlib:gcontext-font (mode-line-gc ml))
!                             string
!                             :translate #'translate-id)))))
  
  (defun toggle-mode-line (screen &optional (format '*screen-mode-line-format*))
    (if (screen-mode-line screen)