[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2e92f17: Fix cl-prettyexpand in the non-FULL case
From: |
Lars Ingebrigtsen |
Subject: |
master 2e92f17: Fix cl-prettyexpand in the non-FULL case |
Date: |
Mon, 18 Nov 2019 05:02:35 -0500 (EST) |
branch: master
commit 2e92f176a3ae68ed6fcf9f07c173c61a497f33fd
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Fix cl-prettyexpand in the non-FULL case
* lisp/emacs-lisp/cl-extra.el (cl-prettyexpand): This function has
apparently not worked for at least a couple of decades
(bug#38206) unless supplied with a FULL parameter. Make the FULL
parameter obsolete and make the function always work as it did
with a non-nil FULL.
---
lisp/emacs-lisp/cl-extra.el | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el
index 91034de..7e9d8fe 100644
--- a/lisp/emacs-lisp/cl-extra.el
+++ b/lisp/emacs-lisp/cl-extra.el
@@ -693,17 +693,15 @@ PROPLIST is a list of the sort returned by `symbol-plist'.
(forward-sexp)))
;;;###autoload
-(defun cl-prettyexpand (form &optional full)
- "Expand macros in FORM and insert the pretty-printed result.
-Optional argument FULL non-nil means to expand all macros,
-including `cl-block' and `cl-eval-when'."
+(defun cl-prettyexpand (form &optional _full)
+ "Expand macros in FORM and insert the pretty-printed result."
+ (declare (advertised-calling-convention (form) "27.1"))
(message "Expanding...")
- (let ((cl--compiling-file full)
- (byte-compile-macro-environment nil))
- (setq form (macroexpand-all form
- (and (not full) '((cl-block) (cl-eval-when)))))
+ (let ((byte-compile-macro-environment nil))
+ (setq form (macroexpand-all form))
(message "Formatting...")
- (prog1 (cl-prettyprint form)
+ (prog1
+ (cl-prettyprint form)
(message ""))))
;;; Integration into the online help system.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 2e92f17: Fix cl-prettyexpand in the non-FULL case,
Lars Ingebrigtsen <=