Commit 9321d8d7 authored by Chong Yidong's avatar Chong Yidong
Browse files

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

parent 576978b4
......@@ -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
2012-10-24 Chong Yidong <>
......@@ -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)))
(defun display-time-world ()
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment