From a158dab67ba9557eff96c6c48c5da5f67fea05df Mon Sep 17 00:00:00 2001 From: Geert Janssens Date: Tue, 18 Dec 2012 10:25:28 +0000 Subject: [PATCH] Drop unused custom gettext macro git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@22667 57a11ea4-9604-0410-9ed3-97b8803252fd --- intl-scm/xgettext.scm | 3 +-- src/app-utils/app-utils.scm | 2 -- 2 files changed, 1 insertion(+), 4 deletions(-) diff --git a/intl-scm/xgettext.scm b/intl-scm/xgettext.scm index 93df3b9f05..8e70cce30e 100644 --- a/intl-scm/xgettext.scm +++ b/intl-scm/xgettext.scm @@ -42,8 +42,7 @@ (symbol? (car rest)) ; starting with a symbol (string? (cadr rest)) ; and ending with a string (or (eqv? '_ (car rest)) ; and the symbol is _ - (eqv? 'N_ (car rest)) ; or N_ - (eqv? 'gnc:_ (car rest)))) ; or gnc:_ + (eqv? 'N_ (car rest)))) ; or N_ (write-string (cadr rest) out-port filename line-no)) ; then write it out ((pair? rest) ; otherwise, recurse diff --git a/src/app-utils/app-utils.scm b/src/app-utils/app-utils.scm index f7419d74b7..c00248a3b9 100644 --- a/src/app-utils/app-utils.scm +++ b/src/app-utils/app-utils.scm @@ -27,7 +27,6 @@ ;; c-interface.scm (export gnc:error->string) (export gnc:gettext) -(export gnc:_) (export _) (export-syntax N_) (export gnc:make-string-database) @@ -276,7 +275,6 @@ ;; gettext functions (define gnc:gettext gnc-gettext-helper) -(define gnc:_ gnc:gettext) (define _ gnc:gettext) (define-syntax N_ (syntax-rules ()