[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110656: * time.el (display-time-worl
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110656: * time.el (display-time-world-display): Wrap delete-char inside inhibit-read-only. |
Date: |
Thu, 25 Oct 2012 02:26:22 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110656: * time.el (display-time-world-display): Wrap delete-char inside inhibit-read-only.,
Chong Yidong <=