[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/macrostep d6aa67c 097/110: Be consistent about only using
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/macrostep d6aa67c 097/110: Be consistent about only using prefixed `cl-lib` |
Date: |
Sat, 7 Aug 2021 09:18:10 -0400 (EDT) |
branch: elpa/macrostep
commit d6aa67c60170c31fbf255cf1b3fe43550f57f328
Author: joddie <jonxfield@gmail.com>
Commit: joddie <jonxfield@gmail.com>
Be consistent about only using prefixed `cl-lib`
---
macrostep-test.el | 17 ++++++++---------
macrostep.el | 14 +++++++-------
2 files changed, 15 insertions(+), 16 deletions(-)
diff --git a/macrostep-test.el b/macrostep-test.el
index 6ca3a60..c36b345 100644
--- a/macrostep-test.el
+++ b/macrostep-test.el
@@ -20,7 +20,6 @@
(require 'ert)
(require 'macrostep)
(require 'macrostep-c)
-(require 'cl-lib)
;;;; Conveniences for defining tests
@@ -103,7 +102,7 @@
(ert-deftest macrostep-expand-macrolet ()
(macrostep-with-text
- '(macrolet
+ '(cl-macrolet
((test (&rest args) `(expansion of ,@args)))
(first body form)
(second body form)
@@ -116,7 +115,7 @@
(ert-deftest macrostep-expand-macrolet-2 ()
(macrostep-with-text
;; Taken from org-notify.el.
- '(macrolet ((get (k) `(plist-get list ,k))
+ '(cl-macrolet ((get (k) `(plist-get list ,k))
(pr (k v) `(setq result (plist-put result ,k ,v))))
(let* ((list (nth 1 heading)) (notify (or (get :notify)
"default"))
(deadline (org-notify-convert-deadline (get :deadline)))
@@ -170,7 +169,7 @@
(ert-deftest macrostep-expand-shadowed-macrolet ()
(macrostep-with-text
- '(macrolet
+ '(cl-macrolet
((test-macro (&rest forms) (cons 'shadowed forms))
(test-macro (&rest forms) (cons 'outer-definition forms)))
(test-macro first (call))
@@ -187,7 +186,7 @@
(ert-deftest macrostep-environnment-at-point ()
(macrostep-with-text
;; Taken from org-notify.el.
- '(macrolet ((get (k) `(plist-get list ,k))
+ '(cl-macrolet ((get (k) `(plist-get list ,k))
(pr (k v) `(setq result (plist-put result ,k ,v))))
(body forms))
(search-forward "(body")
@@ -255,10 +254,10 @@
(with-temp-buffer
(emacs-lisp-mode)
(macrostep-pp
- '(macrolet ((some-macro (&rest forms) (cons 'progn forms)))
- (some-macro with (arguments))
- (intervening body forms)
- (some-macro with (more) (arguments)))
+ '(cl-macrolet ((some-macro (&rest forms) (cons 'progn forms)))
+ (some-macro with (arguments))
+ (intervening body forms)
+ (some-macro with (more) (arguments)))
nil)
(cl-flet ((search (text)
(macrostep-goto text t)
diff --git a/macrostep.el b/macrostep.el
index 38e8512..85550e0 100644
--- a/macrostep.el
+++ b/macrostep.el
@@ -1,14 +1,15 @@
;;; macrostep.el --- interactive macro expander
-;; Copyright (C) 2012-2015 Jonathan Oddie <j.j.oddie@gmail.com>
+;; Copyright (C) 2012-2015 Jon Oddie <j.j.oddie@gmail.com>
;; Author: joddie <j.j.oddie@gmail.com>
;; Maintainer: joddie <j.j.oddie@gmail.com>
;; Created: 16 January 2012
-;; Updated: 01 October 2015
+;; Updated: 04 December 2015
;; Version: 0.9
;; Keywords: lisp, languages, macro, debugging
;; Url: https://github.com/joddie/macrostep
+;; Package-Requires: ((emacs "24") (cl-lib "0.5"))
;; This file is NOT part of GNU Emacs.
@@ -255,11 +256,10 @@
;;; Code:
-;; We use `pp-buffer' to pretty-print macro expansions
(require 'pp)
(require 'ring)
+(require 'cl-lib)
(eval-when-compile
- (require 'cl)
(require 'pcase))
@@ -995,9 +995,9 @@ Controls the printing of sub-forms in
`macrostep-print-sexp'.")
`(let ((,start (point)))
(prog1
,form
- ,@(loop for (key value) on plist by #'cddr
- collect `(put-text-property ,start (point)
- ,key ,value))))))
+ ,@(cl-loop for (key value) on plist by #'cddr
+ collect `(put-text-property ,start (point)
+ ,key ,value))))))
(defun macrostep-print-sexp (sexp)
"Insert SEXP like `print', fontifying macro forms and uninterned symbols.
- [nongnu] elpa/macrostep c20152b 011/110: Handle aliases by using `indirect-function' instead of `symbol-function', (continued)
- [nongnu] elpa/macrostep c20152b 011/110: Handle aliases by using `indirect-function' instead of `symbol-function', ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep 99ac330 029/110: Make inner macrolet definitions correctly shadow outer, ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep 0c8b64c 051/110: Position macrostep-slime-macro-form-p in the correct package, ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep f34deb7 055/110: Specify text bounds when propertizing SLIME macros, ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep b449cd0 059/110: Restore compiler-macro expansion under SLIME, ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep 5e0c28f 068/110: Establish *macroexpand-printer-bindings* before pretty printing, ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep 80ae101 083/110: Fix SLIME functions for updated generic interface, ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep 8f74a4b 084/110: Toggle separate-buffer expansion with prefix (#8), ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep c594c09 092/110: `cl-macs' is no longer needed at run-time, ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep 94d40f2 093/110: Check that compiler-macros return a changed form, ELPA Syncer, 2021/08/07
- [nongnu] elpa/macrostep d6aa67c 097/110: Be consistent about only using prefixed `cl-lib`,
ELPA Syncer <=
- [nongnu] elpa/macrostep 1e25932 105/110: add lib/.nosearch, ELPA Syncer, 2021/08/07