IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2024-11-21 16:38:06 -06:00
Code Issues Packages Projects Releases Wiki Activity

Bug 798991 - Incorrect Account Name Order in Transaction Report

Browse Source 
gnc:string-locale<? uses glib instead of guile string compare
This commit is contained in:
Christopher Lam 2023-07-10 20:07:27 +08:00
parent f2d9230299
commit 2a392633ed
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bindings/core-utils.i
View File

@ -104,6 +104,8 @@ const char * gnc_locale_default_iso_currency_code (void);
%newobject gnc_locale_name; %newobject gnc_locale_name;
gchar *gnc_locale_name (void); gchar *gnc_locale_name (void);
int g_utf8_collate (const char *a, const char *b);
#if defined(SWIGGUILE) #if defined(SWIGGUILE)
%init { %init {
{ {

4
bindings/guile/core-utils.scm
View File

@ -75,8 +75,8 @@
(issue-deprecation-warning "Using _ to call gettext is disallowed in guile-3 and will be removed in the future. Use G_ instead.") (issue-deprecation-warning "Using _ to call gettext is disallowed in guile-3 and will be removed in the future. Use G_ instead.")
(gnc:gettext x)))) (gnc:gettext x))))
(define gnc:string-locale<? string-locale<?) (define (gnc:string-locale<? a b) (< (g-utf8-collate a b) 0))
(define gnc:string-locale>? string-locale>?) (define (gnc:string-locale>? a b) (> (g-utf8-collate a b) 0))
;; Custom unbound-variable exception printer: instead of generic "In ;; Custom unbound-variable exception printer: instead of generic "In
;; procedure module-lookup: Unbound variable: varname", it will first ;; procedure module-lookup: Unbound variable: varname", it will first