]> git.cworth.org Git - notmuch/commitdiff
emacs/tree: use two argument form of setq-local
authorDavid Bremner <david@tethera.net>
Tue, 21 Feb 2023 11:49:15 +0000 (07:49 -0400)
committerDavid Bremner <david@tethera.net>
Tue, 21 Feb 2023 14:55:42 +0000 (10:55 -0400)
Apparently the macro setq-local only takes two arguments in Emacs 26.1

emacs/notmuch-tree.el

index 14775d59ce4783b91229dfbe72c536aab045661b..b58fa6a66b33124c0d3775c613bd6f7ea81797ed 100644 (file)
@@ -1451,11 +1451,11 @@ notmuch-tree buffers, just set
   (unless (derived-mode-p 'notmuch-tree-mode)
     (user-error "notmuch-tree-outline-mode is only meaningful for notmuch trees!"))
   (if notmuch-tree-outline-mode
   (unless (derived-mode-p 'notmuch-tree-mode)
     (user-error "notmuch-tree-outline-mode is only meaningful for notmuch trees!"))
   (if notmuch-tree-outline-mode
-      (progn (setq-local outline-regexp "^[^\n]+"
-                        outline-level #'notmuch-tree-outline--level)
+      (progn (setq-local outline-regexp "^[^\n]+")
+            (setq-local outline-level #'notmuch-tree-outline--level)
             (notmuch-tree-outline--set-visibility))
             (notmuch-tree-outline--set-visibility))
-    (setq-local outline-regexp (default-value 'outline-regexp)
-               outline-level (default-value 'outline-level))))
+    (setq-local outline-regexp (default-value 'outline-regexp))
+    (setq-local        outline-level (default-value 'outline-level))))
 
 ;;; _
 
 
 ;;; _