mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 02:51:31 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/byte-run.el (eval-when-compile): Fix edebug spec.

Browse source 
(make-obsolete): Remove interactive spec.

Fixes: debbugs:14646
This commit is contained in:
Stefan Monnier 2013-11-20 21:46:00 -05:00
parent 29660b6b98
commit d1a6bccc99
2 changed files with 13 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2013-11-21 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/byte-run.el (eval-when-compile): Fix edebug spec
(bug#14646).
(make-obsolete): Remove interactive spec.
2013-11-21 Glenn Morris <rgm@gnu.org> 2013-11-21 Glenn Morris <rgm@gnu.org>
* startup.el (command-line-1): Use path-separator with -L. * startup.el (command-line-1): Use path-separator with -L.
@ -29,8 +35,8 @@
* obsolete/rcompile.el: Mark obsolete. * obsolete/rcompile.el: Mark obsolete.
* progmodes/compile.el (compilation-start) * progmodes/compile.el (compilation-start)
(compilation-goto-locus, compilation-find-file): Pass (compilation-goto-locus, compilation-find-file):
no-display-ok and handle nil value from display-buffer. Pass no-display-ok and handle nil value from display-buffer.
(Bug#13594) (Bug#13594)
* window.el (display-buffer-alist, display-buffer): Document the * window.el (display-buffer-alist, display-buffer): Document the

11
lisp/emacs-lisp/byte-run.el
View file

@ -112,10 +112,10 @@ to set this property.")
''edebug-form-spec (list 'quote spec))))) ''edebug-form-spec (list 'quote spec)))))
defun-declarations-alist) defun-declarations-alist)
"List associating properties of macros to their macro expansion. "List associating properties of macros to their macro expansion.
Each element of the list takes the form (PROP FUN) where FUN is Each element of the list takes the form (PROP FUN) where FUN is a function.
a function. For each (PROP . VALUES) in a macro's declaration, For each (PROP . VALUES) in a macro's declaration, the FUN corresponding
the FUN corresponding to PROP is called with the function name to PROP is called with the macro name, the macro's arglist, and the VALUES
and the VALUES and should return the code to use to set this property.") and should return the code to use to set this property.")
(put 'defmacro 'doc-string-elt 3) (put 'defmacro 'doc-string-elt 3)
(put 'defmacro 'lisp-indent-function 2) (put 'defmacro 'lisp-indent-function 2)
@ -285,7 +285,6 @@ was first made obsolete, for example a date or a release number."
(declare (advertised-calling-convention (declare (advertised-calling-convention
;; New code should always provide the `when' argument. ;; New code should always provide the `when' argument.
(obsolete-name current-name when) "23.1")) (obsolete-name current-name when) "23.1"))
(interactive "aMake function obsolete: \nxObsoletion replacement: ")
(put obsolete-name 'byte-obsolete-info (put obsolete-name 'byte-obsolete-info
;; The second entry used to hold the `byte-compile' handler, but ;; The second entry used to hold the `byte-compile' handler, but
;; is not used any more nowadays. ;; is not used any more nowadays.
@ -392,7 +391,7 @@ If you think you need this, you're probably making a mistake somewhere."
"Like `progn', but evaluates the body at compile time if you're compiling. "Like `progn', but evaluates the body at compile time if you're compiling.
Thus, the result of the body appears to the compiler as a quoted constant. Thus, the result of the body appears to the compiler as a quoted constant.
In interpreted code, this is entirely equivalent to `progn'." In interpreted code, this is entirely equivalent to `progn'."
(declare (debug t) (indent 0)) (declare (debug (def-body)) (indent 0))
(list 'quote (eval (cons 'progn body) lexical-binding))) (list 'quote (eval (cons 'progn body) lexical-binding)))
(defmacro eval-and-compile (&rest body) (defmacro eval-and-compile (&rest body)