branch: elpa/with-simulated-input
commit 93e55eddeeb84dd30aeda4cbd2f9c6387ca0483a
Author: Ryan C. Thompson <[email protected]>
Commit: Ryan C. Thompson <[email protected]>
Fix linter issues and remove unused dependencies
---
Eldev | 3 +++
with-simulated-input.el | 18 ++++++++++--------
2 files changed, 13 insertions(+), 8 deletions(-)
diff --git a/Eldev b/Eldev
index 2518938700..3270d1c696 100644
--- a/Eldev
+++ b/Eldev
@@ -7,3 +7,6 @@
(eldev-use-package-archive 'melpa-stable)
(eldev-add-extra-dependencies 'test 'undercover)
+
+;; Tell checkdoc not to demand two spaces after a period.
+(setq sentence-end-double-space nil)
diff --git a/with-simulated-input.el b/with-simulated-input.el
index 7b44783bf3..0f344f1675 100644
--- a/with-simulated-input.el
+++ b/with-simulated-input.el
@@ -6,8 +6,8 @@
;; Author: Ryan C. Thompson
;; Created: Thu Jul 20 11:56:23 2017 (-0700)
;; Version: 2.4
-;; Package-Requires: ((emacs "24.4") (seq "2.0") (s "0"))
-;; URL:
+;; Package-Requires: ((emacs "24.4"))
+;; URL: https://github.com/DarwinAwardWinner/with-simulated-input
;; Keywords: lisp, tools, extensions
;; This file is NOT part of GNU Emacs.
@@ -43,8 +43,6 @@
;;; Code:
(require 'cl-lib)
-(require 'seq)
-(require 's)
(cl-defun wsi-key-bound-p (key)
"Return non-nil if KEY is bound in any keymap.
@@ -106,7 +104,7 @@ to check.
If `lexical-binding' is not enabled, return nil.
-This macro expands to a lisp form that evaluates to the current
+This macro expands to a Lisp form that evaluates to the current
lexical environment. It works by creating a closure and then
extracting and returning its lexical environment.
@@ -117,6 +115,10 @@ environment."
(cadr temp-closure))))
(defun wsi-make-closure (expr env)
+ "Construct a closure from EXPR and ENV.
+
+Returns a zero-argument function that, when called, evaluates
+EXPR in lexical environment ENV and returns the result."
(if env
`(closure ,env () ,expr)
`(lambda () ,expr)))
@@ -141,7 +143,7 @@ like `\"hello RET\"'. Note that spaced must be indicated
explicitly using `SPC', e.g. `\"hello SPC world RET\"'.
KEYS can also be a list. In this case, each element should either
-be a key sequence as described above or an arbitrary lisp form
+be a key sequence as described above or an arbitrary Lisp form
that will be evaluated at that point in the input sequence. For
example, `\"hello RET\"' could also be written as:
@@ -152,7 +154,7 @@ error is signalled. This is to ensure that BODY will never
block
waiting for input, since this macro is intended for
non-interactive use. If BODY does not consume all the input
events in KEYS, the remaining input events in KEYS are discarded,
-and any remaining lisp forms in KEYS are never evaluated.
+and any remaining Lisp forms in KEYS are never evaluated.
Any errors generated by any means during the evaluation of BODY
are propagated normally.
@@ -233,7 +235,7 @@ in `progn'."
(if action-closures
(let ((next-action (pop action-closures)))
(funcall next-action))
- (error "`with-simulated-input' reached end of action list
without returning."))
+ (error "`with-simulated-input' reached end of action list
without returning"))
(error (throw 'wsi-threw-error err)))))
;; Set up the temporary keymap
(action-map (make-sparse-keymap)))
