[elpa] externals/svg-clock ea9302b 07/18: * packages/svg-clock/svg-clock.el (svg-clock-do-update, svg-clock-start): Don't

[Stefan Monnier]

branch: externals/svg-clock
commit ea9302be3a7a06f591e34a6381fe7ef76416e93e
Author: Dieter (tiny change) <dieter@schoen.or.at>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

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

diff --git a/svg-clock.el b/svg-clock.el
index 3897243..9d480e6 100644
--- a/svg-clock.el
+++ b/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.jasper@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