[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/02: * packages/svg-clock/svg-clock.el (svg-clock-do-update, sv
From: |
Stefan Monnier |
Subject: |
[elpa] 01/02: * packages/svg-clock/svg-clock.el (svg-clock-do-update, svg-clock-start): Don't call image-mode every second. |
Date: |
Sun, 01 Jun 2014 02:04:38 +0000 |
monnier pushed a commit to branch master
in repository elpa.
commit efaba1ee599090187756dc5c57833e6874f7c37b
Author: Dieter (tiny change) <address@hidden>
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 <address@hidden>
;; 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