Mercurial > hg > xemacs-beta

comparison lisp/subr.el @ 2525:52f00344a629

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-01-28 02:05:03 by ben] Some synching of subr.el subr.el: Some synching with FSF 21.2.
author ben
date Fri, 28 Jan 2005 02:05:05 +0000
parents 2f37290328b0
children 5df5ea55d3fc
comparison
equal deleted inserted replaced
2524:c634f2d588e8 2525:52f00344a629
1 ;;; subr.el --- basic lisp subroutines for XEmacs 1 ;;; subr.el --- basic lisp subroutines for XEmacs
2 2
3 ;; Copyright (C) 1985, 1986, 1992, 1994-5, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002, 2003
4 ;; Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. 5 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
5 ;; Copyright (C) 1995 Sun Microsystems. 6 ;; Copyright (C) 1995 Sun Microsystems.
6 ;; Copyright (C) 2000, 2001, 2002, 2003 Ben Wing. 7 ;; Copyright (C) 2000, 2001, 2002, 2003 Ben Wing.
7 8
8 ;; Maintainer: XEmacs Development Team 9 ;; Maintainer: XEmacs Development Team
9 ;; Keywords: extensions, dumped 10 ;; Keywords: extensions, dumped, internal
10 11
11 ;; This file is part of XEmacs. 12 ;; This file is part of XEmacs.
12 13
13 ;; XEmacs is free software; you can redistribute it and/or modify it 14 ;; XEmacs is free software; you can redistribute it and/or modify it
14 ;; under the terms of the GNU General Public License as published by 15 ;; under the terms of the GNU General Public License as published by
46 ;; Use this, rather than defcustom, in subr.el and other files loaded 47 ;; Use this, rather than defcustom, in subr.el and other files loaded
47 ;; before custom.el. See dumped-lisp.el. 48 ;; before custom.el. See dumped-lisp.el.
48 (defun custom-declare-variable-early (&rest arguments) 49 (defun custom-declare-variable-early (&rest arguments)
49 (setq custom-declare-variable-list 50 (setq custom-declare-variable-list
50 (cons arguments custom-declare-variable-list))) 51 (cons arguments custom-declare-variable-list)))
52
53
54 (defun macro-declaration-function (macro decl)
55 "Process a declaration found in a macro definition.
56 This is set as the value of the variable `macro-declaration-function'.
57 MACRO is the name of the macro being defined.
58 DECL is a list `(declare ...)' containing the declarations.
59 The return value of this function is not used."
60 (dolist (d (cdr decl))
61 (cond ((and (consp d) (eq (car d) 'indent))
62 (put macro 'lisp-indent-function (cadr d)))
63 ((and (consp d) (eq (car d) 'debug))
64 (put macro 'edebug-form-spec (cadr d)))
65 (t
66 (message "Unknown declaration %s" d)))))
67
68 (setq macro-declaration-function 'macro-declaration-function)
69
51 70
52 ;;;; Lisp language features. 71 ;;;; Lisp language features.
53 72
54 (defmacro lambda (&rest cdr) 73 (defmacro lambda (&rest cdr)
55 "Return a lambda expression. 74 "Return a lambda expression.
1599 (eval-after-load file (read))) 1618 (eval-after-load file (read)))
1600 (make-compatible 'eval-next-after-load "") 1619 (make-compatible 'eval-next-after-load "")
1601 1620
1602 ;; END SYNC WITH FSF 21.2 1621 ;; END SYNC WITH FSF 21.2
1603 1622
1623 ;; (defun shell-quote-argument (argument) in process.el.
1624
1625 ;; (defun make-syntax-table (&optional oldtable) in syntax.el.
1626
1627 ;; (defun syntax-after (pos) #### doesn't exist.
1628
1629 ;; global-set-key, local-set-key, global-unset-key, local-unset-key in
1630 ;; keymap.el.
1631
1632 ;; frame-configuration-p is in frame.el.
1633
1634 ;; functionp is built-in.
1635
1636 ;; interactive-form in obsolete.el.
1637
1638 ;; assq-del-all in obsolete.el.
1639
1640 ;; (defun make-temp-file (prefix &optional dir-flag suffix) #### doesn't exist.
1641
1642 ;; add-minor-mode in modeline.el.
1643
1644 ;; text-clone stuff #### doesn't exist; should go in text-props.el and
1645 ;; requires changes to extents.c (modification hooks).
1646
1647 ;; play-sound is built-in.
1648
1649 ;; define-mail-user-agent is in simple.el.
1650
1604 ;;; subr.el ends here 1651 ;;; subr.el ends here