From: Chong Yidong <cyd@gnu.org>
Date: Wed, 24 Oct 2012 18:26:22 +0000 (+0800)
Subject: * time.el (display-time-world-display): Wrap delete-char inside inhibit-read-only.
X-Git-Tag: emacs-24.2.90~209^2~84
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9321d8d7f90c215a691f7768873561f31b7bf429;p=emacs.git

* time.el (display-time-world-display): Wrap delete-char inside inhibit-read-only.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ca082a52ad..a911832a8fb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
 	* time.el (display-time-world-mode): Derive from special-mode.
 	(display-time-world): Use display-buffer (Bug#12708).
 	(display-time-world-mode-map): Variable deleted.
+	(display-time-world-display): Wrap the final delete-char inside
+	inhibit-read-only.
 
 2012-10-24  Chong Yidong  <cyd@gnu.org>
 
diff --git a/lisp/time.el b/lisp/time.el
index c08fadd4b4e..7473994ffa5 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -543,8 +543,8 @@ See `display-time-world'."
       (setenv "TZ" old-tz))
     (setq fmt (concat "%-" (int-to-string max-width) "s %s\n"))
     (dolist (timedata (nreverse result))
-      (insert (format fmt (car timedata) (cdr timedata)))))
-  (delete-char -1))
+      (insert (format fmt (car timedata) (cdr timedata))))
+    (delete-char -1)))
 
 ;;;###autoload
 (defun display-time-world ()