[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110651: * time.el (display-time-worl
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110651: * time.el (display-time-world-mode): Derive from special-mode. |
Date: |
Wed, 24 Oct 2012 22:50:30 +0800 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110651
fixes bug: http://debbugs.gnu.org/12708
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Wed 2012-10-24 22:50:30 +0800
message:
* time.el (display-time-world-mode): Derive from special-mode.
(display-time-world): Use display-buffer.
(display-time-world-mode-map): Variable deleted.
modified:
lisp/ChangeLog
lisp/time.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-10-24 14:38:49 +0000
+++ b/lisp/ChangeLog 2012-10-24 14:50:30 +0000
@@ -1,5 +1,11 @@
2012-10-24 Chong Yidong <address@hidden>
+ * 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.
+
+2012-10-24 Chong Yidong <address@hidden>
+
* dired.el (dired-mark, dired-unmark, dired-flag-file-deletion):
Doc fix.
=== modified file 'lisp/time.el'
--- a/lisp/time.el 2012-10-01 02:07:14 +0000
+++ b/lisp/time.el 2012-10-24 14:50:30 +0000
@@ -206,12 +206,6 @@
:type 'integer
:version "23.1")
-(defvar display-time-world-mode-map
- (let ((map (make-sparse-keymap)))
- (define-key map "q" 'kill-this-buffer)
- map)
- "Keymap of Display Time World mode.")
-
;;;###autoload
(defun display-time ()
"Enable display of time, load level, and mail flag in mode lines.
@@ -523,7 +517,7 @@
'display-time-event-handler)))
-(define-derived-mode display-time-world-mode nil "World clock"
+(define-derived-mode display-time-world-mode special-mode "World clock"
"Major mode for buffer that displays times in various time zones.
See `display-time-world'."
(setq show-trailing-whitespace nil))
@@ -562,10 +556,9 @@
(not (get-buffer display-time-world-buffer-name)))
(run-at-time t display-time-world-timer-second 'display-time-world-timer))
(with-current-buffer (get-buffer-create display-time-world-buffer-name)
- (display-time-world-display display-time-world-list))
- (pop-to-buffer display-time-world-buffer-name)
- (fit-window-to-buffer)
- (display-time-world-mode))
+ (display-time-world-display display-time-world-list)
+ (display-buffer display-time-world-buffer-name)
+ (display-time-world-mode)))
(defun display-time-world-timer ()
(if (get-buffer display-time-world-buffer-name)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110651: * time.el (display-time-world-mode): Derive from special-mode.,
Chong Yidong <=