diff options
author | Gustav Hållberg <gustav@gmail.com> | 2010-04-13 11:33:15 +0200 |
---|---|---|
committer | Gustav Hållberg <gustav@gmail.com> | 2010-04-30 00:21:47 +0200 |
commit | a0689e114cdccceedc366e1bfa5be00ad62b2a31 (patch) | |
tree | 4d9e9138b31563202ef418eb9d2f9fd3d9790bde | |
parent | bc11fb0841e6d41ea7471d8c0f526b111b06b2ef (diff) | |
download | stgit-a0689e114cdccceedc366e1bfa5be00ad62b2a31.tar.gz |
stgit.el: Refactor: use mapc to set all local variables in stgit-mode
Signed-off-by: Gustav Hållberg <gustav@gmail.com>
-rw-r--r-- | contrib/stgit.el | 22 |
1 files changed, 11 insertions, 11 deletions
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 |