[elpa] 01/02: * packages/svg-clock/svg-clock.el (svg-clock-do-update, svg-clock-start): Don't call image-mode every second.

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit efaba1ee599090187756dc5c57833e6874f7c37b
Author: Dieter (tiny change) <die...@schoen.or.at>
Date:   Sat May 31 22:03:44 2014 -0400

    * packages/svg-clock/svg-clock.el (svg-clock-do-update, svg-clock-start): 
Don't
    call image-mode every second.
---
 packages/svg-clock/svg-clock.el |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/packages/svg-clock/svg-clock.el b/packages/svg-clock/svg-clock.el
index 3897243..9d480e6 100644
--- a/packages/svg-clock/svg-clock.el
+++ b/packages/svg-clock/svg-clock.el
@@ -1,6 +1,6 @@
 ;;; svg-clock.el --- Analog clock using Scalable Vector Graphics
 
-;; Copyright (C) 2011  Free Software Foundation, Inc.
+;; Copyright (C) 2011, 2014  Free Software Foundation, Inc.
 
 ;; Author:      Ulf Jasper <ulf.jas...@web.de>
 ;; Created:     22. Sep. 2011
@@ -186,8 +186,8 @@ TIME must have the form (SECOND MINUTE HOUR ...), as 
returned by `decode-time'."
       (svg-clock-replace "%SIZE%" (format "%d" svg-clock--actual-size))
       (svg-clock-replace "%SCALE%"
                          (format "%f" (/ svg-clock--actual-size 100.0)))
-      (image-mode)
-      (image-toggle-display-image))))
+      (when (derived-mode-p 'image-mode)
+        (image-toggle-display-image)))))
 
 (defun svg-clock-update ()
   "Update the clock."
@@ -245,6 +245,7 @@ Optionally PERFORM-UPDATE immediately."
     (setq svg-clock-timer
           (run-with-timer 0 1 'svg-clock-update))
     (svg-clock-mode)
+    (image-mode)
     (message "Clock started")))
 
 (defvar svg-clock-mode-map