[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master f8d3d18: ; Minor simplification of two recent changes
From: |
Basil L. Contovounesios |
Subject: |
master f8d3d18: ; Minor simplification of two recent changes |
Date: |
Wed, 19 Aug 2020 10:03:21 -0400 (EDT) |
branch: master
commit f8d3d18168a742691d095a3f0c83512f19621725
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
; Minor simplification of two recent changes
---
lisp/simple.el | 2 +-
test/lisp/emacs-lisp/bytecomp-tests.el | 3 +--
2 files changed, 2 insertions(+), 3 deletions(-)
diff --git a/lisp/simple.el b/lisp/simple.el
index 5f1338a..f080153 100644
--- 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 f624273..834e3b6 100644
--- 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 ()
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master f8d3d18: ; Minor simplification of two recent changes,
Basil L. Contovounesios <=