From: Gustav Hållberg Date: Tue, 13 Apr 2010 09:33:15 +0000 (+0200) Subject: stgit.el: Refactor: use mapc to set all local variables in stgit-mode X-Git-Url: https://git.distorted.org.uk/~mdw/stgit/commitdiff_plain/a0689e114cdccceedc366e1bfa5be00ad62b2a31?ds=sidebyside stgit.el: Refactor: use mapc to set all local variables in stgit-mode Signed-off-by: Gustav Hållberg --- diff --git a/contrib/stgit.el b/contrib/stgit.el index dd3c92b..4843f1e 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -1261,17 +1261,17 @@ See also \\[customize-group] for the \"stgit\" group." major-mode 'stgit-mode goal-column 2) (use-local-map stgit-mode-map) - (set (make-local-variable 'list-buffers-directory) default-directory) - (set (make-local-variable 'stgit-marked-patches) nil) - (set (make-local-variable 'stgit-expanded-patches) (list :work :index)) - (set (make-local-variable 'stgit-show-patch-names) - stgit-default-show-patch-names) - (set (make-local-variable 'stgit-show-worktree) stgit-default-show-worktree) - (set (make-local-variable 'stgit-show-ignored) stgit-default-show-ignored) - (set (make-local-variable 'stgit-show-unknown) stgit-default-show-unknown) - (set (make-local-variable 'stgit-index-node) nil) - (set (make-local-variable 'stgit-worktree-node) nil) - (set (make-local-variable 'parse-sexp-lookup-properties) t) + (mapc (lambda (x) (set (make-local-variable (car x)) (cdr x))) + `((list-buffers-directory . ,default-directory) + (parse-sexp-lookup-properties . t) + (stgit-expanded-patches . (:work :index)) + (stgit-index-node . nil) + (stgit-worktree-node . nil) + (stgit-marked-patches . nil) + (stgit-show-ignored . ,stgit-default-show-ignored) + (stgit-show-patch-names . ,stgit-default-show-patch-names) + (stgit-show-unknown . ,stgit-default-show-unknown) + (stgit-show-worktree . ,stgit-default-show-worktree))) (set-variable 'truncate-lines 't) (add-hook 'after-save-hook 'stgit-update-stgit-for-buffer) (unless stgit-did-advise