Explorar o código

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.
Bastien Guerry %!s(int64=12) %!d(string=hai) anos
pai
achega
dd0c6a4440
Modificáronse 3 ficheiros con 3 adicións e 3 borrados
  1. 1 1
      lisp/org-mobile.el
  2. 1 1
      lisp/org-pcomplete.el
  3. 1 1
      lisp/org.el

+ 1 - 1
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 ""))

+ 1 - 1
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))

+ 1 - 1
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))