diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2018-12-27 14:19:39 +0100 |
|---|---|---|
| committer | Wilfred Hughes <me@wilfred.me.uk> | 2019-05-28 22:16:54 +0100 |
| commit | 897feba75ded5c93dcfc3d950319cf19c03252db (patch) | |
| tree | 9b7578e4c2cf39c5819e2b6a789fc42f92133d33 | |
| parent | f61d0a060ad54bdf0c305afe1e362518f64463dd (diff) | |
Do not require shut-up package
| -rw-r--r-- | helpful.el | 6 | ||||
| -rw-r--r-- | test/helpful-unit-test.el | 6 |
2 files changed, 7 insertions, 5 deletions
@@ -6,7 +6,7 @@ ;; URL: https://github.com/Wilfred/helpful ;; Keywords: help, lisp ;; Version: 0.17 -;; Package-Requires: ((emacs "25.1") (dash "2.12.0") (dash-functional "1.2.0") (s "1.11.0") (f "0.20.0") (elisp-refs "1.2") (shut-up "0.3")) +;; Package-Requires: ((emacs "25.1") (dash "2.12.0") (dash-functional "1.2.0") (s "1.11.0") (f "0.20.0") (elisp-refs "1.2")) ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by @@ -49,7 +49,6 @@ (require 'dash-functional) (require 's) (require 'f) -(require 'shut-up) (require 'find-func) (require 'nadvice) (require 'info-look) @@ -1227,7 +1226,8 @@ If the source code cannot be found, return the sexp used." (defun helpful--in-manual-p (sym) "Return non-nil if SYM is in an Info manual." (let ((completions - (shut-up + (cl-letf (((symbol-function #'message) + (lambda (_format-string &rest _args)))) (info-lookup->completions 'symbol 'emacs-lisp-mode)))) (-when-let (buf (get-buffer " temp-info-look")) (kill-buffer buf)) diff --git a/test/helpful-unit-test.el b/test/helpful-unit-test.el index 01e8067..64c9f02 100644 --- a/test/helpful-unit-test.el +++ b/test/helpful-unit-test.el @@ -140,7 +140,8 @@ bar"))) (with-temp-buffer (insert "(defun test-foo-edebug () 44)") (goto-char (point-min)) - (shut-up + (cl-letf (((symbol-function #'message) + (lambda (_format-string &rest _args)))) (eval (eval-sexp-add-defvars (edebug-read-top-level-form)) t)))) (helpful-function #'test-foo-edebug)) @@ -397,7 +398,8 @@ variables defined without `defvar'." (with-temp-buffer (insert "(defun test-foo-edebug-defn () 44)") (goto-char (point-min)) - (shut-up + (cl-letf (((symbol-function #'message) + (lambda (_format-string &rest _args)))) (eval (eval-sexp-add-defvars (edebug-read-top-level-form)) t)) (-let [(buf pos opened) (helpful--definition 'test-foo-edebug-defn t)] |