Procházet zdrojové kódy

Minor stylish fix.

Bastien Guerry před 14 roky
rodič
revize
7a0f8bccb8
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      lisp/org.el

+ 2 - 2
lisp/org.el

@@ -9324,7 +9324,7 @@ application the system uses for this file type."
 
 	 ((string= type "shell")
 	  (let ((cmd path))
-	    (if (or (and (not (zerop (length org-confirm-shell-link-not-regexp)))
+	    (if (or (and (not (string= org-confirm-shell-link-not-regexp ""))
 			 (string-match org-confirm-shell-link-not-regexp cmd))
 		    (not org-confirm-shell-link-function)
 		    (funcall org-confirm-shell-link-function
@@ -9338,7 +9338,7 @@ application the system uses for this file type."
 
 	 ((string= type "elisp")
 	  (let ((cmd path))
-	    (if (or (and (not (zerop (length org-confirm-elisp-link-not-regexp)))
+	    (if (or (and (not (string= "" org-confirm-elisp-link-not-regexp))
 			 (string-match org-confirm-elisp-link-not-regexp cmd))
 		    (not org-confirm-elisp-link-function)
 		    (funcall org-confirm-elisp-link-function