Add implementation of elsa-scope-narrow-var taking form

emacs-elsa · Oct 25, 2018 · efe0866 · efe0866
1 parent 5172f23
commit efe0866
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/elsa-scope.el b/elsa-scope.el
@@ -204,6 +204,9 @@ do that."
                                  scope-var var)))
       (puthash name (cons (cons 'narrow-by-return narrowed-var) var-stack) vars))))
 
+(cl-defmethod elsa-scope-narrow-var ((scope elsa-scope) (form elsa-form) &optional updater)
+  (elsa-scope-narrow-var scope (oref form narrow-types) updater))
+
 (cl-defmethod elsa-scope-narrow-var ((scope elsa-scope) (var list) &optional updater)
   (--each var (elsa-scope-narrow-var scope it updater)))