diff options
author | Bastien Guerry <bzg@altern.org> | 2012-12-22 19:45:26 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-12-22 19:45:26 +0100 |
commit | dd0c6a4440d99dcb719b440f488790f1666404a5 (patch) | |
tree | 2a46bfefc9463794ed82ec960fdbd05bae660454 | |
parent | 1db82b269aa0a859e97d91c05f4a8836da040427 (diff) | |
download | org-mode-dd0c6a4440d99dcb719b440f488790f1666404a5.tar.gz |
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.
-rw-r--r-- | lisp/org-mobile.el | 2 | ||||
-rw-r--r-- | lisp/org-pcomplete.el | 2 | ||||
-rw-r--r-- | lisp/org.el | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-mobile.el b/lisp/org-mobile.el index 1092917..5a3b27f 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 6467840..861d3f6 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 805d193..79f6605 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)) |