Mercurial > emacs
view lisp/time.el @ 1776:20c6f4aa5843
Make scrollbar structures into lisp objects, so that they can be
GC'd; this allows windows and scrollbars can refer to each other
without worrying about dangling pointers.
* xterm.h (struct x_display): vertical_scrollbars and
judge_timestamp members deleted.
(struct scrollbar): Redesigned to be a template for a Lisp_Vector.
(SCROLLBAR_VEC_SIZE, XSCROLLBAR, SCROLLBAR_PACK, SCROLLBAR_UNPACK,
SCROLLBAR_X_WINDOW, SET_SCROLLBAR_X_WINDOW,
VERTICAL_SCROLLBAR_INSIDE_WIDTH, VERTICAL_SCROLLBAR_TOP_RANGE,
VERTICAL_SCROLLBAR_INSIDE_HEIGHT, VERTICAL_SCROLLBAR_MIN_HANDLE):
New macros, to help deal with the lispy structures, and deal with
the graphics.
* frame.h (WINDOW_VERTICAL_SCROLLBAR): Macro deleted.
(struct frame): New fields `scrollbars' and
`condemned_scrollbars', for use by the scrollbar implementation.
[MULTI_FRAME and not MULTI_FRAME] (FRAME_SCROLLBARS,
FRAME_CONDEMNED_SCROLLBARS): Accessors for the new field.
* window.h (struct window): Doc fix for vertical_scrollbar field.
* frame.c (make_frame): Initialize the `scrollbars' and
`condemned_scrollbars' fields of the new frame.
* alloc.c (mark_object): Mark the `scrollbars' and
`condemned_scrollbars' slots of frames.
* xterm.c (x_window_to_scrollbar): Scrollbars are chained on
frames' scrollbar field, not their x.display->vertical_scrollbars
field.
(x_scrollbar_create, x_scrollbar_set_handle, x_scrollbar_move,
x_scrollbar_remove, XTset_vertical_scrollbar,
XTcondemn_scrollbars, XTredeem_scrollbar, XTjudge_scrollbars,
x_scrollbar_expose, x_scrollbar_handle_click,
x_scrollbar_handle_motion): Substantially rewritten to correct
typos and brainos, and to accomodate the lispy structures.
* frame.h (FRAME_SAMPLE_VISIBILITY): Make sure frame is marked as
garbaged whenever it goes from invisible to visible.
* dispextern.h (frame_garbaged): Move extern declaration from here...
* frame.h (frame_garbaged): ... to here. The FRAME_SAMPLE_VISIBILITY
macro uses it now, and this seems to be just as modular. Make a
new page, just for this and message_buf_print.
(struct frame): Doc fix for the `visible' field.
* process.c: #include "frame.h" instead of "dispextern.h"; the
only thing we care about from it is the frame_garbaged
declaration.
* ymakefile: Note dependency change.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 14 Jan 1993 15:09:51 +0000 |
parents | 2cdce064065f |
children | 6c5e38aeb94b |
line wrap: on
line source
;;; time.el --- display time and load in mode line of Emacs. ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. ;; Maintainer: FSF ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. ;;; Code: (defvar display-time-mail-file nil "*File name of mail inbox file, for indicating existence of new mail. Default is system-dependent, and is the same as used by Rmail.") ;;;###autoload (defconst display-time-day-and-date nil "\ *Non-nil means \\[display-time] should display day and date as well as time.") (defvar display-time-process nil) (defvar display-time-interval 60 "*Seconds between updates of time in the mode line.") (defvar display-time-24hr-format nil "Non-nill indicates time should be displayed as hh:mm, 0 <= hh <= 23. Nil means 1 <= hh <= 12, and an AM/PM suffix is used.") (defvar display-time-string nil) (defvar display-time-hook nil "* List of functions to be called when the time is updated on the mode line.") ;;;###autoload (defun display-time () "Display current time and load level in mode line of each buffer. Updates automatically every minute. If `display-time-day-and-date' is non-nil, the current day and date are displayed as well. After each update, `display-time-hook' is run with `run-hooks'." (interactive) (let ((live (and display-time-process (eq (process-status display-time-process) 'run)))) (if (not live) (progn (if display-time-process (delete-process display-time-process)) (or global-mode-string (setq global-mode-string '(""))) (or (memq 'display-time-string global-mode-string) (setq global-mode-string (append global-mode-string '(display-time-string)))) (setq display-time-string "") (setq display-time-process (start-process "display-time" nil (concat exec-directory "wakeup") (int-to-string display-time-interval))) (process-kill-without-query display-time-process) (set-process-sentinel display-time-process 'display-time-sentinel) (set-process-filter display-time-process 'display-time-filter))))) (defun display-time-sentinel (proc reason) (or (eq (process-status proc) 'run) (setq display-time-string "")) ;; Force mode-line updates (save-excursion (set-buffer (other-buffer))) (set-buffer-modified-p (buffer-modified-p)) (sit-for 0)) (defun display-time-filter (proc string) (let ((time (current-time-string)) (load (condition-case () (if (zerop (car (load-average))) "" (let ((str (format " %03d" (car (load-average))))) (concat (substring str 0 -2) "." (substring str -2)))) (error ""))) (mail-spool-file (or display-time-mail-file (getenv "MAIL") (concat rmail-spool-directory (or (getenv "LOGNAME") (getenv "USER") (user-login-name))))) hour am-pm-flag) (setq hour (read (substring time 11 13))) (if (not display-time-24hr-format) (progn (setq am-pm-flag (if (>= hour 12) "pm" "am")) (if (> hour 12) (setq hour (- hour 12)) (if (= hour 0) (setq hour 12)))) (setq am-pm-flag "")) (setq display-time-string (concat (format "%d" hour) (substring time 13 16) am-pm-flag load (if (and (file-exists-p mail-spool-file) ;; file not empty? (display-time-file-nonempty-p mail-spool-file)) " Mail" ""))) ;; Append the date if desired. (if display-time-day-and-date (setq display-time-string (concat (substring time 0 11) display-time-string)))) (run-hooks 'display-time-hook) ;; Force redisplay of all buffers' mode lines to be considered. (save-excursion (set-buffer (other-buffer))) (set-buffer-modified-p (buffer-modified-p)) ;; Do redisplay right now, if no input pending. (sit-for 0)) (defun display-time-file-nonempty-p (file) (while (file-symlink-p file) (setq file (file-symlink-p file))) (> (nth 7 (file-attributes file)) 0)) ;;; time.el ends here