From 53df240ca36ef8752c9744c84172a6843c8e7f8a Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 14 Jun 2023 11:44:00 +0200
Subject: [PATCH] Fix typo

---
 org/qmckl_blas.org | 4 +++-
 tools/tangle.sh    | 4 +++-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/org/qmckl_blas.org b/org/qmckl_blas.org
index d6ebe9b..37f2c90 100644
--- a/org/qmckl_blas.org
+++ b/org/qmckl_blas.org
@@ -2831,10 +2831,12 @@ printf("qmckl_transpose ok\n");
 
   Trick to make MKL efficient on AMD
   
-  #+begin_src c :tabgle (eval c)
+  #+begin_src c :tangle (eval c)
+/*
 int mkl_serv_intel_cpu_true() {
   return 1;
 }
+*/
   #+end_src
 
 * End of files                                                     :noexport:
diff --git a/tools/tangle.sh b/tools/tangle.sh
index bdf9176..81a1d29 100755
--- a/tools/tangle.sh
+++ b/tools/tangle.sh
@@ -18,6 +18,8 @@ if [[ -z ${top_builddir} ]] ; then
    exit 1
 fi
 
+EMACS="${VARIABLE:=emacs}" 
+
 EXTENSIONS="_f.F90 _fh_func.F90 _fh_type.F90 .c _func.h _type.h _private_type.h _private_func.h"
 
 function tangle()
@@ -42,7 +44,7 @@ function tangle()
     done
 
     ${srcdir}/tools/missing \
-        emacs --no-init-file --no-site-lisp --quick --batch ${org_file} \
+        $EMACS --no-init-file --no-site-lisp --quick --batch ${org_file} \
          --load=${srcdir}/tools/config_tangle.el \
         -f org-babel-tangle