Fix last change to format-spec

* doc/lispref/text.texi (Interpolated Strings): Use @result and fix
typos.
* lisp/format-spec.el: Avoid loading subr-x at runtime.
(format-spec--parse-modifiers): Optimize slightly.

diff --git a/doc/lispref/text.texi b/doc/lispref/text.texi
index df9fce066f006be64521a7a240e61bd4bbfe0913..e73141faf4cca2fbc657c18d63e0018536714c03 100644 (file)
--- a/doc/lispref/text.texi
+++ b/doc/lispref/text.texi
@@ -4655,11 +4655,11 @@ Here's a trivial example:
 (format-spec "su - %u %l"
              `((?u . ,(user-login-name))
                (?l . "ls")))
-=> "su - foo ls"
+     @result{} "su - foo ls"
 @end example
 
 In addition to allowing padding/limiting to a certain length, the
-following modifiers are can be used:
+following modifiers can be used:
 
 @table @asis
 @item @samp{0}
@@ -4684,7 +4684,7 @@ If the length needs to limited, remove characters from the left.
 Same as previous, but remove characters from the right.
 @end table
 
-If contradictory modifiers are used (for instance, both upper- and
+If contradictory modifiers are used (for instance, both upper and
 lower case), then what happens is undefined.
 
 As an example, @samp{"%<010b"} means ``insert the @samp{b} expansion,

diff --git a/lisp/format-spec.el b/lisp/format-spec.el
index 220cecd9b05dd3efee9094f99b26fcde461755cd..fec93ce83d942911878b72a4f11d2758f7a07e43 100644 (file)
--- a/lisp/format-spec.el
+++ b/lisp/format-spec.el
@@ -24,7 +24,8 @@
 
 ;;; Code:
 
-(require 'subr-x)
+(eval-when-compile
+  (require 'subr-x))
 
 (defun format-spec (format specification &optional only-present)
   "Return a string based on FORMAT and SPECIFICATION.
@@ -118,8 +119,7 @@ where they are, including \"%%\" strings."
         (concat padding text)))))
 
 (defun format-spec--parse-modifiers (modifiers)
-  (let ((elems nil))
-    (mapc (lambda (char)
+  (mapcan (lambda (char)
             (when-let ((modifier
                         (pcase char
                           (?0 :zero-pad)
@@ -129,9 +129,8 @@ where they are, including \"%%\" strings."
                           (?- :right-pad)
                           (?< :chop-left)
                           (?> :chop-right))))
-              (push modifier elems)))
-          modifiers)
-    elems))
+              (list modifier)))
+          modifiers))
 
 (defun format-spec-make (&rest pairs)
   "Return an alist suitable for use in `format-spec' based on PAIRS.