emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dash 46e43c0 277/316: Fix long-standing typo in Texinfo


From: ELPA Syncer
Subject: [elpa] externals/dash 46e43c0 277/316: Fix long-standing typo in Texinfo generation
Date: Mon, 15 Feb 2021 15:58:17 -0500 (EST)

branch: externals/dash
commit 46e43c0f7162df01c9f6db73e197f5c193eb1aa6
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>

    Fix long-standing typo in Texinfo generation
    
    * dev/examples-to-info.el (example-to-string): Don't replace right
    brace with left brace.
    * dash.texi: Regenerate.
---
 dash.texi               | 2 +-
 dev/examples-to-info.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/dash.texi b/dash.texi
index 440eb6f..508c35c 100644
--- a/dash.texi
+++ b/dash.texi
@@ -3429,7 +3429,7 @@ but is twice as fast as it only traverse the structure 
once.
 @end group
 @group
 (concat "@{" (--tree-mapreduce-from (cond ((-cons-pair? it) (concat 
(symbol-name (car it)) " -> " (symbol-name (cdr it)))) (t (concat (symbol-name 
it) " : @{"))) (concat it (unless (or (equal acc "@}") (equal (substring it (1- 
(length it))) "@{")) ", ") acc) "@}" '((elips-mode (foo (bar . booze)) (baz . 
qux)) (c-mode (foo . bla) (bum . bam)))))
-    @result{} "@{elips-mode : @{foo : @{bar -> booze@{, baz -> qux@{, c-mode : 
@{foo -> bla, bum -> bam@}@}"
+    @result{} "@{elips-mode : @{foo : @{bar -> booze@}, baz -> qux@}, c-mode : 
@{foo -> bla, bum -> bam@}@}"
 @end group
 @end example
 @end defun
diff --git a/dev/examples-to-info.el b/dev/examples-to-info.el
index 127c900..6814931 100644
--- a/dev/examples-to-info.el
+++ b/dev/examples-to-info.el
@@ -41,7 +41,7 @@
       (replace-regexp-in-string "}\"" "@}\"" it t t)
       (replace-regexp-in-string " {" " @{" it t t)
       (replace-regexp-in-string "\"{" "\"@{" it t t)
-      (replace-regexp-in-string "}," "@{," it t t)
+      (replace-regexp-in-string "}," "@}," it t t)
       (replace-regexp-in-string "}@}" "@}@}" it t t)
       (replace-regexp-in-string
        "[^\n[:print:]]"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]