Remove last remaining external uses of edebug-form-spec
* lisp/emacs-lisp/gv.el (gv-place): Use `def-edebug-elem-spec`. * lisp/obsolete/erc-compat.el (erc-define-minor-mode): Remove redundant `edebug-form-spec`.
This commit is contained in:
parent
8114a84b21
commit
4b1ace22be
3 changed files with 2 additions and 3 deletions
|
@ -315,7 +315,7 @@ The return value is the last VAL in the list.
|
|||
;; Autoload this `put' since a user might use C-u C-M-x on an expression
|
||||
;; containing a non-trivial `push' even before gv.el was loaded.
|
||||
;;;###autoload
|
||||
(put 'gv-place 'edebug-form-spec '(form)) ;So-called "indirect spec".
|
||||
(def-edebug-elem-spec 'gv-place '(form))
|
||||
|
||||
;; CL did the equivalent of:
|
||||
;;(gv-define-macroexpand edebug-after (lambda (before index place) place))
|
||||
|
|
|
@ -32,7 +32,6 @@
|
|||
|
||||
;;;###autoload(autoload 'erc-define-minor-mode "erc-compat")
|
||||
(defalias 'erc-define-minor-mode #'define-minor-mode)
|
||||
(put 'erc-define-minor-mode 'edebug-form-spec 'define-minor-mode)
|
||||
|
||||
(defun erc-decode-coding-string (s coding-system)
|
||||
"Decode S using CODING-SYSTEM."
|
||||
|
|
|
@ -1604,11 +1604,11 @@ that do nothing."
|
|||
|
||||
;; This might be a neat idea, but it's too hairy at the moment.
|
||||
;;(defmacro tags-with-syntax (&rest body)
|
||||
;; (declare (debug t))
|
||||
;; `(with-syntax-table
|
||||
;; (with-current-buffer (find-file-noselect (file-of-tag))
|
||||
;; (syntax-table))
|
||||
;; ,@body))
|
||||
;;(put 'tags-with-syntax 'edebug-form-spec '(&rest form))
|
||||
|
||||
;; exact file name match, i.e. searched tag must match complete file
|
||||
;; name including directories parts if there are some.
|
||||
|
|
Loading…
Add table
Reference in a new issue