; Minor simplification of two recent changes

diff --git a/lisp/simple.el b/lisp/simple.el
index 5f1338abb0c88b0035c725ec768e34999ab1abdb..f08015372af384c4a943e673aa013c613b2767a2 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1852,7 +1852,7 @@ to get different commands to edit and resubmit."
                            (and (commandp (function-called-at-point))
                                 (format "%S" (function-called-at-point)))))
                     (all (sort (minibuffer-default-add-completions)
-                               (lambda (a b) (string< a b)))))
+                                #'string<)))
                 (if def
                     (cons def (delete def all))
                   all)))))

diff --git a/test/lisp/emacs-lisp/bytecomp-tests.el b/test/lisp/emacs-lisp/bytecomp-tests.el
index f62427305a02d427759c09a329c049d3a8e7dec4..834e3b6d9146d6c487dd4377ecaa13bb0305f9e0 100644 (file)
--- a/test/lisp/emacs-lisp/bytecomp-tests.el
+++ b/test/lisp/emacs-lisp/bytecomp-tests.el
@@ -479,8 +479,7 @@ Subtests signal errors if something goes wrong."
 (ert-deftest bytecomp-tests--warnings ()
   (with-current-buffer (get-buffer-create "*Compile-Log*")
     (let ((inhibit-read-only t)) (erase-buffer)))
-  (dolist (f '(my-test0 my--test11 my--test12 my--test2))
-    (fset f nil))
+  (mapc #'fmakunbound '(my-test0 my--test11 my--test12 my--test2))
   (test-byte-comp-compile-and-load t
     '(progn
        (defun my-test0 ()