Mercurial > emacs
comparison lisp/emacs-lisp/lucid.el @ 2484:6ddf357bd36c
Add copyright notice.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 08 Apr 1993 06:57:54 +0000 |
parents | 3f27c886f375 |
children | b65cf676a09b |
comparison
equal
deleted
inserted
replaced
2483:b4145a12422d | 2484:6ddf357bd36c |
---|---|
1 ;;; lucid.el --- Emulate some Lucid Emacs functions. | |
2 ;; Copyright (C) 1993 Free Software Foundation, Inc. | |
3 | |
4 ;; This file is part of GNU Emacs. | |
5 | |
6 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
7 ;; it under the terms of the GNU General Public License as published by | |
8 ;; the Free Software Foundation; either version 2, or (at your option) | |
9 ;; any later version. | |
10 | |
11 ;; GNU Emacs is distributed in the hope that it will be useful, | |
12 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 ;; GNU General Public License for more details. | |
15 | |
16 ;; You should have received a copy of the GNU General Public License | |
17 ;; along with GNU Emacs; see the file COPYING. If not, write to | |
18 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. | |
19 | |
20 | |
1 (defun add-timeout (secs function object &optional resignal) | 21 (defun add-timeout (secs function object &optional resignal) |
2 (run-at-time secs resignal function object)) | 22 (run-at-time secs resignal function object)) |
3 | 23 |
4 (defun disable-timeout (timeout) | 24 (defun disable-timeout (timeout) |
5 (cancel-timer timeout)) | 25 (cancel-timer timeout)) |
150 ;; (fset 'unfocus-screen 'unfocus-frame) | 170 ;; (fset 'unfocus-screen 'unfocus-frame) |
151 (fset 'visible-screen-list 'visible-frame-list) | 171 (fset 'visible-screen-list 'visible-frame-list) |
152 (fset 'window-screen 'window-frame) | 172 (fset 'window-screen 'window-frame) |
153 (fset 'x-create-screen 'x-create-frame) | 173 (fset 'x-create-screen 'x-create-frame) |
154 (fset 'x-new-screen 'new-frame) | 174 (fset 'x-new-screen 'new-frame) |
175 | |
176 ;;; end of lucid.el |