mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-27 07:37:25 +00:00
Code

Backport commit c5e02f2bc from Emacs

Browse Source 
* lisp/org-protocol.el (org-protocol-flatten):
Rewrite as top-level alias, as per Stefan’s suggestion,
to avoid compiler warnings.

Make org-protocol-flatten always an alias
c5e02f2bce28f3b1f2006ce1f208f4a92ca05ed9
Paul Eggert
Mon Dec 17 13:32:52 2018 -0800
This commit is contained in:
Paul Eggert 2018-12-17 13:26:42 -08:00 committed by Kyle Meyer
parent 7937b26867
commit 5a958f3fae
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org-protocol.el
View File

@ -350,20 +350,20 @@ returned list."
ret)
l)))
(if (fboundp 'flatten-tree)
(defalias 'org-protocol-flatten 'flatten-tree)
(defun org-protocol-flatten (list)
"Transform LIST into a flat list.
(defalias 'org-protocol-flatten
(if (fboundp 'flatten-tree) 'flatten-tree
(lambda (list)
"Transform LIST into a flat list.
Greedy handlers might receive a list like this from emacsclient:
\((\"/dir/org-protocol:/greedy:/~/path1\" (23 . 12)) (\"/dir/param\"))
where \"/dir/\" is the absolute path to emacsclients working directory.
This function transforms it into a flat list."
(if (null list) ()
(if (listp list)
(append (org-protocol-flatten (car list))
(org-protocol-flatten (cdr list)))
(list list)))))
(if list
(if (consp list)
(append (org-protocol-flatten (car list))
(org-protocol-flatten (cdr list)))
(list list))))))
(defun org-protocol-parse-parameters (info &optional new-style default-order)
"Return a property list of parameters from INFO.