ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Backport commit 6b2219cd2 from Emacs 

* lisp/org.el (org-read-date-analyze):
* lisp/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

; Add several "duplicate value in `cond`" FIXMEs
6b2219cd2744c711580cc7226554e69c8cec8247
Stefan Kangas
Sun Oct 1 19:00:26 2023 +0200
This commit is contained in:
Stefan Kangas 2023-10-01 19:00:26 +02:00 committed by Kyle Meyer
parent d7ee5691cb
commit 53d3fcfbe9
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/org.el
View File

@ -14035,6 +14035,7 @@ user."
(unless deltadef (unless deltadef
(let ((now (decode-time))) (let ((now (decode-time)))
(setq day (nth 3 now) month (nth 4 now) year (nth 5 now)))) (setq day (nth 3 now) month (nth 4 now) year (nth 5 now))))
;; FIXME: Duplicated value in ‘cond’: ""
(cond ((member deltaw '("h" "")) (cond ((member deltaw '("h" ""))
(when (boundp 'org-time-was-given) (when (boundp 'org-time-was-given)
(setq org-time-was-given t)) (setq org-time-was-given t))

1
lisp/ox-html.el
View File

@ -3094,6 +3094,7 @@ CONTENTS is nil. INFO is a plist holding contextual information."
(let ((latex-frag (org-element-property :value latex-fragment)) (let ((latex-frag (org-element-property :value latex-fragment))
(processing-type (plist-get info :with-latex))) (processing-type (plist-get info :with-latex)))
(cond (cond
;; FIXME: Duplicated value in ‘cond’: t
((memq processing-type '(t mathjax)) ((memq processing-type '(t mathjax))
(org-html-format-latex latex-frag 'mathjax info)) (org-html-format-latex latex-frag 'mathjax info))
((memq processing-type '(t html)) ((memq processing-type '(t html))