Mercurial > hg > xemacs-beta

comparison lisp/utils/sysdep.el @ 70:131b0175ea99 r20-0b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b30
author cvs
date Mon, 13 Aug 2007 09:02:59 +0200
parents 376386a54a3c
children 78f53ef88e17
comparison
equal deleted inserted replaced
69:804d1389bcd6 70:131b0175ea99
2 2
3 ;; Copyright (C) 1995 Ben Wing. 3 ;; Copyright (C) 1995 Ben Wing.
4 4
5 ;; Author: Ben Wing <wing@666.com> 5 ;; Author: Ben Wing <wing@666.com>
6 ;; Keywords: lisp, tools 6 ;; Keywords: lisp, tools
7 ;; Version: 0.001 7
8 ;; This file is part of XEmacs.
9
10 ;; XEmacs is free software; you can redistribute it and/or modify it
11 ;; under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; XEmacs is distributed in the hope that it will be useful, but
16 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 ;; General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with XEmacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
8 24
9 ;;; Synched up with: Not in FSF. 25 ;;; Synched up with: Not in FSF.
10 26
11 ;; The purpose of this file is to eliminate the cruftiness that 27 ;; The purpose of this file is to eliminate the cruftiness that
12 ;; would otherwise be required of packages that want to run on multiple 28 ;; would otherwise be required of packages that want to run on multiple
13 ;; versions of Emacs. The idea is that we make it look like we're running 29 ;; versions of Emacs. The idea is that we make it look like we're running
14 ;; the latest version of XEmacs (currently 19.12) by emulating all the 30 ;; the latest version of XEmacs (currently 19.14) by emulating all the
15 ;; missing functions. 31 ;; missing functions.
16 32
17 ;; #### This file does not currently do any advising but should. 33 ;; #### This file does not currently do any advising but should.
18 ;; Unfortunately, advice.el is a hugely big package. Is any such 34 ;; Unfortunately, advice.el is a hugely big package. Is any such
19 ;; thing as `advice-lite' possible? 35 ;; thing as `advice-lite' possible?
364 system. Not currently implemented. 380 system. Not currently implemented.
365 win32 A connection to a machine running Microsoft Windows NT or 381 win32 A connection to a machine running Microsoft Windows NT or
366 Windows 95. Not currently implemented. 382 Windows 95. Not currently implemented.
367 pc A direct-write MS-DOS frame. Not currently implemented. 383 pc A direct-write MS-DOS frame. Not currently implemented.
368 384
369 PROPS should be an plist of properties, as in the call to `make-frame'. 385 PROPS should be a plist of properties, as in the call to `make-frame'.
370 386
371 If a connection to CONNECTION already exists, it is reused; otherwise, 387 If a connection to CONNECTION already exists, it is reused; otherwise,
372 a new connection is opened." 388 a new connection is opened."
373 (make-device type connection props)) 389 (make-device type connection props))
374 390