workgroups2 Changeset - adc02882d9db

Changeset - adc02882d9db

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-08-27 23:57:58
sergey@pashinin.com

wg-log-level var

1 file changed with 5 insertions and 1 deletions:

src/workgroups2.el

0 comments (0 inline, 0 general)

src/workgroups2.el

➞

Show inline comments

@@ @@ -120,6 +120,10 @@ off and then on again to take effect." @@
 (defvar wg-record-incorrectly-restored-bufs nil
   "FIXME: docstring this.")
 (defvar wg-log-level 1
   "Use later.
 means no messages at all (for tests)")
 (defcustom wg-emacs-exit-save-behavior 'save
   "Determines save behavior on Emacs exit.
@@ @@ -647,7 +651,7 @@ features but is fucking unstable, so disabled by default" @@
 (defun wg-message (format-string &rest args)
   "Call `message' with FORMAT-STRING and ARGS."
   (apply #'message format-string args))
+  (if (> wg-log-level 0) (apply #'message format-string args)))
 (defmacro wg-fontified-message (&rest format)
   "`wg-fontify' FORMAT and call `wg-message' on it."

0 comments (0 inline, 0 general)