Commits

Anonymous committed 57e3e8d

2002-07-17 Ville Skytta <ville.skytta@xemacs.org>

* cl-specs.el: Partial synch with GNU Emacs 21.2.
(def-edebug-spec): Handle #' function quoting.
Thanks to John Paul Wallington for pointing this out.

Message-Id: <1026926320.21946.170.camel@bobcat.ods.org>

Comments (0)

Files changed (2)

+2002-07-17  Ville Skyttä  <ville.skytta@xemacs.org>
+
+	* cl-specs.el: Partial synch with GNU Emacs 21.2.
+	(def-edebug-spec): Handle #' function quoting.
+	Thanks to John Paul Wallington for pointing this out.
+
 2001-07-16  Charles G Waldman	<cgw@xemacs.org>
 
         * edebug.el (edebug-form-data):  Correct initialization order.
-;; cl-specs.el - Edebug specs for cl.el
+;;; cl-specs.el --- Edebug specs for cl.el
 
 ;; Copyright (C) 1993 Free Software Foundation, Inc.
-;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
+;; Author: Daniel LaLiberte <liberte@holonexus.org>
 ;; Keywords: lisp, tools, maint
 
 ;; This file is part of XEmacs.
 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
 ;; 02111-1307, USA.
 
-;;; Synched up with: Not in FSF
+;;; Synched up with: Mostly with GNU Emacs 21.2.
 
 ;;; Commentary:
 
 
 (def-edebug-spec incf (place &optional form))
 (def-edebug-spec decf incf)
-(def-edebug-spec push (form place))
+(def-edebug-spec push (form place))	; different for CL
 (def-edebug-spec pushnew 
   (form place &rest 
 	&or [[&or ":test" ":test-not" ":key"] function-form]
 	[keywordp form]))
-(def-edebug-spec pop (place))
+(def-edebug-spec pop (place))		; different for CL
 
 (def-edebug-spec shiftf (&rest place))  ;; really [&rest place] form
 (def-edebug-spec rotatef (&rest place))
   ;; form at the end could also handle "function",
   ;; but recognize it specially to avoid wrapping function forms.
   (&or ([&or "quote" "function"] &or symbolp lambda-expr) 
-       ("function*" cl-lambda-expr)
+       ("function*" function*)
        form))
 
 ;;======================================================
 
 (def-edebug-spec loop-initial-final
   (&or ["initially" 
-	;; [&optional &or "do" "doing"]  ;; CLtL2 doesnt allow this.
+	;; [&optional &or "do" "doing"]  ;; CLtL2 doesn't allow this.
 	&rest loop-non-atomic-expr]
        ["finally" &or 
 	[[&optional &or "do" "doing"] &rest loop-non-atomic-expr]
 (def-edebug-spec loop-d-type-spec
   (&or (loop-d-type-spec . [&or nil loop-d-type-spec]) cl-type-spec))
 
-;; cl-specs.el ends here
+;;; cl-specs.el ends here