master 6b2219cd274: ; Add several "duplicate value in `cond`" FIXMEs

[Stefan Kangas]

branch: master
commit 6b2219cd2744c711580cc7226554e69c8cec8247
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; Add several "duplicate value in `cond`" FIXMEs
    
    * lisp/gnus/gnus-cloud.el (gnus-cloud-decode-data):
    * lisp/org/org.el (org-read-date-analyze):
    * lisp/org/ox-html.el (org-html-latex-fragment):
    Add several "duplicate value in `cond`" FIXMEs.
    Found by Mattias Engdegård <mattias.engdegard@gmail.com>.
    Ref: https://debbugs.gnu.org/51368#51
---
 lisp/gnus/gnus-cloud.el | 1 +
 lisp/org/org.el         | 1 +
 lisp/org/ox-html.el     | 1 +
 3 files changed, 3 insertions(+)

diff --git a/lisp/gnus/gnus-cloud.el b/lisp/gnus/gnus-cloud.el
index ae4c4cc0d71..a21d57d86ff 100644
--- a/lisp/gnus/gnus-cloud.el
+++ b/lisp/gnus/gnus-cloud.el
@@ -148,6 +148,7 @@ easy interactive way to set this from the Server buffer."
 
 (defun gnus-cloud-decode-data ()
   (cond
+   ;; FIXME: Duplicated value in ‘cond’: base64-gzip.
    ((memq gnus-cloud-storage-method '(base64 base64-gzip))
     (base64-decode-region (point-min) (point-max)))
 
diff --git a/lisp/org/org.el b/lisp/org/org.el
index 5a600a84f22..9ca7f155614 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -14035,6 +14035,7 @@ user."
       (unless deltadef
        (let ((now (decode-time)))
          (setq day (nth 3 now) month (nth 4 now) year (nth 5 now))))
+      ;; FIXME: Duplicated value in ‘cond’: ""
       (cond ((member deltaw '("h" ""))
              (when (boundp 'org-time-was-given)
                (setq org-time-was-given t))
diff --git a/lisp/org/ox-html.el b/lisp/org/ox-html.el
index b27254b8ac5..cfad311207a 100644
--- a/lisp/org/ox-html.el
+++ b/lisp/org/ox-html.el
@@ -3094,6 +3094,7 @@ CONTENTS is nil.  INFO is a plist holding contextual 
information."
   (let ((latex-frag (org-element-property :value latex-fragment))
        (processing-type (plist-get info :with-latex)))
     (cond
+     ;; FIXME: Duplicated value in ‘cond’: t
      ((memq processing-type '(t mathjax))
       (org-html-format-latex latex-frag 'mathjax info))
      ((memq processing-type '(t html))