emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] 99/117: Don't save so much. Just save once.


From: Matthew Fidler
Subject: [elpa] 99/117: Don't save so much. Just save once.
Date: Fri, 25 Jul 2014 13:24:34 +0000

mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.

commit 40315d7a3d8d1f7ea001942b2df1a68f95a05a81
Author: Matthew L. Fidler <address@hidden>
Date:   Thu Jul 24 08:34:44 2014 -0500

    Don't save so much.  Just save once.
---
 ergoemacs-functions.el |   23 ++++++++++++-----------
 1 files changed, 12 insertions(+), 11 deletions(-)

diff --git a/ergoemacs-functions.el b/ergoemacs-functions.el
index 075a427..cc73e0a 100644
--- a/ergoemacs-functions.el
+++ b/ergoemacs-functions.el
@@ -123,17 +123,18 @@ running interactively.
 (defvar ergoemacs-keyboard-layout)
 (defvar ergoemacs-theme-options)
 (defun ergoemacs-save-options-to-customized (&optional no-save)
-  (let (ergoemacs-mode)
-    (customize-save-variable 'ergoemacs-smart-paste ergoemacs-smart-paste)
-    (customize-save-variable 'ergoemacs-use-menus ergoemacs-use-menus)
-    (customize-save-variable 'ergoemacs-theme (or ergoemacs-theme "standard"))
-    (customize-save-variable 'ergoemacs-keyboard-layout 
ergoemacs-keyboard-layout)
-    (customize-save-variable 'ergoemacs-ctl-c-or-ctl-x-delay 
ergoemacs-ctl-c-or-ctl-x-delay)
-    (customize-save-variable 'ergoemacs-handle-ctl-c-or-ctl-x 
ergoemacs-handle-ctl-c-or-ctl-x)
-    (customize-save-variable 'ergoemacs-use-menus ergoemacs-use-menus)
-    (customize-save-variable 'ergoemacs-theme-options ergoemacs-theme-options)
-    (unless no-save
-      (customize-save-customized))))
+  (unless noninteractive
+    (let (ergoemacs-mode)
+      (customize-set-variable 'ergoemacs-smart-paste ergoemacs-smart-paste)
+      (customize-set-variable 'ergoemacs-use-menus ergoemacs-use-menus)
+      (customize-set-variable 'ergoemacs-theme (or ergoemacs-theme "standard"))
+      (customize-set-variable 'ergoemacs-keyboard-layout 
ergoemacs-keyboard-layout)
+      (customize-set-variable 'ergoemacs-ctl-c-or-ctl-x-delay 
ergoemacs-ctl-c-or-ctl-x-delay)
+      (customize-set-variable 'ergoemacs-handle-ctl-c-or-ctl-x 
ergoemacs-handle-ctl-c-or-ctl-x)
+      (customize-set-variable 'ergoemacs-use-menus ergoemacs-use-menus)
+      (customize-set-variable 'ergoemacs-theme-options ergoemacs-theme-options)
+      (unless no-save
+        (customize-save-customized)))))
 
 (declare-function ergoemacs-mode "ergoemacs-mode.el")
 (declare-function ergoemacs-ini-mode "ergoemacs-mode.el")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]