User: ben Date: 05/01/28 03:05:08 Modified: xemacs/lisp ChangeLog subr.el Log: Some synching of subr.el subr.el: Some synching with FSF 21.2. Revision Changes Path 1.618 +6 -0 XEmacs/xemacs/lisp/ChangeLog (In the diff below, changes in quantity of whitespace are not shown.) Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.617 retrieving revision 1.618 diff -u -b -r1.617 -r1.618 --- ChangeLog 2005/01/28 00:32:17 1.617 +++ ChangeLog 2005/01/28 02:05:03 1.618 ＠＠ -1,5 +1,11 ＠＠ 2005-01-27 Ben Wing <ben(a)xemacs.org&gt; + * subr.el: + * subr.el (macro-declaration-function): New. + Some synching with FSF 21.2. + +2005-01-27 Ben Wing <ben(a)xemacs.org&gt; + * gtk-marshal.el (find-file): Propagate hash changes to gtk-marshal.el. 1.36 +49 -2 XEmacs/xemacs/lisp/subr.el (In the diff below, changes in quantity of whitespace are not shown.) Index: subr.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/subr.el,v retrieving revision 1.35 retrieving revision 1.36 diff -u -b -r1.35 -r1.36 --- subr.el 2004/06/17 11:29:39 1.35 +++ subr.el 2005/01/28 02:05:05 1.36 ＠＠ -1,12 +1,13 ＠＠ ;;; subr.el --- basic lisp subroutines for XEmacs -;; Copyright (C) 1985, 1986, 1992, 1994-5, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1985, 86, 92, 94, 95, 99, 2000, 2001, 2002, 2003 +;; Free Software Foundation, Inc. ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. ;; Copyright (C) 1995 Sun Microsystems. ;; Copyright (C) 2000, 2001, 2002, 2003 Ben Wing. ;; Maintainer: XEmacs Development Team -;; Keywords: extensions, dumped +;; Keywords: extensions, dumped, internal ;; This file is part of XEmacs. ＠＠ -49,6 +50,24 ＠＠ (setq custom-declare-variable-list (cons arguments custom-declare-variable-list)))  + +(defun macro-declaration-function (macro decl) + "Process a declaration found in a macro definition. +This is set as the value of the variable `macro-declaration-function'. +MACRO is the name of the macro being defined. +DECL is a list `(declare ...)' containing the declarations. +The return value of this function is not used." + (dolist (d (cdr decl)) + (cond ((and (consp d) (eq (car d) 'indent)) + (put macro 'lisp-indent-function (cadr d))) + ((and (consp d) (eq (car d) 'debug)) + (put macro 'edebug-form-spec (cadr d))) + (t + (message "Unknown declaration %s" d))))) + +(setq macro-declaration-function 'macro-declaration-function) + + ;;;; Lisp language features. (defmacro lambda (&rest cdr) ＠＠ -1600,5 +1619,33 ＠＠ (make-compatible 'eval-next-after-load "") ;; END SYNC WITH FSF 21.2 + +;; (defun shell-quote-argument (argument) in process.el. + +;; (defun make-syntax-table (&optional oldtable) in syntax.el. + +;; (defun syntax-after (pos) #### doesn't exist. + +;; global-set-key, local-set-key, global-unset-key, local-unset-key in +;; keymap.el. + +;; frame-configuration-p is in frame.el. + +;; functionp is built-in. + +;; interactive-form in obsolete.el. + +;; assq-del-all in obsolete.el. + +;; (defun make-temp-file (prefix &optional dir-flag suffix) #### doesn't exist. + +;; add-minor-mode in modeline.el. + +;; text-clone stuff #### doesn't exist; should go in text-props.el and +;; requires changes to extents.c (modification hooks). + +;; play-sound is built-in. + +;; define-mail-user-agent is in simple.el. ;;; subr.el ends here