Am Samstag, den 05.09.2009, 12:09 +0200 schrieb Christopher Roy Bratusek: > diff --git a/lisp/sawfish/wm/ext/fdo-menu.jl > b/lisp/sawfish/wm/ext/fdo-menu.jl > index 67c3187..74f1d68 100644 > --- a/lisp/sawfish/wm/ext/fdo-menu.jl > +++ b/lisp/sawfish/wm/ext/fdo-menu.jl > @@ -116,33 +116,35 @@ Make sure the mk-saw-menu.jl is in your load path > (flatten (cdr input)))))) > > (defun find-lang-string () > - (if (getenv "LANG") > - (if (> (length (getenv "LANG")) 2) > - (substring (getenv "LANG") 0 5) > - (substring (getenv "LANG") 0 2)) > - '())) > + (unless batch-mode > + (let ((language (or (getenv "LANG") (getenv "LANGUAGE") > + (getenv "LC_MESSAGE") (getenv "LC_ALL")))) > + (if (> (length language) 2) > + (substring language 0 5) > + (substring language 0 2)) > + '()))) Forget this hunk, breaks setting my-lang-string in .sawfish[/]rc, the rest is commited. > By the way: find-lang-string does not work on my system (LANG = > de_DE.UTF8 -> should result in de, but menu-entries are en, I know I can > set it manually, but out-of-the-box would be better) still valid. Chris
Attachment:
signature.asc
Description: Dies ist ein digital signierter Nachrichtenteil