X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/e390a504356fe2902d5022401cf5178c66ce0fe3..aa6eb0dd5935f5aac2e2cbc251477540e6415229:/dot/emacs

diff --git a/dot/emacs b/dot/emacs
index bd6f731..ff4843f 100644
--- a/dot/emacs
+++ b/dot/emacs
@@ -177,6 +177,11 @@
 (setq calc-settings-file "~/.emacs-calc")
 (load calc-settings-file)
 
+;; Saving window-configuration state.
+
+(or mdw-fast-startup
+    (winner-mode 1))
+
 ;; Some mail and news configuration.
 
 (setq mail-from-style 'angles
@@ -711,6 +716,7 @@
   (global-set-key [?\C-c ?t ?s] 'timeclock-status-string)
   (global-set-key [?\C-c ?t ?t] 'gtags-find-tag-from-here)
   (global-set-key [?\C-c ?t ?w] 'timeclock-workday-remaining-string)
+  (global-set-key [?\C-c ?v ?f] 'view-file)
   (global-set-key [?\C-c ?v ?i] 'vm-visit-imap-folder)
   (global-set-key [?\C-c ?v ?m] 'vm-visit-folder)
   (global-set-key [?\C-c ?v ?v] 'mdw-auto-revert)
@@ -719,6 +725,8 @@
   (global-set-key [?\C-c ?w ?j] 'windmove-down)
   (global-set-key [?\C-c ?w ?k] 'windmove-up)
   (global-set-key [?\C-c ?w ?l] 'windmove-right)
+  (global-set-key [?\C-c ?w ?r] 'winner-redo)
+  (global-set-key [?\C-c ?w ?u] 'winner-undo)
   (global-set-key [?\C-c ?w ?w] 'mdw-set-frame-width)
   (global-set-key [?\C-c ?w up] 'windmove-up)
   (global-set-key [?\C-c ?w down] 'windmove-down)