debian/notmuch
1
0
Fork 0
mirror of https://git.notmuchmail.org/git/notmuch synced 2024-11-24 20:08:10 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

emacs: use setq instead of set

Browse source 
Commonly `set' is only used if there is no way around it;
i.e. when the variable cannot be known until runtime.
This commit is contained in:
Jonas Bernoulli 2021-01-10 15:00:37 +01:00 committed by David Bremner
parent a12bf2a52a
commit 5b19e6e1b4
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
emacs/notmuch-tree.el
View file

@ -1133,7 +1133,7 @@ The arguments are:
(inhibit-read-only t)) (inhibit-read-only t))
(pop-to-buffer-same-window buffer)) (pop-to-buffer-same-window buffer))
;; Don't track undo information for this buffer ;; Don't track undo information for this buffer
(set 'buffer-undo-list t) (setq buffer-undo-list t)
(notmuch-tree-worker query query-context target open-target unthreaded) (notmuch-tree-worker query query-context target open-target unthreaded)
(setq notmuch-tree-parent-buffer parent-buffer) (setq notmuch-tree-parent-buffer parent-buffer)
(setq truncate-lines t)) (setq truncate-lines t))

14
emacs/notmuch.el
View file

@ -693,7 +693,7 @@ of the result."
(throw 'return nil)) (throw 'return nil))
(when (and atbob (when (and atbob
(not (string= notmuch-search-target-thread "found"))) (not (string= notmuch-search-target-thread "found")))
(set 'never-found-target-thread t))))) (setq never-found-target-thread t)))))
(when (and never-found-target-thread (when (and never-found-target-thread
notmuch-search-target-line) notmuch-search-target-line)
(goto-char (point-min)) (goto-char (point-min))
@ -996,11 +996,11 @@ the configured default sort order."
(pop-to-buffer-same-window buffer)) (pop-to-buffer-same-window buffer))
(notmuch-search-mode) (notmuch-search-mode)
;; Don't track undo information for this buffer ;; Don't track undo information for this buffer
(set 'buffer-undo-list t) (setq buffer-undo-list t)
(set 'notmuch-search-query-string query) (setq notmuch-search-query-string query)
(set 'notmuch-search-oldest-first oldest-first) (setq notmuch-search-oldest-first oldest-first)
(set 'notmuch-search-target-thread target-thread) (setq notmuch-search-target-thread target-thread)
(set 'notmuch-search-target-line target-line) (setq notmuch-search-target-line target-line)
(notmuch-tag-clear-cache) (notmuch-tag-clear-cache)
(let ((proc (get-buffer-process (current-buffer))) (let ((proc (get-buffer-process (current-buffer)))
(inhibit-read-only t)) (inhibit-read-only t))
@ -1048,7 +1048,7 @@ same relative position within the new buffer."
This command toggles the sort order for the current search. The This command toggles the sort order for the current search. The
default sort order is defined by `notmuch-search-oldest-first'." default sort order is defined by `notmuch-search-oldest-first'."
(interactive) (interactive)
(set 'notmuch-search-oldest-first (not notmuch-search-oldest-first)) (setq notmuch-search-oldest-first (not notmuch-search-oldest-first))
(notmuch-search-refresh-view)) (notmuch-search-refresh-view))
(defun notmuch-group-disjunctive-query-string (query-string) (defun notmuch-group-disjunctive-query-string (query-string)