From 92d190243aa758a510d9b32aebfd89958933e19d Mon Sep 17 00:00:00 2001 From: Phuntsok Drak-pa Date: Wed, 11 Sep 2019 14:36:19 +0200 Subject: [PATCH] replaced `defvar' with `setq-local' This commit fixes an issue where once an elisp block had been evaluated, its value would not changed until Emacs were to be restarted. Hopefully this will fix it. --- eittlanda.org | 4 ++-- nyqy.org | 6 +++--- taso.org | 4 ++-- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/eittlanda.org b/eittlanda.org index 27b7b1a..61710dc 100644 --- a/eittlanda.org +++ b/eittlanda.org @@ -658,7 +658,7 @@ #+NAME: vow-dot #+BEGIN_SRC emacs-lisp :noweb yes :exports none :eval yes <> - (defvar eittlandic-vowels + (setq-local eittlandic-vowels '("vowels" ("[high]" ("[rnd]" @@ -902,7 +902,7 @@ #+NAME: cons-dot #+BEGIN_SRC emacs-lisp :noweb yes :exports none :eval yes <> - (defvar eittlandic-consonants + (setq-local eittlandic-consonants '("consonants" ("[occ]" ("[cor]" diff --git a/nyqy.org b/nyqy.org index dcff117..4b48775 100644 --- a/nyqy.org +++ b/nyqy.org @@ -189,7 +189,7 @@ #+NAME: cons-tree #+BEGIN_SRC emacs-lisp :noweb yes :exports none :eval yes :cache yes <> - (defvar nyqy-consonants + (setq-local nyqy-consonants '("[cons]" ("[son]" ("[dor]" @@ -309,7 +309,7 @@ #+NAME: vow-tree #+BEGIN_SRC emacs-lisp :noweb yes :exports none :eval yes :cache yes <> - (defvar nyqy-vowels + (setq-local nyqy-vowels '("[vowel]" ("[back]" ("[tense]" @@ -705,7 +705,7 @@ #+NAME: basic-syntax-tree #+BEGIN_SRC emacs-lisp :noweb yes :exports none :eval yes :cache yes <> - (defvar nyqy-syntax-tree + (setq-local nyqy-syntax-tree '("S" ("Obl") ("S'" diff --git a/taso.org b/taso.org index 9841278..342b085 100644 --- a/taso.org +++ b/taso.org @@ -73,7 +73,7 @@ #+name: cons-tree #+BEGIN_SRC emacs-lisp :noweb yes :exports none :eval yes :cache yes <> - (defvar taso-consonants + (setq-local taso-consonants '("consonant" ("[son]" ("[cor]" @@ -156,7 +156,7 @@ #+name: vowel-tree #+BEGIN_SRC emacs-lisp :noweb yes :exports none :eval yes :cache yes <> - (defvar taso-vowels + (setq-local taso-vowels '("vowel" ("[high]" ("[frnt]"