tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Move `org-xor' into "org-macs.el"

Browse source 
* lisp/org.el (org-xor): Move...
* lisp/org-macs.el: ... there.
This commit is contained in:
Nicolas Goaziou 2017-10-17 09:37:34 +02:00
parent 5b2b8f3175
commit 45a1918efe
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/org-macs.el
View file

@ -167,6 +167,14 @@ point nowhere."
`(load ,file 'noerror nil nil 'mustsuffix)) `(load ,file 'noerror nil nil 'mustsuffix))
;;; Logic
(defsubst org-xor (a b)
"Exclusive `or'."
(if a (not b) b))
;;; String manipulation ;;; String manipulation

4
lisp/org.el
View file

@ -10020,10 +10020,6 @@ Note: this function also decodes single byte encodings like
(char-to-string (string-to-number byte 16))) (char-to-string (string-to-number byte 16)))
(cdr (split-string hex "%")) "")) (cdr (split-string hex "%")) ""))
(defun org-xor (a b)
"Exclusive or."
(if a (not b) b))
(defun org-fixup-message-id-for-http (s) (defun org-fixup-message-id-for-http (s)
"Replace special characters in a message id, so it can be used in an http query." "Replace special characters in a message id, so it can be used in an http query."
(when (string-match "%" s) (when (string-match "%" s)