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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ca082a52ad4e47c95936d4a7defe256694d2d9e..a911832a8fb93165db9f30253b10281010c2c011 100644 (file)
--- 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 c08fadd4b4e87d7881f82d461955acac59587cfe..7473994ffa518cfda6609850be41b2bb26692862 100644 (file)
--- 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 ()