forked from mirrors/org-mode
Fix some compiler warnings
* lisp/ob-octave.el (org-babel-octave-evaluate-session): * lisp/org-agenda.el (org-agenda-format-item): * lisp/org-element.el (org-element-cache-map): Do not use `eq' when matching for equality by contents.
This commit is contained in:
parent
99c8ed09f8
commit
eea8da0315
|
@ -243,8 +243,8 @@ value of the last statement in BODY, as elisp."
|
||||||
(`output
|
(`output
|
||||||
(setq results
|
(setq results
|
||||||
(if matlabp
|
(if matlabp
|
||||||
(cdr (reverse (delq "" (mapcar #'org-strip-quotes
|
(cdr (reverse (delete "" (mapcar #'org-strip-quotes
|
||||||
(mapcar #'org-trim raw)))))
|
(mapcar #'org-trim raw)))))
|
||||||
(cdr (member org-babel-octave-eoe-output
|
(cdr (member org-babel-octave-eoe-output
|
||||||
(reverse (mapcar #'org-strip-quotes
|
(reverse (mapcar #'org-strip-quotes
|
||||||
(mapcar #'org-trim raw)))))))
|
(mapcar #'org-trim raw)))))))
|
||||||
|
|
|
@ -7330,7 +7330,7 @@ Any match of REMOVE-RE will be removed from TXT."
|
||||||
(let ((s (org-format-outline-path (org-get-outline-path)
|
(let ((s (org-format-outline-path (org-get-outline-path)
|
||||||
(1- (frame-width))
|
(1- (frame-width))
|
||||||
nil org-agenda-breadcrumbs-separator)))
|
nil org-agenda-breadcrumbs-separator)))
|
||||||
(if (eq "" s) "" (concat s org-agenda-breadcrumbs-separator))))))
|
(if (equal "" s) "" (concat s org-agenda-breadcrumbs-separator))))))
|
||||||
(setq time (cond (s2 (concat
|
(setq time (cond (s2 (concat
|
||||||
(org-agenda-time-of-day-to-ampm-maybe s1)
|
(org-agenda-time-of-day-to-ampm-maybe s1)
|
||||||
"-" (org-agenda-time-of-day-to-ampm-maybe s2)
|
"-" (org-agenda-time-of-day-to-ampm-maybe s2)
|
||||||
|
|
|
@ -7562,15 +7562,15 @@ the cache."
|
||||||
;; beginning.
|
;; beginning.
|
||||||
(next-element-re (pcase granularity
|
(next-element-re (pcase granularity
|
||||||
((or `headline
|
((or `headline
|
||||||
(guard (eq '(headline)
|
(guard (equal '(headline)
|
||||||
restrict-elements)))
|
restrict-elements)))
|
||||||
(cons
|
(cons
|
||||||
(org-with-limited-levels
|
(org-with-limited-levels
|
||||||
org-element-headline-re)
|
org-element-headline-re)
|
||||||
'match-beg))
|
'match-beg))
|
||||||
(`headline+inlinetask
|
(`headline+inlinetask
|
||||||
(cons
|
(cons
|
||||||
(if (eq '(inlinetask) restrict-elements)
|
(if (equal '(inlinetask) restrict-elements)
|
||||||
(org-inlinetask-outline-regexp)
|
(org-inlinetask-outline-regexp)
|
||||||
org-element-headline-re)
|
org-element-headline-re)
|
||||||
'match-beg))
|
'match-beg))
|
||||||
|
|
Loading…
Reference in New Issue