>From 8e329124b0c869f3ca841d8f6fc2c885cd7b9126 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Thu, 3 May 2018 16:12:56 +0100 Subject: [PATCH 8/8] Minor subr-x tweaks * lisp/emacs-lisp/subr-x.el (string-join): #'-quote function symbol. (string-remove-suffix): One less call to length. --- lisp/emacs-lisp/subr-x.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index 7fab9083e8..2ae31f593c 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -211,7 +211,7 @@ string-empty-p (defsubst string-join (strings &optional separator) "Join all STRINGS using SEPARATOR." - (mapconcat 'identity strings separator)) + (mapconcat #'identity strings separator)) (define-obsolete-function-alias 'string-reverse 'reverse "25.1") @@ -250,7 +250,7 @@ string-remove-prefix (defsubst string-remove-suffix (suffix string) "Remove SUFFIX from STRING if present." (if (string-suffix-p suffix string) - (substring string 0 (- (length string) (length suffix))) + (substring string 0 (- (length suffix))) string)) (provide 'subr-x) -- 2.17.0