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

Use delq nil' instead of delete nil' in a few functions

Browse source 
* org.el (org-store-link): Use `delq nil' instead of `delete nil'.

* org-pcomplete.el (pcomplete/org-mode/drawer): Ditto.

* org-mobile.el (org-mobile-files-alist): Ditto.
This commit is contained in:
Bastien Guerry 2012-12-22 19:45:26 +01:00
parent 1db82b269a
commit dd0c6a4440
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-mobile.el
View file

@ -276,7 +276,7 @@ Also exclude files matching `org-mobile-files-exclude-regexp'."
(list f))
(t nil)))
org-mobile-files)))
(files (delete
(files (delq
nil
(mapcar (lambda (f)
(unless (and (not (string= org-mobile-files-exclude-regexp ""))

2
lisp/org-pcomplete.el
View file

@ -290,7 +290,7 @@ This needs more work, to handle headings with lots of spaces in them."
(cpllist (mapcar (lambda (x) (concat x ": ")) org-drawers)))
(pcomplete-here cpllist
(substring pcomplete-stub 1)
(unless (or (not (delete
(unless (or (not (delq
nil
(mapcar (lambda(x)
(string-match (substring pcomplete-stub 1) x))

2
lisp/org.el
View file

@ -8898,7 +8898,7 @@ part of Org's core."
(cond
((and (not (equal arg '(16)))
(setq sfuns
(delete
(delq
nil (mapcar (lambda (f) (let (fs) (if (funcall f) (push f fs))))
org-store-link-functions))
sfunsn (mapcar (lambda (fu) (symbol-name (car fu))) sfuns))