andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make org-protocol-flatten always an alias

Browse source 
* lisp/org/org-protocol.el (org-protocol-flatten):
Rewrite as top-level alias, as per Stefan’s suggestion,
to avoid compiler warnings.
This commit is contained in:
Paul Eggert 2018-12-17 13:26:42 -08:00
parent 55838e4e6a
commit c5e02f2bce
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/org-protocol.el
View file

@ -349,20 +349,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.