[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master d895f6c: Fix Edebug specs for 'cl-defmethod' and 'd
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] master d895f6c: Fix Edebug specs for 'cl-defmethod' and 'defmethod' |
Date: |
Tue, 2 May 2017 03:20:24 -0400 (EDT) |
branch: master
commit d895f6c12f474476321322ed08e7c768be006287
Author: Gemini Lasswell <address@hidden>
Commit: Eli Zaretskii <address@hidden>
Fix Edebug specs for 'cl-defmethod' and 'defmethod'
* lisp/emacs-lisp/cl-generic.el (cl-defmethod): Change Edebug spec
to make Edebug generate a new symbol for each method (Bug#24753) and
to support a string following :extra (Bug#23995).
* lisp/emacs-lisp/eieio-compat.el (defmethod): Change Edebug spec to
make Edebug generate a new symbol for each method (Bug#24753).
---
lisp/emacs-lisp/cl-generic.el | 7 ++++---
lisp/emacs-lisp/eieio-compat.el | 4 ++--
2 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/emacs-lisp/cl-generic.el b/lisp/emacs-lisp/cl-generic.el
index e15c942..107d520 100644
--- a/lisp/emacs-lisp/cl-generic.el
+++ b/lisp/emacs-lisp/cl-generic.el
@@ -413,10 +413,11 @@ The set of acceptable TYPEs (also called
\"specializers\") is defined
(declare (doc-string 3) (indent 2)
(debug
(&define ; this means we are defining something
- [&or name ("setf" :name setf name)]
+ [&or symbolp ("setf" symbolp)]
;; ^^ This is the methods symbol
- [ &optional keywordp ] ; this is key :before etc
- list ; arguments
+ [ &optional keywordp ; this is key :before etc
+ &optional stringp ] ; :extra can be followed by a string
+ listp ; arguments
[ &optional stringp ] ; documentation string
def-body))) ; part to be debugged
(let ((qualifiers nil))
diff --git a/lisp/emacs-lisp/eieio-compat.el b/lisp/emacs-lisp/eieio-compat.el
index d6eb0b4..fe65ae0 100644
--- a/lisp/emacs-lisp/eieio-compat.el
+++ b/lisp/emacs-lisp/eieio-compat.el
@@ -105,10 +105,10 @@ Summary:
(declare (doc-string 3) (obsolete cl-defmethod "25.1")
(debug
(&define ; this means we are defining something
- [&or name ("setf" :name setf name)]
+ [&or symbolp ("setf" symbolp)]
;; ^^ This is the methods symbol
[ &optional symbolp ] ; this is key :before etc
- list ; arguments
+ listp ; arguments
[ &optional stringp ] ; documentation string
def-body ; part to be debugged
)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master d895f6c: Fix Edebug specs for 'cl-defmethod' and 'defmethod',
Eli Zaretskii <=