Browse Source

Minor stylish fix.

Bastien Guerry 14 years ago
parent
commit
7a0f8bccb8
1 changed files with 2 additions and 2 deletions
  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