From dd0c6a4440d99dcb719b440f488790f1666404a5 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 22 Dec 2012 19:45:26 +0100 Subject: [PATCH] Use `delq nil' instead of `delete nil' in a few functions * 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. --- lisp/org-mobile.el | 2 +- lisp/org-pcomplete.el | 2 +- lisp/org.el | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 1092917c5..5a3b27fb0 100644 --- a/lisp/org-mobile.el +++ b/lisp/org-mobile.el @@ -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 "")) diff --git a/lisp/org-pcomplete.el b/lisp/org-pcomplete.el index 646784099..861d3f6f7 100644 --- a/lisp/org-pcomplete.el +++ b/lisp/org-pcomplete.el @@ -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)) diff --git a/lisp/org.el b/lisp/org.el index 805d19379..79f660598 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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)) -- 2.11.4.GIT