[Emacs-diffs] /srv/bzr/emacs/trunk r110656: * time.el (display-time-world-display): Wrap delete-char inside inhibit-read-only.

[Chong Yidong]

------------------------------------------------------------
revno: 110656
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Thu 2012-10-25 02:26:22 +0800
message:
  * time.el (display-time-world-display): Wrap delete-char inside 
inhibit-read-only.
modified:
  lisp/ChangeLog
  lisp/time.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-10-24 14:50:30 +0000
+++ b/lisp/ChangeLog    2012-10-24 18:26:22 +0000
@@ -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  <address@hidden>
 

=== modified file 'lisp/time.el'
--- a/lisp/time.el      2012-10-24 14:50:30 +0000
+++ b/lisp/time.el      2012-10-24 18:26:22 +0000
@@ -543,8 +543,8 @@
       (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 ()